Как получить имя пользователя во входном доступе в Access vba?

Возможный дубликат:
Есть ли способ доступа к MS Access для текущего пользователя Active Directory?

Я хочу получить имя зарегистрированного пользователя через vba в access. Каков наилучший способ сделать это?

Дубликаты этого вопроса:

Ответы

Ответ 1

Public Declare Function GetUserName Lib "advapi32.dll" 
    Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

....

Dim strLen As Long
Dim strtmp As String * 256
Dim strUserName As String

strLen = 255
GetUserName strtmp, strLen
strUserName = Trim$(TrimNull(strtmp))

Вопрос о том, что вопрос был задан раньше: Как я могу получить текущего пользователя Windows в Access VBA?

Ответ 2

Попробуйте следующее:

Function UserNameWindows() As String
     UserName = Environ("USERNAME")
End Function

Ответ 3

В форме создайте текстовое поле, в свойствах текстового поля выберите вкладку данных

Default value =CurrentUser()

Текущий источник "выберите имя поля таблицы"

Он отобразит текущее имя пользователя для входа в текстовое поле/метку, а также сохранит имя пользователя в поле таблицы