How can I store the PC %Username%

[RobH]

Access 2003 - I need to be able to capture the PC logon name - so I can see who is making what changes to data.

Any thoughts?

[MikeTheBike]

Access 2003 - I need to be able to capture the PC logon name - so I can see who is making what changes to data.

Any thoughts?

Hi

This does it for me

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
                    (ByVal IpBuffer As String, nSize As Long) As Long
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _
                    (ByVal lpBuffer As String, nSize As Long) As Long
 
Function ThisUserName() As String
    Dim LngBufLen As Long
    Dim strUser As String
 
    strUser = String$(15, " ")
    LngBufLen = 15
 
    If GetUserName(strUser, LngBufLen) = 1 Then
        ThisUserName = Left(strUser, LngBufLen - 1)
    Else
        ThisUserName = "Unknown"
    End If
End Function
 
Function ThisComputerID() As String
    Dim LngBufLen As Long
    Dim strUser As String
 
    strUser = String$(15, " ")
    LngBufLen = 15
 
    If GetComputerName(strUser, LngBufLen) = 1 Then
        ThisComputerID = Left(strUser, LngBufLen)
    Else
        ThisComputerID = 0
    End If
End Function

Is that what you had in mind?

MTB

[RobH]

MTB - Thanks I like the option of the Computer ID so it can be tracked to termainal also.