Durchlaufen der Verweise zum Anzeigen ihrer Eigenschaften in Microsoft Access

Ursprüngliche KB-Nummer: 209849

Zusammenfassung

Wenn Sie die Position der Verweise mit dem Dialogfeld Verweise im Menü Extras anzeigen, kann der nachfolgende Teil des Pfadnamens aufgrund der Einschränkungen des Dialogfelds abgeschnitten werden. In diesem Artikel erfahren Sie, wie Sie eine Visual Basic for Applications Prozedur verwenden, um die References-Auflistung zu durchlaufen und die Eigenschaften der einzelnen Verweise abzurufen.

Die Verwendung der hier aufgeführten Informationen, Makro- oder Programmcodes geschieht auf Ihre eigene Verantwortung. Microsoft stellt Ihnen diese Informationen sowie Makro- und Programmlistings ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionsfähigkeit sowie ohne Anspruch auf Support zur Verfügung. Die zur Verfügung gestellten Makro- und Programmierungsbeispiele sollen lediglich exemplarisch die Funktionsweise des Beispiels aufzeigen. Die Microsoft Support-Spezialisten können bei der Erläuterung der Funktionalität bestimmter Prozeduren helfen, jedoch werden sie diese Beispiele nicht in Bezug auf eine erweiterte Funktionalität verändern, noch werden sie Prozeduren entwickeln, die auf Ihre besonderen Bedürfnisse zugeschnitten sind.

Weitere Informationen

Führen Sie die folgenden Schritte aus, um die References-Auflistung zu durchlaufen und die Eigenschaften der einzelnen Verweise abzurufen:

1. Erstellen Sie ein Modul, und geben Sie die folgende Zeile im Abschnitt Deklarationen ein, falls es noch nicht vorhanden ist:

   Option Explicit
   

2. Geben Sie das folgende Verfahren ein:

   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. Geben Sie zum Testen dieser Funktion die folgende Zeile in das Direktfenster ein, und drücken Sie dann die EINGABETASTE:

   ? ReferenceInfo
   

   Hinweis

   Jeder Verweis wird im Direktfenster aufgeführt.

References

Wenn Sie weitere Informationen zur References-Auflistung benötigen, klicken Sie im Visual Basic-Editor im Menü Hilfe auf Microsoft Visual Basic-Hilfe, geben Sie im Office-Assistenten oder im Antwort-Assistenten verweisobjekt ein, und klicken Sie dann auf Suchen, um das Thema anzuzeigen.

Weitere Informationen zum Auflisten der References-Auflistung mithilfe von For Each... Klicken Sie als nächste Anweisung im Visual Basic-Editor im Menü Hilfe auf Microsoft Visual Basic-Hilfe, geben Sie weiter im Office-Assistenten oder im Antwort-Assistenten ein, und klicken Sie dann auf Suchen, um das Thema anzuzeigen.