References.ItemAdded-Ereignis (Access)

Das ItemAdded-Ereignis tritt auf, wenn dem Projekt ein Verweis aus Visual Basic hinzugefügt wird.

Syntax

Ausdruck. ItemAdded (Referenz)

Ausdruck Eine Variable, die ein References-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Referenz	Erforderlich	Referenz	Der Verweis, der dem Projekt hinzugefügt wurde.

Hinweise

Das ItemAdded-Ereignis gilt für die References-Auflistung . Es ist nicht einem Steuerelement, Formular oder Bericht zugeordnet, wie dies bei den meisten anderen Ereignissen der Fall ist. Daher müssen Sie eine spezielle Syntax verwenden, um eine Prozedurdefinition für die ItemAdded-Ereignisprozedur zu erstellen.

Das ItemAdded-Ereignis kann nur eine Ereignisprozedur ausführen, wenn sie auftritt. Es kann kein Makro ausgeführt werden.

Dieses Ereignis tritt nur auf, wenn Sie einen Verweis aus Code hinzufügen. Dies tritt nicht auf, wenn Sie einen Verweis aus dem Dialogfeld Verweise hinzufügen, der durch Auswählen von Verweisen im Menü Extras verfügbar ist, wenn das Modulfenster das aktive Fenster ist.

Beispiel

Das folgende Beispiel enthält Ereignisprozeduren für die Ereignisse ItemAdded und ItemRemoved . Um dieses Beispiel auszuprobieren, erstellen Sie zunächst ein neues Klassenmodul, indem Sie im Menü Einfügen die Option Klassenmodul auswählen. Fügen Sie den folgenden Code in das Klassenmodul ein, und speichern Sie das Modul als RefEvents.

' Declare object variable to represent References collection. 
Public WithEvents evtReferences As References 
 
' When instance of class is created, initialize evtReferences 
' variable. 
Private Sub Class_Initialize() 
 Set evtReferences = Application.References 
End Sub 
 
' When instance is removed, set evtReferences to Nothing. 
Private Sub Class_Terminate() 
 Set evtReferences = Nothing 
End Sub 
 
' Display message when reference is added. 
Private Sub evtReferences_ItemAdded(ByVal Reference As _ 
 Access.Reference) 
 MsgBox "Reference to " & Reference.Name & " added." 
End Sub 
 
' Display message when reference is removed. 
Private Sub evtReferences_ItemRemoved(ByVal Reference As _ 
 Access.Reference) 
 MsgBox "Reference to " & Reference.Name & " removed." 
End Sub

Die folgende Function-Prozedur fügt einen angegebenen Verweis hinzu. Wenn ein Verweis hinzugefügt wird, wird die in der RefEvents-Klasse definierte ItemAdded-Ereignisprozedur ausgeführt.

' Create new instance of RefEvents class. 
Dim objRefEvents As New RefEvents 
 
' Pass file name and path of type library to this procedure. 
Function AddReference(strFileName As String) As Boolean 
 Dim ref As Reference 
 
 On Error GoTo Error_AddReference 
 ' Create new reference on References object variable. 
 Set ref = objRefEvents.evtReferences.AddFromFile(strFileName) 
 AddReference = True 
 
Exit_AddReference: 
 Exit Function 
 
Error_AddReference: 
 MsgBox Err & ": " & Err.Description 
 AddReference = False 
 Resume Exit_AddReference 
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.