Знаю, что подобные темы поднимались, но прочитав их более 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]
Знаю, что подобные темы поднимались, но прочитав их более 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