Get User Name with:
Private Declare Function GetUserName Lib "ADVAPI32.dll" Alias "GetUserNameA"
(ByVal lpBuffer As String, nSize As Long) As Long
Public Function GetUser() As String
' This just gets the name of the user
On Error GoTo Err_GetUser
Dim Username As String * 255
Call GetUserName(Username, 255)
GetUser = Left$(Username, InStr(Username, Chr$(0)) - 1)
Exit_GetUser:
Exit Function
Err_GetUser:
MsgBox Err.Description
Resume Exit_GetUser
End Function
Autopopulate employee field:
?????
Ron W
