Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Взять имя пользователя и вставить в строку таблицы - MS Acce - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Взять имя пользователя и вставить в строку таблицы - MS Acce
quickstar Дата: Четверг, 12.01.2017, 15:28 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Знаю, что подобные темы поднимались, но прочитав их более 10 так и не понял как решить вопрос-ребята общаются как опытные программисты, не понятно для новичка. Прошу помощи.

цель - в таблице access фиксировать создателя и того, кто последний раз редактировал форму/таблицу.
задача 1. определить имя пользователя, который открыл базу данных
задача 2. при открытии формы внести в таблицу имя того, кто последний изменял её.
задача 3. фиксировать кто создал новую строчку в таблице (через ввод новых данных в форме) - вообще не понимаю как сделать.

Прочитав десятки тем и форумов вот, что сделал. Но это не работает.

[vba]
Код
Option Compare Database

Public Function ComputerName() As String
Dim WshNetwork As Object

Set WshNetwork = CreateObject("WScript.Network")
ComputerName = WshNetwork.ComputerName
End Function

Private Sub Form_Open(Cancel As Integer)
Me.Avtor = ComputerName
End Sub
[/vba]


Сообщение отредактировал Manyasha - Четверг, 12.01.2017, 18:44
 
Ответить
СообщениеЗнаю, что подобные темы поднимались, но прочитав их более 10 так и не понял как решить вопрос-ребята общаются как опытные программисты, не понятно для новичка. Прошу помощи.

цель - в таблице access фиксировать создателя и того, кто последний раз редактировал форму/таблицу.
задача 1. определить имя пользователя, который открыл базу данных
задача 2. при открытии формы внести в таблицу имя того, кто последний изменял её.
задача 3. фиксировать кто создал новую строчку в таблице (через ввод новых данных в форме) - вообще не понимаю как сделать.

Прочитав десятки тем и форумов вот, что сделал. Но это не работает.

[vba]
Код
Option Compare Database

Public Function ComputerName() As String
Dim WshNetwork As Object

Set WshNetwork = CreateObject("WScript.Network")
ComputerName = WshNetwork.ComputerName
End Function

Private Sub Form_Open(Cancel As Integer)
Me.Avtor = ComputerName
End Sub
[/vba]

Автор - quickstar
Дата добавления - 12.01.2017 в 15:28
Матраскин Дата: Четверг, 12.01.2017, 16:50 | Сообщение № 2
Группа: Друзья
Ранг: Обитатель
Сообщений: 375
Репутация: 81 ±
Замечаний: 0% ±

20xx
quickstar, логирование/протоколирования в access на сколько я знаю - нет... потому тут полёт фантазии. Придумай и сделай сам называется.

Из имеющегося /того что я знаю - это функция CurrentUser() выглядит это так :
[vba]
Код

SELECT CurrentUser(), <ваши_поля> .... FROM <ваши_таблицы>
[/vba]


в интернете опять кто-то не прав

Сообщение отредактировал Матраскин - Четверг, 12.01.2017, 16:51
 
Ответить
Сообщениеquickstar, логирование/протоколирования в access на сколько я знаю - нет... потому тут полёт фантазии. Придумай и сделай сам называется.

Из имеющегося /того что я знаю - это функция CurrentUser() выглядит это так :
[vba]
Код

SELECT CurrentUser(), <ваши_поля> .... FROM <ваши_таблицы>
[/vba]

Автор - Матраскин
Дата добавления - 12.01.2017 в 16:50
quickstar Дата: Пятница, 13.01.2017, 06:09 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
вот таким кодом фактически воспользовался

[vba]
Код
Private Sub Оператор_AfterUpdate()
Me![Автор] = Environ("username")
End Sub
[/vba]

Возможно, кому-то полезно будет
 
Ответить
Сообщениевот таким кодом фактически воспользовался

[vba]
Код
Private Sub Оператор_AfterUpdate()
Me![Автор] = Environ("username")
End Sub
[/vba]

Возможно, кому-то полезно будет

Автор - quickstar
Дата добавления - 13.01.2017 в 06:09
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!