OnUndo Property

Returns or sets a String indicating which macro, event procedure, or user-defined function runs when the Undo event occurs. Read/write.

expression   Required. An expression that returns one of the objects in the Applies To list.

Remarks

Valid values for this property are "macroname" where macroname is the name of macro, "[Event Procedure]" which indicates the event procedure associated with the Undo event for the specified object, or "=functionname()" where functionname is the name of a user-defined function. For a more detailed discussion of event properties, see "Event Properties."

Example

The following example specifies that when the Undo event occurs on the first form of the current project, the associated event procedure should run.

Forms(0).OnUndo = "[Event Procedure]"

The following example specifies that when the Undo event occurs in any text box on the first form of the current project, the associated event procedure should run.

Dim ctlLoop As Control

For Each ctlLoop In Forms(0).Controls
    If ctlLoop.Type = acTextBox Then
        ctlLoop.OnUndo = "[Event Procedure]"
    End If
Next ctlLoop