Свойство Application.CodeContextObject (Access)

Используйте свойство CodeContextObject , чтобы определить объект, в котором выполняется макрос или код Visual Basic. Объект только для чтения.

Синтаксис

expression. CodeContextObject

выражение: переменная, представляющая объект Application.

Примечания

Свойство CodeContextObject задается Microsoft Access и доступно только для чтения во всех представлениях.

Свойства ActiveControl, ActiveDatasheet, ActiveForm и ActiveReport объекта Screen всегда возвращают объект с фокусом. Объект с фокусом может быть объектом, в котором в настоящее время выполняется макрос или код Visual Basic, например, когда код Visual Basic выполняется в событии Таймера в скрытой форме.

Пример

В следующем примере свойство 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 и обратная связь.