How to get logged-in user's name in Access vba?

Question

I want to get the name of user who have logged-in ,in the access vba. What is the best way to get it

---

Duplicates of this question:

• Is there a way for MS Access to grab the current Active Directory user?
• Using VB6, how do I get the current user and domain on Windows XP?
• How can I get the currently logged-in windows user in Access VBA?
• Excel 2007 VBA and WMI - Current DOMAIN\USER
• and the list goes on

Answer 1

Try this:

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

Turns out question has been asked before: http://stackoverflow.com/questions/168659/how-can-i-get-the-currently-logged-in-windows-user-in-access-vba/168682