Undo Event [Access 2003 VBA Language Reference]
Occurs when the user undoes a change to a combo box control, a form, or a text box control.
Private Sub object_Undo(Cancel As Integer)
object A variable which references an object of one of the types in the Applies To list.
Cancel Set this argument to True to cancel the undo operation and leave the control or form in its edited state.
The Undo event for controls occurs whenever the user returns a control to its original state by clicking the Undo Field/Record button on the command bar, clicking the Undo button, pressing the ESC key, or calling the Undo method of the specified control. The control needs to have focus in all three cases. The event does not occur if the user clicks the Undo Typing button on the command bar.
The Undo event for forms occurs whenever the user returns a form to its original state by clicking the Undo button, pressing the ESC key, or calling the Undo method of the specified form.
The following example demonstrates the syntax for a subroutine that traps the Undo event for a form.
Private Sub Form_Undo(Cancel As Integer) Dim intResponse As Integer Dim strPrompt As String strPrompt = "Cancel the undo operation?" intResponse = MsgBox(strPrompt, vbYesNo) If intResponse = vbYes Then Cancel = True Else Cancel = False End If End Sub