Access Username Function

Function to get the OS Username into Access

This has been published on Access Web but I've put it here to make it quicker for me to find.

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _

    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long 

Function fOSUserName() As String

' Returns the network login name

    Dim lngLen As Long, lngX As Long

    Dim strUserName As String

strUserName = String$(254, 0)

lngLen = 255

lngX = apiGetUserName(strUserName, lngLen)

    If (lngX > 0) Then

fOSUserName = Left$(strUserName, lngLen - 1)

    Else

fOSUserName = vbNullString

    End If

End Function