Help!! How do I get a user currently signed on to thier NT 4.0 machine when the a customized "greeting" form in Access 2000 pops up?
Printable View
Help!! How do I get a user currently signed on to thier NT 4.0 machine when the a customized "greeting" form in Access 2000 pops up?
I'm not sure that I understand your question but if it's the user name you want you can do this in two ways on WinNT and Win2000.
The first is to call the GetUserName API function:
This will work on all Windows OS.Code:Public Declare Function GetUserName _
Lib "advapi32.dll" Alias "GetUserNameA" ( _
ByVal lpBuffer As String, _
nSize As Long) As Long
Public Function GetCurrentUser() As String
Dim sUserName As String
sUserName = Space$(250)
Call GetUserName(sUserName, Len(sUserName))
sUserName = Left$(sUserName, Instr(sUserName, vbNullChar) - 1)
GetCurrentUser = sUserName
End Function
The second way will only work on WinNT and Win2000 and that is to check the UserName environment variable:
Good luck!Code:Public Function GetCurrentUser() As String
GetCurrentUser = Environ("UserName")
End Function