Using the Windows Username in an Access DB

  • Thread starter Thread starter fred
  • Start date Start date
F

fred

I've read a few posts that explain how to capture the windows username,
but I'm having trouble getting this into a form.

I've added the following code to a public module:

Option Compare Database

'******************** Code Start **************************
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
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
'******************** Code End **************************

When I try to user GetUserNameA or fOSUserName, I get a response of
#NAME.

Am I calling the code incorrectly?

Thanks,

Fred
 
What did you name the module? If you called it fOSUserName, rename it:
modules cannot be named the same as functions or subs.
 
Back
Top