windows - Access 函数返回用户名，而不是用户名

Question

是否有一个函数可以用来将当前用户名而不是他们的用户名返回到文本框 - 所以是 Joe Bloggs，而不是 jbloggs？

Answer 1

假设您设置了 Active Directory，您可以使用以下代码，摘自 Andrey Artemyev's answer here :

Public Function ADtest() As String
  Dim ADSI As Object, UN As Object
  Set ADSI = CreateObject("ADSystemInfo")
  Set UN = GetObject("LDAP://" & ADSI.UserName)
  ADtest = UN.FirstName
  ADtest = ADtest & " " & UN.LastName
  Set UN = Nothing
  Set ADSI = Nothing
End Function

_{(在此处添加答案以获得更好的可见性，制作了 Community Wiki，因为这不是我真正的答案，而且我不想要功劳)}