Как получить имя пользователя во входном доступе в Access vba? Возможный дубликат: Есть ли способ доступа к MS Access для текущего пользователя Active Directory? Я хочу получить имя зарегистрированного пользователя через vba в access. Каков наилучший способ сделать это? Дубликаты этого вопроса: Есть ли способ доступа к MS Access для текущего пользователя Active Directory? Используя VB6, как мне получить текущий пользователь и домен в Windows XP? Как я могу получить текущего пользователя Windows в Access VBA? Excel 2007 VBA и WMI - Текущий ДОМЕН\ПОЛЬЗОВАТЕЛЬ Ответ 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() Текущий источник "выберите имя поля таблицы" Он отобразит текущее имя пользователя для входа в текстовое поле/метку, а также сохранит имя пользователя в поле таблицы
Ответ 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() Текущий источник "выберите имя поля таблицы" Он отобразит текущее имя пользователя для входа в текстовое поле/метку, а также сохранит имя пользователя в поле таблицы