login id

[fredloh]

when user level security is implemented, is there anyway i can
programmaticall y retrieve the login id of the user who has just logged
in?

[Patrick A]

I found this code (Dev's?) for a module in an earlier post sometime in
the last month...

It works like a charm. It writes the Windows Login ID nicely.

The way I am using it is to call the code from a form where the user
is changing data. I then write the value (via a hidden text box) to a
record-level field.

_______________ _______________ _______________ _______________ _______________ ____________
Option Explicit

Private Declare Function WinAPI_GetUserN ame Lib "advapi32.d ll" Alias _
"GetUserNam eA" (ByVal lpBuffer As String, nSize As Long) As Long
Function NetworkUserName () As String

Dim iStringLength As Long, i As Long
Dim sString As String

sString = String(255, 0)

iStringLength = Len(sString)
sString = Space$(iStringL ength)

If WinAPI_GetUserN ame(sString, iStringLength) Then
i = InStr(sString, Chr(0))
If i Then
sString = Left(sString, i - 1)
End If
NetworkUserName = Trim(Left$(sStr ing, iStringLength))
Else
NetworkUserName = "Unknown"
End If

End Function

[Keith Wilby]

"Patrick A" <pa*****@stradl ey.comwrote in message
news:11******** *************@2 2g2000hsm.googl egroups.com...

>I found this code (Dev's?) for a module in an earlier post sometime in
the last month...

.... and if you want the user's database ID use the CurrentUser function.

Keith.
www.keithwilby.com