Access VBA教程:CommandEnabled事件

当指定的 Microsoft Office Web 组件确定是否启用指定的命令时,该事件发生。

Private Sub Form_CommandEnabled(ByVal Command As Variant, ByVal Enabled As Object)

Command   经确认已启用的命令。

Enabled   将该对象的 Value属性设为 False,会禁用该命令。

说明

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

VBA示例

下面的示例说明了捕获 CommandEnabled事件的子程序的语法。


Private Sub Form_CommandEnabled( _
        ByVal Command As Variant, ByVal Enabled As Object)
    Dim intResponse As Integer
    Dim strPrompt As String
    strPrompt = "Disable the command?"
    intResponse = MsgBox(strPrompt, vbYesNo)
    If intResponse = vbYes Then
        Enabled.Value = False
    Else
        Enabled.Value = True
    End If
End Sub

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

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事件
Access VBA教程:KeyDown事件 Access VBA教程:KeyPress事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号