Freigeben über

Application.CodeContextObject-Eigenschaft (Access)

  • Artikel

Verwenden Sie die CodeContextObject-Eigenschaft , um das Objekt zu bestimmen, in dem ein Makro oder Visual Basic-Code ausgeführt wird. Schreibgeschütztes Object.

Syntax

Ausdruck. CodeContextObject

expression Eine Variable, die ein Application-Objekt darstellt.

Bemerkungen

Die CodeContextObject-Eigenschaft wird von Microsoft Access festgelegt und ist in allen Ansichten schreibgeschützt.

Die Eigenschaften ActiveControl, ActiveDatasheet, ActiveForm und ActiveReport des Screen-Objekts geben immer das Objekt zurück, das derzeit den Fokus hat. Das Objekt mit dem Fokus kann das Objekt sein, in dem derzeit ein Makro oder Visual Basic-Code ausgeführt wird, z. B. wenn Visual Basic-Code im Timer-Ereignis auf einem ausgeblendeten Formular ausgeführt wird.

Beispiel

Im folgenden Beispiel wird die CodeContextObject-Eigenschaft in einer Funktion verwendet, um den Namen des Objekts zu identifizieren, in dem ein Fehler aufgetreten ist. Der Objektname wird dann sowohl im Titel des Meldungsfelds als auch im Text der Fehlermeldung verwendet. Die Error-Anweisung wird im Click-Ereignis der Befehlsschaltfläche verwendet, um den Fehler für dieses Beispiel zu generieren.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.