Événement References.ItemRemoved (Access)

L'événement ItemRemoved se produit lorsqu'une référence est supprimée du projet.

Syntaxe

expression. ItemRemoved (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é supprimée du projet.

Remarques

L'événement ItemRemoved 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 ItemRemoved , vous devez utiliser une syntaxe spéciale.

L’événement ItemRemoved 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 supprimez une référence à partir du code. Cela ne se produit pas lorsque vous supprimez une référence 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 supprime une référence spécifiée. Lorsqu’une référence est supprimée, la procédure événementielle ItemRemoved définie dans la classe RefEvents s’exécute.

Par exemple, pour supprimer une référence au contrôle calendrier, vous pouvez passer la chaîne de caractères « MSACAL », qui est le nom de l'objet Reference qui représente un contrôle calendrier.

Function RemoveReference(strRefName As String) As Boolean 
 Dim ref As Reference 
 
 On Error GoTo Error_RemoveReference 
 ' Return object representing existing reference. 
 Set ref = objRefEvents.evtReferences(strRefName) 
 ' Remove reference from collection. 
 objRefEvents.evtReferences.Remove ref 
 RemoveReference = True 
 
Exit_RemoveReference: 
 Exit Function 
 
Error_RemoveReference: 
 MsgBox Err & ": " & Err.Description 
 RemoveReference = False 
 Resume Exit_RemoveReference 
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.