<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
Microsoft Access bietet eigentlich alles, was das Datenbankentwicklerherz begehrt – zumindest solange, bis der Access-Entwickler einen Blick über den Tellerrand wagt und sieht, was mit Access noch alles möglich ist. Denn Access kann so ziemlich alle Anwendungen, auf deren Objektmodell es per VBA zugreifen kann, steuern und mit ihnen kommunizieren – ob mit Word, Excel, Outlook oder anderen Produkten. Und auch die Funktionalität anderer bestehender Datenbanken lässt sich unter Access durch das Setzen eines einfachen Verweises auf eine so genannte Bibliothek wieder verwenden. Im vorliegenden Beitrag erfahren Sie, was es mit diesen Bibliotheken auf sich hat, welche Möglichkeiten es zum Setzen von Verweisen gibt und wie Sie dabei entstehende Probleme elegant umschiffen können.<\/b><\/p>\n
Access, Word, Excel, Outlook und viele andere Anwendungen, die übrigens nicht zwangsläufig aus Redmond stammen müssen, haben eines gemeinsam: Die Funktionalität dieser Anwendungen befindet sich in der Regel in einer oder mehreren Dynamic Link Libraries (DLLs), Objekt Libraries (OLBs), ActiveX Controls (OCX) oder Dateien ähnlichen Dateityps. Dabei beinhaltet jede dieser Dateien Funktionen zu einem bestimmten Anwendungsgebiet.<\/p>\n
So hat z. B. Microsoft Word eine umfangreiche Bibliothek mit allen möglichen Funktionen zum Bearbeiten von Texten (MSWORD.OLB).<\/p>\n
Auch Windows enthält einige DLLs, die Funktionen für Bereiche wie Benutzeroberfläche, Dateioperationen, Textausgaben etc. beinhalten. Der Begriff für die Gesamtheit dieser Bibliotheken lautet Application Programming Interface (API). <\/p>\n
Sie können sowohl die Bibliotheken mit den Systemfunktionen von Windows als auch die Objektbibliotheken der unterschiedlichen Anwendungen mit Hilfe von VBA in Access verwenden.<\/p>\n
Die Einbindung der beiden Bibliotheksarten unterscheidet sich jedoch grundlegend: Während Sie die Windows-Funktionen im Code zunächst deklarieren und anschließend per Funktionsaufruf verwenden können, bieten die Objektbibliotheken von Anwendungen wesentlich mehr Komfort:<\/p>\n
Nach dem Einbinden der gewünschten Bibliothek durch Setzen eines entsprechenden Verweises können Sie die Objekte, Eigenschaften und Methoden des jeweiligen Objektmodells genauso verwenden wie die Objekte, die Sie bisher in Access verwendet haben.<\/p>\n
Dabei basieren die Funktionen, die Sie tagtäglich bei der Entwicklung von Access-Datenbanken verwenden, genauso auf per Verweis eingebundene Objektbibliotheken. Unter Access sind standardmäßig die Bibliotheken Visual Basic For Applications, Microsoft Access x.0 Objekt Library und Microsoft DAO x.xx Object Library (Access 97) oder Microsoft ActiveX Data Objects 2.1 Library und OLE Automation (beide Access 2000 und höher) eingebunden.<\/p>\n
Mit einem Verweis auf eine der Objektbibliotheken wie z. B. von Word (Microsoft Word x.0 Object Library) können Sie diese Anwendung komplett steuern.<\/p>\n
Auch Access-Datenbanken können Sie als Bibliothek einsetzen: Wenn im Laufe Ihrer Arbeit mit Access z. B. eine umfangreiche Sammlung von Prozeduren oder Funktionen entstanden ist, haben Sie entweder bereits eine Datenbank mit den gesammelten Werken – oder Sie wünschen, dass Sie eine hätten.<\/p>\n
Eine solche Sammlung hätte den Vorteil, dass Sie die Datenbank einfach in andere Datenbanken einbinden könnten und auf ihre Funktionen und Prozeduren zugreifen könnten, als wenn sie sich in der gleichen Datenbank befinden.<\/p>\n
Mit einem kleinen Trick ist es sogar möglich, auch andere Objekte wie Formulare oder Berichte auf diese Weise verfügbar zu machen.<\/p>\n
Der wesentliche Schritt für Access auf dem Weg vom Einzelkämpfer zum Teamplayer besteht im Anlegen eines geeigneten Verweises.<\/p>\n
Sie verfügen über Microsoft Access und mindestens eine weitere Anwendung, die Sie gerne von Access aus steuern oder deren Funktion Sie in Access verwenden möchten<\/p>\n
Dann fehlt nur noch ein Verweis auf die gewünschte Anwendung. Zum Setzen eines Verweises gehen Sie folgendermaßen vor:<\/p>\n
![](\"..\/fileadmin\/_temp_\/{77744487-2377-451B-83F6-AE49DCDAB0DC}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Dialog zum Setzen von Verweisen<\/span><\/b><\/p>\n Wenn Sie hier beispielsweise den Eintrag Microsoft x.0 Object Library aktivieren, können Sie im VBA-Editor leicht auf die Objekte von Word zugreifen.<\/p>\n Wie das funktioniert, sehen Sie, wenn Sie die Beispielprozedur aus Bild 2 eingeben. Der Editor bietet die Elemente der Objektbibliothek nach der Eingabe des Hauptobjekts Word zur Auswahl an.<\/p>\n <\/b><\/p>\n Bild 2: Das Word-Objektmodell im Einsatz<\/span><\/b><\/p>\n Wenn Sie eine Datenbank mit einer Sammlung oft verwendeter Funktionen und Prozeduren Ihr Eigen nennen, können Sie diese auch in anderen Access-Datenbanken verfügbar machen.<\/p>\n Dazu gehen Sie ähnlich wie beim Setzen eines herkömmlichen Verweises vor. Die Auswahl des Verweises selbst ist allerdings etwas aufwändiger: Da die Datenbank nicht als Objektbibliothek, DLL o. ä. registriert ist, müssen Sie die Datenbank selbst auswählen.<\/p>\n Dazu klicken Sie im Dialog Verweise auf die Schaltfläche Durchsuchen… und wählen dort die entsprechende Bibliotheksdatenbank aus.<\/p>\n Wenn eine Datenbankanwendung einen Verweis auf eine Bibliothek enthält und die referenzierte Datei aus irgendeinem Grund nicht an dem angegebenen Ort gefunden wird, versucht Access zunächst selbst, die Bibliothek an einem anderen Ort zu finden.<\/p>\n Dabei bezieht Access die folgenden Verzeichnisse in die Suche ein:<\/p>\n Wenn Access die gesuchte Bibliothek dort immer noch nicht findet, erscheint eine entsprechende Fehlermeldung.<\/p>\n <\/p>\n Die Fehlermeldung kann zwei Ausprägungen annehmen: entweder es erscheint die Fehlermeldung aus Bild 4 oder eine Fehlermeldung mit dem Text Funktion steht in Ausdrücken nicht zur Verfügung. Letztere tritt oft in Zusammenhang mit eingebauten Access-Funktionen wie Links(), Rechts() oder Format() auf.<\/p>\n Besonders häufig treten Probleme mit Verweisen auf, wenn Sie Access-Datenbanken in irgendeiner Weise – z. B. durch Weitergabe an Kunden etc. – auf einem anderen als dem Entwicklungsrechner verwenden. Dort können aus verschiedenen Gründen Probleme auftreten:<\/p>\n Sie können das Auftreten eines fehlerhaften Verweises folgendermaßen reproduzieren:<\/p>\n Quellcode 1<\/b><\/p>\n <\/b><\/p>\n Bild 3: Die eingebundene Bibliotheksdatenbank<\/span><\/b><\/p>\n Abgesehen davon, dass die eingebundene Datenbank nun in der Liste der Verweise auftaucht (siehe Bild 3), macht sie sich nicht bemerkbar. Erst die Eingabe der Anweisung Test im Testfenster (zu aktivieren mit der Tastenkombination Strg + G) und das anschließend erscheinende Meldungsfenster beweisen die Funktionstüchtigkeit der eingebundenen Datei.<\/p>\n Nun „stören“ Sie den Verweis, indem Sie den Dateinamen der Datenbank Bibliothek.mdb ändern oder die Datei in ein anderes Verzeichnis kopieren.<\/p>\n Sie können den Speicherort oder den Dateinamen der eingebundenen Datenbank nicht verändern, wenn der Verweis aktiv ist. Das ist der Fall, wenn die verweisende Datenbank bereits irgendeine Funktion der Bibliotheksdatenbank aufgerufen hat. <\/p>\n Wenn Sie nun die gewünschte Funktion aufrufen, erscheint eine entsprechende Fehlermeldung (siehe Bild 4).<\/p>\n <\/b><\/p>\n Bild 4: Diese Meldung kann auf einen ungültigen Verweis hinweisen.<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 5: Hinweis auf einen fehlenden Verweis<\/span><\/b><\/p>\n Im Anschluss an diese Meldung öffnet Access den Dialog Verweise und zeigt dort den fehlenden Verweis an.<\/p>\n Wie bereits weiter oben erwähnt, durchsucht Access bei der Suche nach einem Verweis automatisch einige Standardverzeichnisse. Sie können auch selbst ein Verzeichnis zum Speichern von Bibliotheksdatenbanken festlegen.<\/p>\n Dazu müssen Sie einen entsprechenden Eintrag in der Registry von Windows hinterlegen. Gehen Sie dazu folgendermaßen vor:<\/p>\n Falls Sie das Experiment zum Erzeugen eines fehlerhaften Verweises weiter oben mitgemacht und den Fehler noch nicht repariert haben, können Sie diesem noch ein weiteres Experiment anschließen:<\/p>\n Wenn Sie den Registry-Schlüssel erstellt und die Datenbank dort untergebracht haben, rufen Sie einfach noch einmal die Funktion Test() von der verweisenden Datenbank auf.<\/p>\n <\/b><\/p>\n Bild 6: Registry-Eintrag zum Festlegen eines Verzeichnisses für Bibliotheksdatenbanken<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 7: Anzeige einer Funktion aus einer eingebundenen Datenbank<\/span><\/b><\/p>\n Es erscheint zwar erneut die erwartete Fehlermeldung – im anschließend erscheinenden Dialog Verweise findet sich aber kein Hinweis auf einen kaputten Verweis mehr.<\/p>\n Der Hintergrund ist, dass Access erst nach dem Auftreten eines Fehlers durch einen fehlenden Verweis die Standardverzeichnisse durchsucht.<\/p>\n Wenn die gesuchte Datei dort vorhanden ist, repariert Access den Verweis, indem es den neuen Speicherort einsetzt.<\/p>\n Ab Access 2000 können Sie die Module von eingebundenen Datenbanken auch in der aufrufenden Datenbank leicht bearbeiten.<\/p>\n Grund ist der gegenüber Access 97 deutlich verbesserte VBA-Editor, der nun eine übersicht der Module der aktuellen und aller eingebundenen Datenbanken enthält (siehe Bild 7).<\/p>\n Gerade wenn Sie eine Datenbank an einen Kunden oder andere Mitarbeiter weitergeben, werden Sie ungern eine der in Kapitel 3 beschriebenen Fehlermeldungen als Reaktion auf die erste Verwendung der Datenbank erhalten.<\/p>\n Daher erfahren Sie, wie Sie fehlerhafte Verweise möglichst umgehen oder – im schlimmsten Fall – aber zumindest mit einer aussagekräftigeren Fehlermeldung aufdecken können.<\/p>\n Die Verweise werden in einer Auflistung namens References gespeichert. Diese Auflistung enthält für jede im Dialog Verweise markierte Bibliothek einen Eintrag. Mit der folgenden Prozedur können Sie einige Eigenschaften dieser Verweise im Testfenster ausgeben:<\/p>\n Wenn Sie das Vorhandensein einer eingebundenen Datei überprüfen wollen, scheitern Sie gelegentlich an dem geringen Platz zur Anzeige der Dateiherkunft: Der Dateiname ist dann schlicht nicht zu sehen. Mit obiger Prozedur können Sie sich den Pfad in voller Breite im Testfenster ausgeben lassen. <\/p>\n Quellcode 2<\/b><\/p>\n Es macht sich sicher gut, wenn Sie dem Anwender Ihrer Datenbank eine genaue Fehlermeldung präsentieren, falls es mal mit den Verweisen nicht klappt. Er kann Ihnen dann direkt konkrete Hinweise auf eventuelle Fehlfunktionen aufgrund fehlender Verweise geben.<\/p>\n Die folgende Funktion können Sie in Datenbankanwendungen integrieren, die von anderen Benutzern außer Ihnen verwendet werden. Sie liefert direkt beim Start einen Hinweis auf eventuell fehlende Verweise.<\/p>\n Damit die Prozedur beim Starten der Datenbankanwendung aufgerufen wird, legen Sie ein Makro an, das beim Start automatisch ausgeführt wird:<\/p>\n Wenn Sie das Makro testen möchten, können Sie die Datenbank verwenden, in der Sie den Verweis auf die Bibliotheksdatenbank angelegt haben. Benennen Sie die Bibliotheksdatenbank um und starten Sie die Datenbank mit dem Verweis auf diese Datenbank. Daraufhin erscheint das Meldungsfenster aus Bild 8.<\/p>\n <\/b><\/p>\n Bild 8: Hinweis auf einen fehlenden Verweis<\/span><\/b><\/p>\n Wenn Sie beim Aufruf einer Funktion wie z. B. Links(), Rechts() oder Format() eine Fehlermeldung mit dem Text Funktion steht in Ausdrücken nicht zur Verfügung erhalten, verweist die Datenbank möglicherweise auf die falsche Version der Zieldatei. Diesen Fehler können Sie ebenfalls beim Start der Anwendung abfangen.<\/p>\n Dazu benötigen Sie eine beliebige Tabelle und eine Abfrage, die eine der genannten Funktionen auf den Inhalt eines Feldes der Tabelle anwendet (siehe Bild 9). Mit einer Funktion greifen Sie auf den entsprechenden Wert dieser Abfrage zu und fangen den eventuell auftretenden Fehler mit einer entsprechenden Fehlerbehandlung ab. Die Funktion zum Testen der in dieser Abfrage verwendeten VBA-Funktion erstellt ein Recordset mit der Abfrage als Datenherkunft (s. Quellcode 3).<\/p>\n Quellcode 3<\/b><\/p>\n Quellcode 4<\/b><\/p>\n <\/b><\/p>\n Bild 9: Abfrage zum Testen von Verweisen<\/span><\/b><\/p>\n Anschließend liest sie den Wert des Feldes mit der Funktion in eine Variable ein. Wenn der Verweis fehlerhaft ist, tritt ein Fehler auf, der im nächsten Schritt direkt abgefangen wird und eine Prozedur zum Aktualisieren des Verweises aufruft.<\/p>\n Falls die Funktion aus dem vorherigen Abschnitt einen fehlerhaften Verweis findet, ruft sie die Prozedur aus Quellcode 4 auf.<\/p>\n Diese Prozedur testet alle Verweise außer denjenigen, die auf die Bibliotheken Access und VBA zeigen, bis sie einen Fehler findet.<\/p>\n Bei der Entwicklung einer Datenbankanwendung kommt es vor, dass Bibliotheken unnötig referenziert sind, weil deren Funktionen während des Entwicklungsprozesses verwendet, aber später doch wieder herausgenommen wurden.<\/p>\n Darunter leidet die Performance, außerdem können auch bei nicht verwendeten Verweisen Fehler auftreten. Sie sollten daher als letzten Test vor dem Verteilen einer Anwendung unbedingt überprüfen, ob auch alle Verweise benötigt werden, die Sie angelegt haben.<\/p>\n Gehen Sie dazu folgendermaßen vor:<\/p>\n Microsoft Access bietet eigentlich alles, was das Datenbankentwicklerherz begehrt – zumindest solan-ge, bis der Access-Entwickler einen Blick über den Tellerrand wagt und sieht, was mit Access noch alles möglich ist. Denn Access kann so ziemlich alle Anwendungen, auf deren Objektmodell es per VBA zugreifen kann, steuern und mit ihnen kommunizieren – ob mit Word, Excel, Outlook oder anderen Produkten. Und auch die Funktionalität anderer bestehender Datenbanken lässt sich unter Access durch das Setzen eines einfachen Verweises auf eine so genannte Bibliothek wieder verwenden. Im vorliegenden Beitrag erfahren Sie, was es mit diesen Bibliotheken auf sich hat, welche Möglichkeiten es zum Setzen von Verweisen gibt und wie Sie dabei entstehende Probleme elegant umschiffen können.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662003,66032003,44000025],"tags":[],"class_list":["post-55000110","post","type-post","status-publish","format-standard","hentry","category-662003","category-66032003","category-VBA_und_Programmiertechniken"],"yoast_head":"\n![](\"..\/fileadmin\/_temp_\/{77744487-2377-451B-83F6-AE49DCDAB0DC}\/pic002.png\")
<\/p>\nVerweis auf andere Datenbanken<\/h2>\n
Gründe für fehlerhafte Verweise<\/h2>\n
Erzeugen eines fehlerhaftenVerweises<\/h2>\n
Function Test()\r\n MsgBox \"Dies ist eine Funktion aus einer Bibliotheksdatenbank.\"\r\nEnd Function<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{77744487-2377-451B-83F6-AE49DCDAB0DC}\/pic003.png\")
<\/p>\nHinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{77744487-2377-451B-83F6-AE49DCDAB0DC}\/pic004.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{77744487-2377-451B-83F6-AE49DCDAB0DC}\/pic005.png\")
<\/p>\nStandardspeicherort für Verweise festlegen<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{77744487-2377-451B-83F6-AE49DCDAB0DC}\/pic006.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{77744487-2377-451B-83F6-AE49DCDAB0DC}\/pic007.png\")
<\/p>\nBearbeiten von Code aus externen Datenbanken<\/h2>\n
Verweise anzeigen<\/h2>\n
Public Sub VerweiseAnzeigen()\r\n Dim Verweis As Reference\r\n For Each Verweis In References\r\n Debug.Print Verweis.Name & \" \" _ & Verweis.FullPath & \" \" & Verweis.BuiltIn & \" \" _ & Verweis.IsBroken\r\n Next Verweis\r\nEnd Sub<\/pre>\n
Praxis-Tipp<\/h3>\n
Public Function VerweisePruefen1()\r\n Dim Verweis As Reference\r\n For Each Verweis In References\r\n If Verweis.IsBroken = True Then\r\n MsgBox \"Die Anwendung hat einen fehlerhaften Verweis auf die Bibliothek\" _\r\n & Verweis.Name & \" (Version \" & Verweis.Major & \".\" & Verweis.Minor _ & \") gefunden.\" & vbCrLf & \"Bitte geben Sie den Inhalt diese \" _ & \"Meldung an den Datenbankadministrator weiter.\"\r\n End If\r\n Next Verweis\r\nEnd Function<\/pre>\n
Verweise ohne Ziel auffinden<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{77744487-2377-451B-83F6-AE49DCDAB0DC}\/pic008.png\")
<\/p>\nFehlerhafte Verweise auffinden<\/h2>\n
Function VerweisePruefen2()\r\n Dim db As Database\r\n Dim rst As Recordset\r\n Dim Wert As String\r\n Set db = CurrentDb\r\n On Error Resume Next\r\n Set rst = db.OpenRecordset(\"qryTest\", dbOpenDynaset)\r\n Wert = rst!Test\r\n If Err.Number = 3075 Then\r\n MsgBox \"Die Anwendung hat einen fehlerhaften\" _ & \" Verweis entdeckt. Dieser Fehler wird \" _ & \"nun behoben.\"\r\n VerweiseAktualisieren\r\n End If\r\nEnd Function<\/pre>\n
Sub VerweiseAktualisieren()\r\n Dim VerweisAlt, VerweisNeu As Reference\r\n Dim VerweisPfad As String\r\n For Each VerweisAlt In References\r\n If VerweisAlt.Name <> \"Access\" And _ VerweisAlt.Name <> \"VBA\" Then\r\n Set VerweisNeu = VerweisAlt\r\n Exit For\r\n End If\r\n Next VerweisAlt\r\n VerweisPfad = VerweisNeu.FullPath\r\n References.Remove VerweisNeu\r\n References.AddFromFile VerweisPfad\r\n Call SysCmd(504, 16384)\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{77744487-2377-451B-83F6-AE49DCDAB0DC}\/pic009.png\")
<\/p>\nVerweise reparieren<\/h2>\n
Unnötige Verweise entfernen<\/h2>\n