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.

Remarks

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.

Example

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

Applies to | ComboBox Object | Form Object | TextBox Object