Auto populate NT User ID and date

[PascalZ]

How can I automatically populate the NT user and date of the lst change made to a certain record?

Best regards,

Pascal. ray:

 

[Smitty]

I'm not sure, but would ENVIRON(User Name) work, in Access, as it does in Excel?

Smitty

I'll see if I can find (I think it was Iridium's post for capturing environment) and post back...

 

[mdmilner]

You can get this from the filesystemobject. How you call this function is dependent on what you actually need. I'm working on a small mdb now where I'm autopopulating a bound control by using the navigation buttons to move to the control, then using the _enter event on that control to call this function below. Date or Time are the other two functions you would need.

Option Compare Database
Option Explicit

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

Public 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 = vbNullString
    End If
    'MsgBox fOSUserName
End Function