Application.CodeContextObject 属性 (Access)

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

语法

表达式。CodeContextObject

expression：表示 Application 对象的变量。

备注

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

Screen 对象的 ActiveControl、ActiveDatasheet、ActiveForm 和 ActiveReport 属性始终返回当前具有焦点的对象。 具有焦点的对象可能是宏或 Visual Basic 代码当前正在运行的对象，例如，当 Visual Basic 代码在隐藏窗体上的 Timer 事件中运行时。

示例

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

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 _ 
 & " occurred in " & objCurrent.Name 
 ErrorMessage = MsgBox(strText, intType, strMsgboxTitle) 
 Err = 0 
End Function

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。