How do I get the Users ID in WIN 98?

[polsterd]

This code is executed at open of a form in Access 97. An error appears on the win 98 machines but does not appear on the NT machines. The error is the one in the code because it is not finding the username. I have searched archived items and I was able to get the code working on win 95 by adding a statement to the autoexec.bat file. The statement was "set UserName=%username%". This did not work on WIN 98. I am looking for a simple solution to obtain the logged in user on a win 98 machine.

What should I add to this code or any other ideas?

Thanks

-------Code Begin--------

Private Sub Form_Load()

Dim EmployeeID As String
'
' Get employee ID from environment variable:
'

EmployeeID = Environ("USERNAME&quot
If EmployeeID = "" Then
EmployeeID = Environ("UserID&quot
End If
If EmployeeID = "" Then
MsgBox "Could not get UserID from system. Some functions may not be available", vbExclamation, "Warning!"
Else
Me![Employee ID] = EmployeeID
End If
DoCmd.Maximize
End Sub
--------Code End--------

 

[HowieG]

Try adding this function to a module and calling it. I haven't tried it on Win2000, but it does work on Win98.

This is from Dev Ashish's very useful site:

http://www.mvps.org/access/index.html

'******************** Code Start **************************
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 = &quot;&quot;
    End If
End Function

'******************** Code End **************************

----------------------------------------------
© 1998-2000, Dev Ashish, All rights reserved

 

[gusbrunston]

Me!txtThisUser = CurrentUser() Gus Brunston An old PICKer, using Access2000. I manage

http://www.rentdex.com.

Suggestions welcome. padregus@attbi.com

 

[twinmill]

Have you tried typing the "SET" command at the C: prompt to see what system variables are already set?

 

[polsterd]

Thanks,

I have it working