De verwijzingen doorlopen om de eigenschappen ervan weer te geven in Microsoft Access

Origineel KB-nummer: 209849

Samenvatting

Wanneer u de locatie van verwijzingen weergeeft in het dialoogvenster Verwijzingen in het menu Extra, kan het volggedeelte van de padnaam worden afgekapt vanwege de beperkingen van het dialoogvenster. In dit artikel wordt beschreven hoe u een Visual Basic for Applications-procedure gebruikt om de verzameling Verwijzingen te doorlopen en de eigenschappen van elke verwijzing op te halen.

Microsoft verstrekt programmeervoorbeelden alleen ter illustratie, zonder expliciete of impliciete garantie. daaronder mede begrepen, maar niet beperkt tot impliciete garanties met betrekking tot de verkoopbaarheid en/of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend bent met de programmeertaal VBScript, alsmede met de hulpprogramma's waarmee procedures worden gemaakt en waarmee fouten in procedures worden opgespoord. U kunt desgewenst contact opnemen met Microsoft Product Support Services voor uitleg over de functie van een bepaalde procedure. Microsoft Product Support Services is echter niet bereid de voorbeelden aan te passen om extra functies toe te voegen of om procedures te maken die aan uw specifieke eisen voldoen.

Meer informatie

Voer de volgende stappen uit om de verzameling Verwijzingen te doorlopen en de eigenschappen van elke verwijzing op te halen:

1. Maak een module en typ de volgende regel in de sectie Declaraties als deze er nog niet is:

   Option Explicit
   

2. Typ de volgende procedure:

   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. Als u deze functie wilt testen, typt u de volgende regel in het venster Direct en drukt u op Enter:

   ? ReferenceInfo
   

   Opmerking

   Elke verwijzing wordt weergegeven in het venster Direct.

Verwijzingen

Voor meer informatie over de verzameling Verwijzingen klikt u in de Visual Basic-Editor op Microsoft Visual Basic Help in het menu Help, typt u het referentieobject in de Office-assistent of de antwoordwizard en klikt u vervolgens op Zoeken om het onderwerp weer te geven.

Voor meer informatie over het inventariseren via de verzameling Verwijzingen met behulp van de... Volgende instructie: klik in de Visual Basic Editor op Microsoft Visual Basic Help in het menu Help, typ volgende in de Office-assistent of de antwoordwizard en klik vervolgens op Zoeken om het onderwerp weer te geven.