Access VBA教程:CommandBeforeExecute事件

在指定的命令被执行前,该事件发生。如果要在某命令执行前施加一些限制条件,则可以使用该事件。

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

Command   将要执行的命令。

Cancel   将该对象的 Value属性设为 True 会取消命令。

说明

OCCommandId、ChartCommandIdEnum 和 PivotCommandId 常量包含每个 Microsoft Office Web 组件的受支持命令的列表。

VBA示例

下面的示例显示了捕获 CommandBeforeExecute事件的子例程的语法。


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

上页:Access VBA教程:Close事件 下页:Access VBA教程:CommandChecked事件

Access VBA教程:CommandBeforeExecute事件

Access VBA教程:CommandChecked事件 Access VBA教程:CommandEnabled事件
Access VBA教程:CommandExecute事件 Access VBA教程:Current事件
Access VBA教程:DataChange事件 Access VBA教程:DataSetChange事件
Access VBA教程:DblClick事件 Access VBA教程:Deactivate事件
Access VBA教程:Delete事件 Access VBA教程:Dirty事件
Access VBA教程:Enter事件 Access VBA教程:Error事件
Access VBA教程:Exit事件 Access VBA教程:Filter事件
Access VBA教程:FirstPage、LastPage、NextPage、PrevPage事件(快照查看器) Access VBA教程:Format事件
Access VBA教程:GotFocus事件 Access VBA教程:Initialize事件
Access VBA教程:ItemAdded事件 Access VBA教程:ItemRemoved事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号