Track date record modified

[jh3016]

I am trying to put in fields that tell me who made the last change and the date they made the change. I have a main form and a subform, so if a change is made to the main form or subform, I want that tracked. I have searched this forum and tried different approaches, but nothing seems to work. Could someone tell me how to do this easily (if it is easy)? Not that great in writing or understanding codes.

Thanks in advance.

 

[Hasu]

Hi,

use following code in Form Dirty event:

Private Sub Form_Dirty(Cancel As Integer)
dateField = Date()
userField = strUser
End Sub


Hope this helps...
Hasu
(Trust on someone, someone will trust you!)

 

[Darrylles]

Hi,

You should have a date field in each table (one for the parent table, one for the subform table). Maybe call them Modified.

In the <before_update> event of both the Form AND the Subform have this:

Modifed = Now()

Do the same thing to get the user into the tables also.

If you haven't got a facility to identify the user, then try looking at the CurrentUser() function.

Regards,

Darrylle


&quot;Never argue with an idiot, he'll bring you down to his level - then beat you with experience.&quot; darrylles@totalise.co.uk

 

[jh3016]

Thanks for the quick response. I tried Hasu's approach and the dateField part works. However, I get an error message as follows for the userfield part:

Run-time error '-2147352567 (80020009)'
Field 'tblEmployee.auditUserName' cannot be a zero-length string.

Do you know what I should do?

 

[Hasu]

set userfield of Required is no in your table.

Hope this helps...
Hasu
(Trust on someone, someone will trust you!)

 

[jh3016]

Thanks. That corrected the problem. However, the username does not appear. Do I need to do anything else?