Private Sub Form_AfterUpdate() On Error GoTo Err_ErrorHandler Dim stSQL As String DoCmd.SetWarnings False stSQL = "INSERT INTO ChangeLog (UserID, RecordID, Action) VALUES (CurrentUser(), [RecordID], Update)" DoCmd.RunSQL stSQL DoCmd.SetWarnings True Exit_ErrorHandler: Exit Sub Err_ErrorHandler: ' display error message and error number MsgBox Err.Description, vbExclamation, "Error #" & Err.Number Resume Exit_ErrorHandler End Sub ChangeLog table: Field Name | Data Type | Other Index | AutoNumber | Date | Date/Time | set Default Value to Now() UserID | Text | Access User ID RecordID | Text | Unique Identifier for each record Action | Text | What action was taken (Update, Delete, Insert, etc.) // to make sure they are not logged in with the default Admin account // display a form when you open (set this in Tools > Startup