Événement References.ItemAdded (Access)

L'événement ItemAdded se produit lorsqu'une référence est ajoutée au projet à partir de Visual Basic.

Syntaxe

expression. ItemAdded (Référence)

Expression Variable qui représente un objet References .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Référence	Obligatoire	Référence	La référence qui a été ajoutée au projet.

Remarques

L’événement ItemAdded s’applique à la collection References. Il n’est pas associé à un contrôle, un formulaire ou un état, comme la plupart des autres événements. Par conséquent, pour créer une définition de procédure pour la procédure événementielle ItemAdded , vous devez utiliser une syntaxe spéciale.

L’événement ItemAdded ne peut exécuter qu’une procédure événementielle lorsqu’il se produit ; il ne peut pas exécuter une macro.

Cet événement se produit uniquement lorsque vous ajoutez une référence à partir du code. Cela ne se produit pas lorsque vous ajoutez une référence à partir de la boîte de dialogue Références , disponible en choisissant Références dans le menu Outils lorsque la fenêtre Module est la fenêtre active.

Exemple

L'exemple suivant inclut des procédures d'événements pour les événements ItemAdded et ItemRemoved. Pour essayer cet exemple, commencez par créer un module de classe en choisissant Module de classe dans le menu Insertion . Collez le code suivant dans le module de classe et enregistrez le module sous 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

La procédure Function suivante ajoute une référence spécifiée. Lorsqu’une référence est ajoutée, la procédure événementielle ItemAdded définie dans la classe RefEvents s’exécute.

' 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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.