Trying to get user id in a query

[fjgarciaaviles]

I'm trying to get access to the security variables in an access 2003
session, in order to get the userid or user name and use it as a
parameter in a query.

Is there any way to do this?

Regards,
Javier García

 

[Guest]

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA"
(ByVal lpBuffer As String, nSize As Long) As Long

Function UserNameWindows() As String

Dim lngLen As Long
Dim strBuffer As String

Const dhcMaxUserName = 255

strBuffer = Space(dhcMaxUserName)
lngLen = dhcMaxUserName
If CBool(GetUserName(strBuffer, lngLen)) Then
UserNameWindows = Left$(strBuffer, lngLen - 1)
Else
UserNameWindows = ""
End If
End Function