The following example displays a message containing the date and time when a customer record was changed. This information could also be added to the DUOS or to another database (such as Microsoft Access) and stored with the customer record.
Private Sub CustomerID_Changed() If CustomerMaintenance.Changed Then 'The user made a change to the current record. MsgBox "This user record was last changed on " & Date & _ " at " & Time & "." End If End Sub