Get current logged on user

[Dbyte]

Am trying to have a textbox on my form auto-populate with the ID of the user currently logged onto the PC when the form is opened. I created a module w/ the following code from faq702-4949:

Public Function GetUserName_TSB() As String
On Error GoTo error_handler
Dim lngLen As Long
Dim strBuf As String
Const MaxUserName = 255
strBuf = Space(MaxUserName)
lngLen = MaxUserName
If CBool(TSB_API_GetUserName(strBuf, lngLen)) Then
  GetUserName_TSB = Left$(strBuf, lngLen - 1)
Else
  GetUserName_TSB = ""
End If
Exit Function
error_handler:
Error_Recorder
End Function

I have a textbox in my form w/ the following in Before Update:

GetUserName_TSB ()

The text box is blank when I view the form.

 

[PHV]

In the Load event procedure of the form:
Me![your textbox] = GetUserName_TSB()

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Dbyte]

PHV, I got the following error when I added your command to the On:
Microsoft Office Access can't find the macro 'Me!ITStaff=GetUserName_TSB().'

I double-checked: GetUserName_TSB is saved as a module (not a macro) & consists of only the code I pasted above.

 

[PHV]

In the Load event [!]procedure[/!] of the form:
Me![your textbox] = GetUserName_TSB()

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Dbyte]

OK, added the following as the Load event procedure:

Private Sub Form_Load()
Me![ITStaff] = GetUserName_TSB()
End Sub

After adding this when I open the form I get the following error message: "Compile error: expected variable or procedure, not module

 

[PHV]

Seems you have given the same name to the module and the function ...

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886