Share via


CommandBeforeExecute Event [Access 2003 VBA Language Reference]

Occurs before a specified command is executed. Use this event when you want to impose certain restrictions before a particular command is executed.

Private Sub Form_CommandBeforeExecute(ByVal Command As Variant, ByVal Cancel As Object)

Command   The command that is going to be executed.

Cancel   Set the Value property of this object to True to cancel the command.

Remarks

The OCCommandId, ChartCommandIdEnum, and PivotCommandId constants contain lists of the supported commands for each of the Microsoft Office Web Components.

Example

The following example demonstrates the syntax for a subroutine that traps the CommandBeforeExecute event.

Private Sub Form_CommandBeforeExecute( _
        ByVal Command As Variant, ByVal Cancel As Object)   Dim intResponse As Integer
    Dim strPrompt As String

    strPrompt = "Cancel the command?"

    intResponse = MsgBox(strPrompt, vbYesNo)

    If intResponse = vbYes Then
        Cancel.Value = True
    Else
        Cancel.Value = False
    End If
End Sub

Applies to | Form Object