<\/p>\n
Wenn Sie Access-Anwendungen programmieren, nutzen Sie verschiedene Bibliotheken wie etwa die VBA-Bibliothek, die Access-Bibliothek, die DAO-Bibliothek et cetera. In diesem Beitrag schauen wir uns an, wie Sie an wichtige Informationen über diese Bibliotheken gelangen und was dies beispielsweise im Hinblick auf das Ermitteln der neuen Features einer neuen Access-Version bedeutet.<\/b><\/p>\n
Wo stecken die Bibliotheken<\/b><\/p>\n
Als Access-Entwickler wissen Sie natürlich, wie Sie den Speicherort der im aktuellen VBA-Projekt eingebundenen Bibliotheken finden – nämlich im Verweise<\/b>-Dialog, den Sie im VBA-Editor mit dem Menüpunkt Extras|Verweise<\/b> öffnen.<\/p>\n
Allerdings hilft dieser Dialog in vielen Fällen nicht wirklich weiter – er ist schlicht nicht breit genug, um den Pfad des Verweises anzuzeigen (s. Bild 1).<\/p>\n
![\"Verweise](\"..\/fileadmin\/_temp_\/2013_06\/pic_913_001.png\")
<\/p>\n
Bild 1: Verweise auf die aktuell eingebundenen Bibliotheken<\/span><\/b><\/p>\n Pfade und weitere Informationen einlesen<\/b><\/p>\n Wer des VBA einigermaßen mächtig ist, hat wohl schon davon gehört, dass man auch programmatisch auf die Verweise zugreifen kann – und zwar über die References<\/b>-Auflistung des Application<\/b>-Objekts. Um dieses zu nutzen, erstellen wir schnell eine Tabelle namens tblBibliotheken<\/b>, welche die Informationen über die referenzierten Bibliotheken aufnehmen soll. Diese Tabelle sieht im Entwurf wie in Bild 2 aus.<\/p>\n Bild 2: Die Tabelle tblBibliotheken nimmt Informationen zu den Verweisen der aktuellen Datenbank auf.<\/span><\/b><\/p>\n Zum Anzeigen der eingelesenen Daten erstellen wir zwei Formulare – ein Hauptformular namens frmBibliotheken <\/b>und ein Unterformular namens sfmBibliotheken<\/b>. Beide sollen an die Tabelle tblBibliotheken <\/b>gebunden sein, wobei das Hauptformular allerdings die Details und das Unterformular die vollständige Liste der Verweise liefern soll. <\/p>\n Deshalb fügen Sie dem Detailbereich des Unterformulars sfmBibliotheken <\/b>zunächst nur das Feld Bezeichnung <\/b>der Datenherkunft hinzu. Das Hauptformular nimmt zwei Schaltflächen auf, deren Funktion wir im Anschluss erläutern. Außerdem fügen Sie diesem das Unterformular hinzu und ziehen alle Felder der Datenherkunft mit Ausnahme des Primärschlüsselfeldes BibliothekID <\/b>in einen eingerahmten Bereich. Das Ergebnis sieht schließlich wie in Bild 3 aus.<\/p>\n Bild 3: Formular und Unterformular zur Anzeige der Bibliotheken in der Entwurfsansicht<\/span><\/b><\/p>\n Bibliotheken-Tabelle füllen<\/b><\/p>\n Bevor das Formular Daten anzeigen kann, müssen Sie die Tabelle tblBibliotheken <\/b>mit den Informationen über die referenzierten Bibliotheken füllen. Dies erledigt die Prozedur, die durch das Ereignis Beim Klicken <\/b>der linken Schaltfläche namens cmdEinlesen <\/b>ausgelöst wird. Diese Prozedur sieht wie in Listing 1 aus.<\/p>\n Listing 1: Einlesen der referenzierten Bibliotheken<\/span><\/b><\/p>\n Die Prozedur deklariert einige Variablen, darunter die Variable ref <\/b>des Typs Reference<\/b>. Darüber greifen Sie auf die Verweise zu. Zu Beginn leert die Prozedur die Tabelle tblBibliotheken <\/b>mit dem Aufruf einer entsprechenden DELETE<\/b>-Anweisung.<\/p>\n In einer For Each<\/b>-Schleife über die References<\/b>-Auflistung des Application<\/b>-Objekts durchläuft die Prozedur dann alle enthaltenen Elemente. Innerhalb der Schleife setzt die Prozedur in der Variablen strSQL <\/b>eine SQL-Anweisung zusammen, welche die folgenden Eigenschaften des Reference<\/b>-Objekts in die Tabelle tblBibliotheken <\/b>schreibt:<\/p>\n Nach dem Durchlaufen aller Verweise aktualisiert die Prozedur noch das Unterformular. Das Ergebnis sieht beispielsweise wie in Bild 4 aus.<\/p>\n Bild 4: Liste der Verweise und Details des aktuell angezeigten Verweises nach dem Einlesen<\/span><\/b><\/p>\n Haupt- und Unterformular synchronisieren<\/b><\/p>\n Fehlt noch eine Kleinigkeit: Wenn Sie auf einen der Einträge des Unterformulars klicken, soll das Hauptformular die Details zu diesem Datensatz anzeigen. Dazu fügen Sie zur Prozedur Form_Load<\/b>, die beim Laden des Formulars ausgelöst wird, die folgende Zeile hinzu:<\/p>\n Dies synchronisiert den jeweils aktuellen Datensatz in beide Richtungen. Wenn Sie einen Datensatz im Unterformular auswählen, wird dieser im Hauptformular angezeigt und umgekehrt.<\/p>\n Wo ist die korrekte Bezeichnung<\/b><\/p>\n Wenn Sie sich den Verweise<\/b>-Dialog ins Gedächtnis rufen, stellen Sie fest, dass dieser wesentlich aussagekräftigere Bezeichnungen liefert als die Eigenschaft Name – mit VBA <\/b>und Access <\/b>lässt sich ja noch etwas anfangen, aber stdole <\/b>hört sich kryptisch an.<\/p>\n Irgendwo müssen aber doch auch die entsprechenden Bezeichnungen aus dem Verweise<\/b>-Dialog wie Visual Basic for Applications<\/b>, Microsoft Access 14.0 Object Library <\/b>oder OLE Automatisch <\/b>abrufbar sein<\/p>\n Und das ist auch der Fall: Es gibt nämlich noch eine weitere References<\/b>-Auflistung mit entsprechenden Reference<\/b>-Objekten. Diese stellt die Bibliothek Microsoft Visual Basic for Applications Extensibility 5.3 <\/b>bereit, auf die wir nun einen Verweis hinzufügen.<\/p>\n Wir wollen die lange Version der Bezeichnung <\/b>unter einem neuen Feld namens Beschreibung in der Tabelle tblBibliotheken <\/b>speichern. Damit das Formular entweder die Beschreibung oder, falls diese nicht verfügbar ist, die Bezeichnung anzeigt, erstellen wir eine neue Abfrage als Datenherkunft. Diese sieht wie in Bild 5 aus und enthält ein Feld mit folgendem Ausdruck:<\/p>\n Bild 5: Abfrage, die nach Bedarf die Bezeichnung oder die Beschreibung liefert<\/span><\/b><\/p>\n Dieses neue Feld Bezeichnung <\/b>prüft den Inhalt des Feldes Beschreibung<\/b>. Ist dieses nicht leer, wird der Inhalt dieses Feldes zurückgegeben, sonst der Inhalt des Feldes Bezeichnung<\/b>. Damit kein Zirkelbezug ausgelöst wird, verweist die Funktion auf [tblBibliotheken].[Bezeichnung] <\/b>statt nur auf [Bezeichnung]<\/b>.<\/p>\n Ersetzen Sie nun im Haupt- und im Unterformular die Datenherkunft tblBibliotheken <\/b>durch qryBibliotheken<\/b>, damit jederzeit die korrekten Daten angezeigt werden.<\/p>\n Lange Bezeichnung einlesen<\/b><\/p>\n Nun fehlt allerdings noch eine Prozedur, mit der Sie die lange Bezeichnung der Bibliothek einlesen können. Dazu rollen wir die zuvor erstellte Prozedur neu auf und legen diese für das Ereignis Beim Klicken <\/b>der zweiten Schaltfläche cmdEinlesenII <\/b>an (s. Listing 2).<\/p>\n <\/p>\n Listing 2: Einlesen der referenzierten Bibliotheken über die Elemente der VBE-Bibliothek <\/span><\/b><\/p>\n Die Prozedur deklariert eine zusätzliche Variable namens objProject <\/b>mit dem Typ VBIDE.VBProject<\/b>. Dieses soll zunächst mit einem Verweis auf das VBA-Projekt der aktuellen Datenbank gefüllt werden. Normalerweise sollte man meinen, dass es ausreicht, das Projekt etwa mit folgender Anweisung zu referenzieren:<\/p>\n Wenn Sie allerdings zufällig zuvor ein Access-Add-In genutzt haben, zeigt der VBA-Editor auch dessen VBA-Projekt an – und dann liefert ActiveVBProject <\/b>nicht mehr zuverlässig das Projekt der aktuell geöffneten Access-Datenbank.<\/p>\n Diesen ermittelt die Prozedur in einer For Each<\/b>-Schleife über alle aktuell geladenen VBA-Projekte. Wenn die Eigenschaft FileName <\/b>des VBA-Projekts mit der Eigenschaft Name <\/b>der mit CurrentDb <\/b>referenzierten (und gerade geöffneten) Datenbank übereinstimmt, haben Sie das richtige VBA-Projekt erwischt und die Schleife kann mit der Referenz auf dieses Projekt verlassen werden.<\/p>\n Die Variable ref <\/b>ist diesmal als VBIDE.Reference <\/b>deklariert und wir durchlaufen damit die References<\/b>-Auflistung des soeben ermittelten und mit objProject <\/b>referenzierten VBA-Projekts.<\/p>\n In den Eigenschaften des Reference<\/b>-Objekts der VBIDE<\/b>-Klasse findet sich dann auch noch eine weitere Eigenschaft namens Description<\/b>, welche die volle Bezeichnung enthält, wie sie auch im Verweise<\/b>-Dialog erscheint.<\/p>\n Außerdem gibt es einen weiteren kleinen Unterschied: Die Art des Verweises liefert hier die Eigenschaft Type<\/b>, nicht Kind<\/b>. All dies berücksichtigen wir in der Schleife über alle Verweise, in der diese Informationen wie bereits zuvor beschrieben in der Tabelle tblBibliotheken <\/b>landen.<\/p>\n Anschließend zeigt das Formular auch die vollen Bezeichnungen an (s. Bild 6).<\/p>\n Bild 6: Formular mit ausführlichen Bezeichnungen der Bibliotheken<\/span><\/b><\/p>\n Verweise-Dialog anpassen<\/b><\/p>\n Vermutlich gab es bereits tausende Anfragen bei Microsoft mit der Bitte, den Verweise<\/b>-Dialog so anzupassen, dass dieser die Pfade zu den Verweisen vollständig anzeigt. Leider hat sich in dieser Beziehung nichts getan.<\/p>\n Dabei wäre es wirklich sehr einfach, das Steuerelement, das derzeit den Pfad im Verweise<\/b>-Dialog anzeigt, zumindest in ein Textfeld umzuwandeln, damit der Benutzer mit der Maus nach rechts scrollen und den vollständigen Pfad anzeigen und gegebenenfalls kopieren kann.<\/p>\n Sie können eine solche änderung selbstständig durchführen – wir weisen jedoch ausdrücklich darauf hin, dass Microsoft dies in den Lizenzbedingungen untersagt. Die experimentelle Anwendung der nachfolgenden Schritte erfolgt außerdem auf eigene Gefahr.<\/p>\n Um die notwendige änderung vorzunehmen, benötigen Sie zunächst ein Tool, mit dem Sie auf die Innereien des VBA-Editors zugreifen können. Dabei handelt es sich um sogenannte Resource Hacker. Der nachfolgende verwendete ist unter dem Link http:\/\/www.angusj.com\/resourcehacker\/ <\/b>zu finden. Laden Sie das Tool herunter und installieren Sie es. Wenn Sie es starten, verwenden Sie die Kontextmenü-Option Als Administrator ausführen<\/b> der Anwendung, da Sie sonst keine änderungen an der Ressourcen-Datei speichern können und diese somit wirkungslos wären. Das Tool präsentiert sich nach dem Start wie in Bild 7.<\/p>\n Bild 7: Der Resource Hacker direkt nach dem Start<\/span><\/b><\/p>\n Nun öffnen Sie zunächst die benötigte Ressourcen-Datei. Diese finden Sie im folgenden Verzeichnis:<\/p>\n Wählen Sie diese im Datei öffnen<\/b>-Dialog des Resource Hacker<\/b>-Tools aus und klicken Sie auf öffnen<\/b> (s. Bild 8).<\/p>\n Bild 8: öffnen der zu ändernden Datei<\/span><\/b><\/p>\n Nun wird es interessant: Das linke TreeView<\/b>-Steuerelement liefert einige Einträge, zum Beispiel einen namens Dialog<\/b>. Wenn Sie diesen Eintrag öffnen, finden Sie eine ganze Reihe weiterer Einträge vor, die von 4019 <\/b>aus durchgehend nummeriert sind. öffnen Sie einen dieser Einträge, erscheint jeweils ein weiterer Eintrag mit der Bezeichnung 1031<\/b>. Diese Zahl repräsentiert die verwendete Sprache, hier für die deutsche Version. Klicken Sie auf 1031<\/b>, liefert das Steuerelement rechts die zur Definition des Dialogs notwendigen Codezeilen. Außerdem erscheint ein weiteres Fenster, das den nackten Entwurf des Dialogs ohne Werte anzeigt.<\/p>\n Klicken Sie hier auf ein Steuerelement, markiert der Resource Hacker <\/b>sogar die für die Definition des Codes verantwortliche Codezeile (s. Bild 9).<\/p>\n Bild 9: Der Resource Hacker mit dem Code für das Steuerelement des Verweise-Dialogs, der den Pfad des aktuell markierten Verweises anzeigt<\/span><\/b><\/p>\n Um die gewünschte änderung durchzuführen, brauchen Sie keine genauen Kenntnisse der hier verwendeten Sprache zur Beschreibung der Steuerelemente. Es reicht aus, dass Sie die Zeile finden, die das zu ändernde Steuerelement betrifft. Jede der Zeilen enthält als dritten Parameter anscheinend den Steuerelementtyp, beispielsweise LISTBOX<\/b>, BUTTON<\/b>, EDIT <\/b>oder STATIC<\/b>. ändern Sie für die betroffene Zeile einmal STATIC <\/b>in EDIT<\/b>.<\/p>\n Führen Sie die änderungen mit einem Mausklick auf die Schaltfläche Compile Script <\/b>durch und betrachten Sie, dass das betroffene Steuerelement nun einen weißen statt eines grauen Hintergrunds erhält. Um die änderungen in der Datei zu speichern, wählen Sie den Menüeintrag File|Save <\/b>aus. Sie brauchen die Originaldatei nicht zu sichern: Der Resource Hacker <\/b>sichert diese automatisch unter dem Namen VBE7INTL_original.DLL<\/b>. Weitere Experimente haben außerdem ergeben, dass Sie die Datei VBE7INTL.DLL <\/b>komplett löschen können – beim nächsten Aufruf des VBA-Editors bemerkt Office den Fehler und stellt die Datei wieder her.<\/p>\n Wenn Sie nun den VBA-Editor und am besten auch Access schließen (das gilt für alle Instanzen) und beides erneut öffnen, können Sie den umgestalteten Verweise<\/b>-Dialog ausprobieren. Und in der Tat ermöglicht dieser nun, in den Pfad zu klicken, den kompletten Pfad zu markieren und zu kopieren oder einfach bis zum Ende des Pfades zu scrollen (s. Bild 10). <\/p>\n Bild 10: Der angepasste Verweise-Dialog<\/span><\/b><\/p>\n Beachten Sie, dass diese änderung nach einer Reparaturinstallation oder ähnlichen Aktionen wieder rückgängig gemacht wird. Deshalb sollten Sie nach einer änderung noch eine Kopie der geänderten Datei vorhalten, um diese durch überspielen schnell wieder herstellen zu können.<\/p>\n Bibliotheken durchsuchen<\/b><\/p>\n Jetzt, wo Sie ausreichend Möglichkeiten kennen, den tatsächlichen Speicherort der verschiedenen Bibliotheken zu ermitteln, können wir uns diese Bibliotheken selbst einmal ansehen. Normalerweise würden Sie diese, sofern noch nicht geschehen, per Verweis referenzieren und dann im Objektkatalog betrachten (s. Bild 11).<\/p>\n Bild 11: Der Objektkatalog, gefiltert nach einer bestimmten Bibliothek <\/span><\/b><\/p>\n Sie können sich hier die Klassen, Methoden, Eigenschaften und Ereignisse der verschiedenen Elemente ansehen und sogar Enumerationen betrachten. Aber besonders ergonomisch ist das nicht: Wenn Sie etwa alle Elemente einer Enumeration in Textform kopieren möchten, um diese etwa als Konstanten zu einem VBA-Modul hinzuzufügen, ist das nicht möglich. Sie müssen jedes Element einzelnen kopieren und dann in dieser Form im Modul anlegen:<\/p>\n Dies könnte zum Beispiel gefragt sein, wenn Sie von Early Binding auf Late Binding umstellen, aber zuvor bereits regen Gebrauch der Konstanten gemacht haben. Statt diese alle im Code durch die Zahlenwerte zu ersetzen, was den Code sehr schlecht lesbar macht, könnten Sie einfach alle Konstanten selbst deklarieren. Nun ist dies allerdings eine Arbeit für Leute, die Vater und Mutter erschlagen haben, aber keinesfalls ein geeigneter Zeitvertreib für einen Access-Entwickler.<\/p>\n Type Libraries durchsuchen<\/b><\/p>\n Zu diesem gibt es geeignete Tools – zum Beispiel die Oberon TLB Tools<\/b>, die Sie unter folgendem Link als Testversion finden:<\/p>\n Die Testversion können Sie drei Mal einsetzen, für aktuell $ 25,- schalten Sie die Nutzung dauerhaft frei.<\/p>\n Nach der Installation starten Sie die Anwendung etwa über das Startmenü und wählen im ersten Dialog den Befehl Create HTML File… <\/b>aus. Geben Sie dann zunächst den Pfad zu der zu untersuchenden Datei ein. Im ersten Beispiel wollen wir uns die Datei C:\\Program Files (x86)\\Common Files\\microsoft shared\\VBA\\VBA7\\VBE7.DLL<\/b> ansehen, deren Pfad wir ja nun leicht ermitteln können. Außer dem Pfad zur Quelldatei legen Sie noch eine HTML-Datei fest, in der das Tool das Ergebnis speichern soll. Schließlich legen Sie die Optionen für die Erstellung der Dokumentationsdatei fest, wobei folgende Parameter zur Verfügung stehen (s. Bild 12):<\/p>\n Bild 12: Auswählen der Quelldatei und der Zieldatei und Einstellen der Optionion<\/span><\/b><\/p>\n Nach der Auswahl der gewünschten Optionen erscheint der Webbrowser mit einer Datei wie in Bild 13 – hier mit der Anzeige der FileSystem<\/b>-Funktionen der VBA-Bibliothek. Während die VBA-Bibliothek noch recht überschaubar ist, nimmt etwa die Access-Bibliothek (C:\\PROGRAM FILES (X86)\\MICROSOFT OFFICE\\OFFICE14\\MSACC.OLB<\/b>) schon größere Ausmaße an – sehen Sie sich diese einfach einmal selbst an.<\/p>\n Bild 13: Export der Oberon TLB Tools für die VBA-Bibliothek<\/span><\/b><\/p>\n Was macht man nun mit diesen Informationen über die Type Libraries Sie können sich damit beispielsweise einfach einmal einen überblick über alle verfügbaren Elemente verschaffen. Wer täglich immer mit den gleichen Elementen der Benutzeroberfläche von Access arbeitet, hat möglicherweise schon eine Art Tunnelblick.<\/p>\n Ein Blick in die Type Librarys ist auch dann sinnvoll, wenn es eine neue Version von Access gibt und Sie sich darüber informieren wollen, welche Neuerungen diese Version mit sich bringt. Wer hat schon Lust, die komplette Benutzeroberfläche und sämtliche Menüs sowie den Objektkatalog nach neuen Elementen zu durchsuchen Viel einfacher macht es ein Blick in die Type Library der alten und der neuen Version.<\/p>\n Type Libraries vergleichen<\/b><\/p>\n Und damit kommt noch ein weiteres sehr interessantes Feature der Oberon TLB Tools <\/b>hinzu: Sie können damit nämlich auch die Elemente zweier Versionen einer Bibliothek miteinander vergleichen. Dazu benötigen Sie nur die beiden Versionen der entsprechenden Datei. Wir wollen uns an dieser Stelle einmal ansehen, welche neuen Elemente die Access-Bibliothek von Access 2013 im Vergleich zu Access 2010 mitbringt.<\/p>\n Dazu klicken Sie im Hauptmenü der Oberen TLB Tools <\/b>auf die Schaltfläche Compare Type Libraries… <\/b>und wählen im nun erscheinenden Dialog die zu vergleichenden Dateien aus. Geben Sie auch hier eine HTML-Datei an, die das Ergebnis anzeigen soll (s. Bild 14).<\/p>\n Bild 14: Vergleichen zweier Libraries<\/span><\/b><\/p>\n Nun klicken Sie auf die Schaltfläche OK<\/b> und betrachten die erscheinende HTML-Datei. Diese sieht wie in Bild 15 aus. Wie dort zu erkennen ist, haben genau zwei Objekte eine neue Eigenschaft erhalten – und dabei handelt es sich auch noch um die gleiche Eigenschaft, nämlich IsSQLBackend<\/b>.<\/p>\n Bild 15: Die Unterschiede zwischen der alten und der neuen Access-Bibliothek halten sich im Rahmen.<\/span><\/b><\/p>\n Beim Vergleich der beiden VBA-Bibliotheken zeigt sich wenig überraschend, dass dort gar keine änderungen stattgefunden haben, das gleiche Bild bietet sich bei der DAO-Bibliothek. In beiden Fällen hat sich aber auch die Versionsnummer nicht geändert.<\/p>\n Etwas Hoffnung besteht bei der neueren Variante der DAO-Bibliothek, der Microsoft Office x.0 Database Engine Object Library<\/b>. Hier gibt es zwischen Access 2010 und Access 2013 zumindest schon einmal verschiedene Versionsnummern. Was aber liefert der Versionsvergleich Nun – eigentlich nichts. Allein eine neue Konstante für die neue Version ist hinzugekommen.<\/p>\n Für Entwickler, die sich mit Desktop-Datenbanken beschäftigen und nicht auf die Erstellung von Webdatenbanken abzielen, ist Access 2013 also offensichtlich eine Version, die man auslassen kann – zumindest den Neuerungen nach zu urteilen. Tendenziell ist es nämlich so, dass sich auch änderungen der Benutzeroberfläche normalerweise zumindest in den VBA-Konstanten für die RunCommand-Methode niederschlagen – aber selbst dies ist nicht zu notieren.<\/p>\n Zusammenfassung und Ausblick<\/b><\/p>\n Die hier vorgestellten Techniken und Tools rund um Verweise und Bibliotheken helfen Ihnen dabei, auf die in den Bibliotheken enthaltenen Informationen zuzugreifen. Sie können damit Daten einer einzelnen Bibliothek betrachten oder verschiedene Versionen vergleichen. Schließlich haben Sie hier noch eine Möglichkeit kennengelernt, die Dialoge im VBA-Editor anzupassen.<\/p>\n Enthaltene Beispieldateien:<\/p>\n Bibliotheken.mdb<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2013_06\/pic_913_002.png\")
<\/p>\n![\"Formular](\"..\/fileadmin\/_temp_\/2013_06\/pic_913_003.png\")
<\/p>\nPrivate Sub <\/span>cmdEinlesen_Click()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>ref As <\/span>Reference\r\n Dim <\/span>strSQL As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"DELETE FROM tblBibliotheken\", dbFailOnError\r\n For Each ref In Application.References\r\n With<\/span> ref\r\n strSQL = \"INSERT INTO tblBibliotheken(Bezeichnung, Eingebaut, Pfad, BibliothekGUID, Art, " _\r\n & "Major, Minor) VALUES(''\" & .Name & \"'', \" & CLng(.BuiltIn) & \", ''\" & .FullPath _\r\n & \"'', ''\" & .Guid & \"'', \" & .Kind & \", ''\" & .Major & \"'', ''\" & .Minor & \"'')\"\r\n db.Execute strSQL, dbFailOnError\r\n End With<\/span>\r\n Next<\/span> ref\r\n Me!sfmBibliotheken.Form.Requery\r\nEnd Sub<\/span><\/pre>\n\n
![\"Liste](\"..\/fileadmin\/_temp_\/2013_06\/pic_913_004.png\")
<\/p>\nPrivate Sub <\/span>Form_Load()\r\n Set<\/span> Me.Recordset = _\r\n Me!sfmBibliotheken.Form.Recordset\r\nEnd Sub<\/span><\/pre>\n![\"Abfrage,](\"..\/fileadmin\/_temp_\/2013_06\/pic_913_005.png\")
<\/p>\nBezeichnung: Nz([Beschreibung];[tblBibliotheken].[Bezeichnung])<\/pre>\n
Private Sub <\/span>cmdEinlesenII_Click()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>ref As <\/span>VBIDE.Reference\r\n Dim <\/span>strSQL As String<\/span>\r\n Dim <\/span>objProject As <\/span>VBIDE.VBProject\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"DELETE FROM tblBibliotheken\", dbFailOnError\r\n For Each objProject In VBE.VBProjects\r\n If <\/span>objProject.FileName = CurrentDb.Name Then<\/span>\r\n Exit For<\/span>\r\n End If<\/span>\r\n Next<\/span> objProject\r\n For Each ref In objProject.References\r\n With<\/span> ref\r\n strSQL = \"INSERT INTO tblBibliotheken(Bezeichnung, Eingebaut, Pfad, BibliothekGUID, " _\r\n & "Art, Major, Minor, Beschreibung) VALUES(''\" & .Name & \"'', \" & CLng(.BuiltIn) _\r\n & \", ''\" & .FullPath & \"'', ''\" & .Guid & \"'', \" & .Type & \", ''\" & .Major & \"'', ''\" _\r\n & .Minor & \"'', ''\" & .Description & \"'')\"\r\n db.Execute strSQL, dbFailOnError\r\n End With<\/span>\r\n Next<\/span> ref\r\n Me!sfmBibliotheken.Form.Requery\r\nEnd Sub<\/span><\/pre>\nSet<\/span> objProject = VBE.ActiveVBProject<\/pre>\n![\"Formular](\"..\/fileadmin\/_temp_\/2013_06\/pic_913_006.png\")
<\/p>\n![\"Der](\"..\/fileadmin\/_temp_\/2013_06\/pic_913_007.png\")
<\/p>\nC:\\Program Files (x86)\\Common Files\\microsoft shared\\VBA\\VBA7\\1031\\VBE7INTL.DLL<\/pre>\n
![\"öffnen](\"..\/fileadmin\/_temp_\/2013_06\/pic_913_008.png\")
<\/p>\n![\"Der](\"..\/fileadmin\/_temp_\/2013_06\/pic_913_009.png\")
<\/p>\n![\"Der](\"..\/fileadmin\/_temp_\/2013_06\/pic_913_010.png\")
<\/p>\n![\"Der](\"..\/fileadmin\/_temp_\/2013_06\/pic_913_011.png\")
<\/p>\nPublic <\/span>Const olMailItem = 0<\/pre>\nhttp:\/\/www.oberonplace.com\/products\/tlbtools\/<\/pre>\n
![\"Auswählen](\"..\/fileadmin\/_temp_\/2013_06\/pic_913_012.png\")
<\/p>\n\n
![\"Export](\"..\/fileadmin\/_temp_\/2013_06\/pic_913_013.png\")
<\/p>\n![\"Vergleichen](\"..\/fileadmin\/_temp_\/2013_06\/pic_913_014.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2013_06\/pic_913_015.png\")
<\/p>\nDownloads zu diesem Beitrag<\/h3>\n