Verweise per Code anpassen

Wenn eine Datenbank regelmäßig abschmiert oder es aus anderen Gründen notwendig ist, öfter die Verweise auf externe Bibliotheken zu erneuern, hilft der nachfolgend beschriebend Code weiter. Damit finden Sie nicht nur heraus, welche Verweise kaputt sind, sondern können auch alle Verweise auflisten, Verweise hinzufügen und entfernen.

Beispieldatenbank

Die nachfolgenden Schritte können mit der Funktion ListReferences im Modul mdlReferences der Beispieldatenbank AccessSQLDotNet.mdb nachvollzogen werden.

Verweise ausgeben

Die Ausgabe aller vorhandenen Verweise erfolgt mit nachfolgender Prozedur. Sie macht sich die References-Auflistung zu Nutze und gibt all ihre Einträge mit Pfad aus.

Public Function ListReferences()

Dim i As Integer

Dim intNumberOfReferences As Integer

intNumberOfReferences = Application.References.Count

For i = 1 To intNumberOfReferences

Debug.Print Application.References(i).Name, Application.References(i).FullPath

Next i

End Function

Verweise prüfen

Um die Verweise auf Funktionalität zu prüfen, verwendet man die Eigenschaft IsBroken wie in folgendem Beispiel:

Public Function ListReferences()

Dim i As Integer

Dim intNumberOfReferences As Integer

intNumberOfReferences = Application.References.Count

For i = 1 To intNumberOfReferences

Debug.Print Application.References(i).Name, Application.References(i).FullPath, Application.References(i).IsBroken

Next i

End Function

Um vorneweg zu überprüfen, ob es überhaupt kaputte Verweise gibt, kann man folgenden Ausdruck verwenden. Er gibt nur den Wert False zurück, wenn alle Verweise in Ordnung sind.

Debug.Print Application.BrokenReference

Verweis hinzufügen

Zum Hinzufügen eines Verweises reicht eine Anweisung. Mit der Methode AddFromFile der References-Auflistung fügt man einen Verweis auf die nachfolgend angegebene Datei hinzu.

Application.References.AddFromFile "c:\Windows\System32\Beispiel.dll"

Verweis entfernen

Zum Entfernen eines Verweises dient die Methode Remove:

Application.References.Remove Application.References("Beispielverweis")