User Name and Date changed

[dtutton]

When I add a record in an access form, how can I update a user name field and date changed field.

Thanks

 

[snyperx3]

VBA - Form BeforeUpdate event assign the field values.

-Pete

 

[dtutton]

Thanks Pete, What code do I use to get the system user id name

Thanks

 

[snyperx3]

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

Public Function GetUser() As String
Dim UserName As String
UserName = String(100, "0")
GetUserName UserName, 100
GetUser = VBA.Left$(UserName, InStr(UserName, Chr$(0)) - 1)
End Function

taken from

http://www.developerfusion.co.uk/forums/thread/100739/#100739

-Pete

 

[dtutton]

Thanks Pete,

Im showing my ignorance in Access - I think VBA is easier in Excel. How to I update the field with GetUser and Now. I tried:

Me![AddedBy].DefaultValue = GetUser
Me![AddedDate].DefaultValue = Now

in the BeforeUpdateEvent in a field in the sub-form but get an error(s). In the sub-form, I do not have a reference to the field in the data table.

David

 

[snyperx3]

i believe the easiest way would be to create a reference to the fields, and just make the objects not visible. then just assign the values to the objects.

-Pete

 

[dtutton]

Works Perfectly - Thanks Pete