如何在Access vba中登录用户名？

Question

可能重复:
MS Access是否有办法获取当前的Active Directory用户？

我想在访问中通过vba 获取登录用户的名称.做这个的最好方式是什么？

---

这个问题的重复:

• 有没有办法让MS Access获取当前的Active Directory用户？
• 使用VB6,如何在Windows XP上获取当前用户和域？
• 如何在Access VBA中获取当前登录的Windows用户？
• Excel 2007 VBA和WMI - 当前DOMAIN\USER

Answer 1

试试这个:

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

Answer 2

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))

原来问过的问题是:如何在Access VBA中获取当前登录的Windows用户？