Access 2003 VBA Get User ID

[TheUnderTow]

GetUserID used to work in previous versions of Access to populate a combo box with the user but this seems to have been removed from 2003 - does anyone know any code to replicate this? I'm running on Window XP if that makes a difference...

[Simeon]

Put this bit of code in the declarations section of a module

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long

then create this function

Public Function GetUserName() As String
On Error GoTo Err_Handler

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
GetUserName = Left(strUserName, lngLen - 1)
Else
GetUserName = vbNullString
End If

Exit_Handler:
Exit Function

Err_Handler:
Resume Exit_Handler
End Function