Zur Hauptseite ... Zum Onlinearchiv ... Zum Abonnement ... Zum Newsletter ... Zu den Tools ... Zum Impressum ... Zum Login ...

Verweise per Code anpassen

Wenn eine Datenbank regelmig abschmiert oder es aus anderen Grnden 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 knnen auch alle Verweise auflisten, Verweise hinzufgen und entfernen.

Beispieldatenbank

Die nachfolgenden Schritte knnen 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 Eintrge 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 prfen

Um die Verweise auf Funktionalitt zu prfen, 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 berprfen, ob es berhaupt kaputte Verweise gibt, kann man folgenden Ausdruck verwenden. Er gibt nur den Wert False zurck, wenn alle Verweise in Ordnung sind.

Debug.Print Application.BrokenReference

Verweis hinzufgen

Zum Hinzufgen eines Verweises reicht eine Anweisung. Mit der Methode AddFromFile der References-Auflistung fgt 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")

© 2003-2015 André Minhorst Alle Rechte vorbehalten.