View the User Name

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
 
K

Klatuu

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
 
J

Jone

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...
 
Top