Access) (Application.CodeContextObject 屬性

使用 CodeContextObject 屬性來判斷巨集或 Visual Basic 程式代碼執行所在的物件。 唯讀的 Object。

語法

表達式。CodeContextObject

expression 代表 Application 物件的變數。

註解

CodeContextObject 屬性是由 Microsoft Access 設定且在全部檢視之中都是唯讀的。

Screen 物件的 ActiveControl、ActiveDatasheet、ActiveForm 和 ActiveReport 屬性一律會傳回目前擁有焦點的物件。 具有焦點的物件不一定就是巨集或 Visual Basic 程式代碼目前正在執行的物件，例如，當 Visual Basic 程式代碼在隱藏表單的 定時器事件中執行 時。

範例

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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。