Код для извлечения пользователей Входите в систему электронной почты на свой компьютер и выводите инициалы на основе таблицы в базе данных доступа

Question

Я занимаюсь улучшением старой базы данных доступа, которую мы используем для регистрации наших отчетов о проверках. В отчете есть текстовое поле, помеченное Inspector Initials, и некоторое время назад технический специалист, который покинул компанию, написал код для получения электронной почты пользователя и вывода его инициалов в качестве значения по умолчанию.

Я попытался восстановить созданную им базу данных, но не могу ее найти. Я пробовал формулы и макросы, чтобы получить эти данные. Я пробовал коды, которые я нашел на других сайтах / форумах.

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

Используется для работы, больше не работает.

Я хотел бы, чтобы выходные данные были именем пользователя для входа в систему через outlook, ссылались на таблицу Initials и выводили инициалы этого пользователя.

Answer 1

при условии, что вы используете активный каталог (что является стандартным в большинстве бизнес-сред)

Public Function UserNameWindows() As String
    With GetObject("LDAP://" & CreateObject("ADSystemInfo").Username)
        UserNameWindows = .samaccountname
    End With
End Function