Guide pratique pour parcourir les références pour afficher leurs propriétés dans Microsoft Access

Numéro de la base de connaissances d’origine : 209849

Résumé

Lorsque vous affichez l’emplacement des références avec la boîte de dialogue Références dans le menu Outils, la partie de fin du nom du chemin d’accès peut être tronquée en raison des limitations de la boîte de dialogue. Cet article explique comment utiliser une procédure Visual Basic pour Applications pour parcourir la collection References et récupérer les propriétés de chaque référence.

Microsoft fournit des exemples de programmation à titre d’illustration uniquement, sans garantie expresse ou implicite. Cela inclut, sans y être limité, les garanties implicites de commercialisation et d’adaptation à un but en particulier. Cet article considère que vous connaissez le langage de programmation présenté et les outils utilisés pour créer et déboguer des procédures. Les techniciens du Support technique Microsoft peuvent vous expliquer les fonctionnalités d’une procédure particulière, mais ils ne peuvent pas modifier les exemples en vue de vous fournir des fonctionnalités supplémentaires ou de créer des procédures répondant à vos besoins spécifiques.

Informations supplémentaires

Pour parcourir la collection References et récupérer les propriétés de chaque référence, procédez comme suit :

1. Créez un module et tapez la ligne suivante dans la section Déclarations si ce n’est pas déjà fait :

   Option Explicit
   

2. Tapez la procédure suivante :

   Function ReferenceInfo()
   
       Dim strMessage  As String
       Dim strTitle    As String
       Dim refItem     As Reference
   
       On Error Resume Next
   
       For Each refItem In References
           If refItem.IsBroken Then
               strMessage = "Missing Reference:" & vbCrLf & refItem.FullPath
           Else
               strMessage = "Reference: " & refItem.Name & vbCrLf _
                          & "Location: " & refItem.FullPath & vbCrLf
           End If
           Debug.Print strMessage
       Next refItem
   
   End Function
   

3. Pour tester cette fonction, tapez la ligne suivante dans la fenêtre Exécution, puis appuyez sur Entrée :

   ? ReferenceInfo
   

   Remarque

   Chaque référence est répertoriée dans la fenêtre Exécution.

References

Pour plus d’informations sur la collection References, dans le Rédacteur Visual Basic, cliquez sur Aide de Microsoft Visual Basic dans le menu Aide, tapez l’objet référence dans l’Assistant Office ou l’Assistant Réponse, puis cliquez sur Rechercher pour afficher la rubrique.

Pour plus d’informations sur l’énumération dans la collection References à l’aide de For Each... Instruction suivante, dans le Rédacteur Visual Basic, cliquez sur Aide sur Microsoft Visual Basic dans le menu Aide, tapez suivant dans le Assistant Office ou l’Assistant Réponse, puis cliquez sur Rechercher pour afficher la rubrique.