Access VBA教程:CodeContextObject属性

使用 CodeContextObject属性可以确定其中的宏或 Visual Basic 代码正在执行的对象。Object 型,只读。

expression.CodeContextObject

expression   必需。返回“Applies To”列表中的一个对象的表达式。

设置

CodeContextObject属性由 Microsoft Access 设置,而且在所有视图中都是只读的。

说明

Screen对象的ActiveControlActiveDataAccessPageActiveDatasheetActiveFormActiveReport属性始终返回当前获得焦点的对象。带有焦点的对象既可能是也可能不是当前正在运行宏或 Visual Basic 代码的对象,例如 Visual Basic 代码可以执行一个隐藏窗体的Timer事件。

VBA示例

以下示例中,CodeContextObject属性在函数中用于识别发生错误的对象的名称。对象名称然后显示在消息框标题及错误信息正文中。示例中,Error 语句用在命令按钮的 click事件中以产生错误。


Private Sub Command1_Click()
    On Error GoTo Command1_Err
    Error 11                    ' Generate divide-by-zero error.
    Exit Sub
    Command1_Err:
        If ErrorMessage("Command1_Click() Event", vbYesNo + _
                vbInformation, Err) = vbYes Then
            Exit Sub
        Else
            Resume
        End If
End Sub
Function ErrorMessage(strText As String, intType As Integer, _
        intErrVal As Integer) As Integer
    Dim objCurrent As Object
    Dim strMsgboxTitle As String
    Set objCurrent = CodeContextObject
    strMsgboxTitle = "Error in " & objCurrent.Name
    strText = strText & "Error #" & intErrVal _
        & " occured in " & objCurrent.Name
    ErrorMessage = MsgBox(strText, intType, strMsgboxTitle)
    Err = 0
End Function

上页:Access VBA教程:CloseButton属性 下页:Access VBA教程:CodeData属性

Access VBA教程:CodeContextObject属性

Access VBA教程:CodeData属性 Access VBA教程:CodeProject属性
Access VBA教程:Collection属性 Access VBA教程:ColorMode属性
Access VBA教程:Column属性 Access VBA教程:ColumnCount属性
Access VBA教程:ColumnHeadings属性 Access VBA教程:ColumnHeads属性
Access VBA教程:ColumnHidden属性 Access VBA教程:ColumnOrder属性
Access VBA教程:ColumnSpacing属性 Access VBA教程:ColumnWidth属性
Access VBA教程:ColumnWidths属性 Access VBA教程:COMAddIns属性
Access VBA教程:CommandBars属性 Access VBA教程:CommandBeforeExecute属性
Access VBA教程:CommandChecked属性 Access VBA教程:CommandEnabled属性
Access VBA教程:CommandExecute属性 Access VBA教程:CommitOnClose属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号