Stop Second Undo

[rgsw]

Hi -

In a Form in After Update Event I have VBA:

 If MsgBox("You have made a change to this record.  Change correct?", vbYesNo, "Change") = vbYes Then
  DoCmd.GoToControl ("ID")
Else
  DoCmd.RunCommand acCmdUndo
End If
End Sub
 

This works fine - except that after it 'undo' what you type when you go to the next record the message box comes up again and you have to click yes to continue. I would like to have it stop at the first undo and not have the message box come up again. I know there has to be a way but I sure can't figure it out.

Thanks!

[puppydogbuddy]

Hi -

In a Form in After Update Event I have VBA:
If MsgBox("You have made a change to this record. Change correct?", vbYesNo, "Change") = vbYes Then
DoCmd.GoToControl ("ID")
Else
DoCmd.RunCommand acCmdUndo End If End Sub

This works fine - except that after it 'undo' what you type when you go to the next record the message box comes up again and you have to click yes to continue. I would like to have it stop at the first undo and not have the message box come up again. I know there has to be a way but I sure can't figure it out.

Thanks!

Use a before update event, not an after update event. See this link for a detailed "HowTo":

http://www.databasedev.co.uk/confirm-record-update.html

[rgsw]

Thanks for your reply and help!