Hi,
thanks for the responses, code below:
If Me.Dirty = False Then
MsgBox "No changes have been made or have already been undone/saved.", vbOKOnly, "Information"
Else
DoCmd.RunCommand acCmdUndo
MsgBox "Changes have been discarded.", vbOKOnly, "Information"
Me.Dirty =...