Update
Trys this code in the Before Update Event of the form:
Dim strMsg As String
strMsg = "Data has been changed."
strMsg = strMsg & " Save this record?"
If MsgBox(strMsg, vbYesNo, "") = vbNo Then
DoCmd.RunCommand acCmdUndo
Else
End If
In addition you can...