View the User Name

  • Thread starter Thread starter Jone
  • Start date Start date
J

Jone

Hi,
What code do I write when I want to view the current user name?
Because I made my one log-in form and I want that if the user doesn’t put
the correct password then my msg box should show the user name (I mean user
name form the computer not form access
 
Paste this code into a standard module:

Private Declare Function GetUserNameA Lib "Advapi32" (ByVal strN As String,
ByRef intN As Long) As Long
Public Function GetUserID()

Dim Buffer As String * 20
Dim Length As Long
Dim lngresult As Long, userid As String

Length = 20

lngresult = GetUserNameA(Buffer, Length)
If lngresult <> 0 Then
userid = Left(Buffer, Length - 1)
Else
userid = "xxxxxxx"
End If
GetUserID = UCase(userid)

End Function

Then to get the user id

Me.txtUserID = GetUserID
 
Thanks!

Klatuu said:
Paste this code into a standard module:

Private Declare Function GetUserNameA Lib "Advapi32" (ByVal strN As String,
ByRef intN As Long) As Long
Public Function GetUserID()

Dim Buffer As String * 20
Dim Length As Long
Dim lngresult As Long, userid As String

Length = 20

lngresult = GetUserNameA(Buffer, Length)
If lngresult <> 0 Then
userid = Left(Buffer, Length - 1)
Else
userid = "xxxxxxx"
End If
GetUserID = UCase(userid)

End Function

Then to get the user id

Me.txtUserID = GetUserID
Click to expand...
 
Back
Top