PrivateSub RecordChange(strField AsString)'From http://www.access-diva.com/ 'This first *If Statement* only needs to be added if the field you are using to identify the record is NOT the Primary Key and can be NULL. If it is NULL'no change will be logged.If Len(Me.txtID)=0OrMe.txtID= Null ThenExitSubEndIfIf strOld = strNew ThenExitSubElseCall LogChange(Me.txtID , "frmYourFormName", strField &" changed from "& strOld &" to "& strNew)EndIf
strOld =""
strNew =""EndSub