Access VBA教程:CommandChecked事件

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

Private Sub Form_CommandChecked(ByVal Command As Variant, ByVal Checked As Object)

Command   已经确认被选中的命令。

Checked   将该对象的 Value属性设为 False,会取消对命令的选定。

说明

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

VBA示例

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


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

上页:Access VBA教程:CommandBeforeExecute事件 下页:Access VBA教程:CommandEnabled事件

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