<\/p>\n
Der in Access eingebaute Importassistent ist hilfreich, wenn man nur hin und wieder eine Tabelle verknüpfen oder importieren möchte. Wenn Sie diesen jedoch regelmäßig nutzen, werden Sie sich früher oder später ärgern, dass Sie jedes Mal erneut den Pfad der Quelldatenbank auswählen müssen. Dummerweise merkt sich Access noch nicht einmal den zuletzt verwendeten Pfad. Zeit, einen Ersatz für diesen Assistenten zu stricken – und zwar in Form eines kleinen Access-Add-Ins. Gleichzeitig erhalten Sie direkt noch einiges Know-how rund um das Verknüpfen und Importieren von Tabellen per VBA.<\/b><\/p>\n
Funktionen des Add-Ins<\/b><\/p>\n
Am Ende des Beitrag soll ein direkt einsetzbares Add-In herauskommen. Dieses sieht wie in Bild 1 aus und bietet eine Reihe interessanter Funktionen, die ein schnellstmögliches Verknüpfen mit den Tabellen anderer Datenbanken erlauben.<\/p>\n
![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2013_02\/TabellenVerknuepfen-web-images\/pic005.png\")
<\/p>\n
Bild 1: Das fertige Add-In zum schnellen Verknüpfen von Tabellen aus anderen Datenbanken<\/span><\/b><\/p>\n Wie schon in der Einführung erwähnt, ist vor allem das ständige Auswählen des Verzeichnisses der Quelldatenbank eine nervige Angelegenheit. Hier sollte auf jeden Fall der Hebel angesetzt werden. Deshalb soll das Formular gleich nach dem Öffnen die zuletzt zum Verknüpfen oder Importieren verwendeten Datenbankdateien anzeigen. Diese Liste könnte mit der Zeit etwas lang werden, deshalb haben wir neben der Schaltfläche zum Auswählen und Hinzufügen einer neuen Datenbank auch noch eine zum Löschen vorhandener Einträge eingebaut. Außerdem finden Sie ganz oben ein Textfeld, mit dem Sie die Datenbank- beziehungsweise Pfadnamen nach gewünschten Begriffen durchsuchen können. Nach Eingabe eines jeden Buchstabens wird der Inhalt des Listenfeldes mit den zuletzt verwendeten Datenbanken aktualisiert.<\/p>\n Fehlt noch eine Option im oberen Bereich des Formulars: Mit Nicht gefundene ausblenden <\/b>stellen Sie ein, ob das obere Listenfeld solche Datenbankdateien, die aktuell nicht vorliegen, ausblenden soll.<\/p>\n Eigentlich könnte man diese auch gleich entfernen, aber es kann ja auch vorkommen, dass Datenbanken auf einem Netzlaufwerk liegen, das aktuell nicht verfügbar ist.<\/p>\n Ein Doppelklick auf einen der Listeneinträge des oberen Listenfeldes liest alle Tabellen der betroffenen Datenbank ein und zeigt diese in dem darunter befindlichen Listenfeld an.<\/p>\n Mit einem Klick auf das Kontrollkästchen Systemtabellen<\/b> können Sie festlegen, ob die Liste nur benutzerdefinierte Tabellen anzeigen soll oder auch Systemtabellen. Rechts davon legen Sie fest, ob Tabellen importiert oder verknüpft werden sollen (eigentlich sollte das Add-In nur das Verknüpfen erlauben, aber das Importieren unterscheidet sich in einem einzigen Parameter – daher haben wir es auch noch hinzugefügt).<\/p>\n Im unteren Listenfeld markieren Sie schließlich die zu verknüpfenden oder zu importierenden Tabellen und führen die Verknüpfung oder den Import mit einem Klick auf die entsprechende Schaltfläche durch.<\/p>\n Tabellen der Lösung<\/b><\/p>\n Das Add-In verwendet zwei Tabellen, um die bereits verwendeten Datenbanken und die Tabellen der aktuellen Quelldatenbank zu speichern.<\/p>\n Die erste Tabelle heißt tblDatenbanken<\/b> und sieht im Entwurf wie in Bild 2 aus. Das Feld Datenbank<\/b> speichert den Datenbanknamen inklusive Pfad, das Feld Vorhanden <\/b>wird erst beim Öffnen des Formulars gefüllt. Dabei erhält es den Wert True<\/b>, wenn eine Datenbank der Tabelle nicht am entsprechenden Ort gefunden werden konnte. Das Feld Datenbank <\/b>ist mit einem eindeutigen Index versehen, damit jede Datenbank nur einfach aufgenommen werden kann.<\/p>\n Bild 2: Tabelle zum Speichern der bereits verwendeten Datenbanken<\/span><\/b><\/p>\n Die Tabelle tblTabellen <\/b>speichert nach der Auswahl der Datenbank, deren Tabellen verknüpft oder importiert werden sollen, die darin enthaltenen Tabellen.<\/p>\n Sie sieht im Entwurf wie in Bild 3 <\/span>aus und enthält neben dem Feld Tabelle <\/b>zum Speichern des Tabellennamens noch das Feld Flags<\/b>, um den Wert des gleichnamigen Feldes der Tabelle MSysObjects <\/b>aufzunehmen.<\/p>\n Bild 3: Tabellen zum Speichern der Tabellen der aktuell als Quelle für die Verknüpfung oder den Import dienenden Datenbank<\/span><\/b><\/p>\n Hauptformular erstellen<\/b><\/p>\n Das Hauptformular der Anwendung heißt frmLinkAndImportAdmin <\/b>und sieht im Entwurf wie in Bild 5 aus und speichert aktuell drei Optionen:<\/p>\n Bild 4: Hauptformular des Add-Ins in der Entwurfsansicht<\/span><\/b><\/p>\n Bild 5: Tabellen zum Speichern der Add-In-Optionen<\/span><\/b><\/p>\n Durch die Verwendung dieser Tabelle und der an die enthaltenen Felder gebundenen Steuerelemente werden die zuletzt verwendeten Einstellungen beim nächsten Start des Add-Ins wiederhergestellt.<\/p>\n Öffnen des Formulars<\/b><\/p>\n Das Öffnen des Formulars löst das Ereignis Beim Laden <\/b>aus, was wiederum die Ereignisprozedur Form_Load <\/b>aus Listing 1<\/a><\/span> auf den Plan ruft. Diese Prozedur ruft zunächst eine weitere Prozedur namens DatenbankenPruefen<\/b> auf. Diese prüft, ob alle bisher verwendeten Datenbanken noch an Ort und Stelle sind. Ist dies nicht der Fall und ist die Option NichtGefundeneAusblenden <\/b>aktiv, werden die entsprechenden Einträge des Listenfeldes lstDatenbanken <\/b>ausgeblendet.<\/p>\n Listing 1: Laden des Formulars<\/p>\n Schauen wir uns zunächst dieses Listenfeld an: Es verwendet die Abfrage qryDatenbanken <\/b>als Datenherkunft. Diese sieht wie in Bild 7 aus – bei zu langen Dateinamen werden Teile durch Platzhalter ersetzt (…<\/b>).<\/p>\n Bild 6: Diese Abfrage fügt die gekürzte Fassung des Datenbanknamens zum Ergebnis hinzu.<\/span><\/b><\/p>\n Bild 7: Datenherkunft für das obere Listenfeld zur Anzeige der Datenbanken<\/span><\/b><\/p>\n Prüfen, ob alle Datenbanken an Ort und Stelle sind<\/b><\/p>\n Die Prozedur DatenbankenPruefen <\/b>durchläuft alle Datensätze der Tabelle tblDatenbanken<\/b>. Dabei versetzt sie den jeweils aktuellen Datensatz in den Bearbeitungsmodus und prüft dann mit der Dir<\/b>-Funktion, ob die im Feld Datenbank <\/b>angegebene Datei vorhanden ist.<\/p>\n Dies ist der Fall, wenn die Dir<\/b>-Funktion eine Zeichenkette liefert, deren Länge größer als 0 <\/b>ist. In diesem Fall stellt die Prozedur den Wert des Feldes Vorhanden <\/b>auf den Wert True <\/b>ein, sonst auf False<\/b>. Schließlich speichert die Prozedur die änderung mit der Update<\/b>-Methode und prüft dann den nächsten Datensatz:<\/p>\n Der Rest der Prozedur Form_Load <\/b>ist schnell erklärt: Diese leert die Tabelle tblTabellen<\/b>, da beim Öffnen des Formulars keiner der Listeneinträge markiert ist und somit auch keine Tabellen angezeigt werden sollen.<\/p>\n Das Listenfeld lstTabellen<\/b> wird aktualisiert, danach stellt die Prozedur die Breite der angezeigten Spalte des Listenfeldes lstDatenbanken <\/b>auf die Breite des gesamten Listenfeldes ein. Schließlich ruft die Prozedur eine weitere Routine namens DatenbankenAktualisieren <\/b>auf (siehe Listing 2<\/a><\/span>).<\/p>\n Listing 2: Aktualisieren der Datenbanken<\/p>\n <\/p>\n Diese stellt einfach nur sicher, dass das Listenfeld lstDatenbanken <\/b>nur diejenigen Datenbanken anzeigt, die der Benutzer sehen will. Dies hängt wieder von der Einstellung der Option NichtGefundeneAusblenden <\/b>ab. Hat diese den Wert True<\/b>, erhält das Listenfeld lstDatenbanken <\/b>eine Abfrage basierend auf der Abfrage qryDatenbanken <\/b>als Datensatzherkunft, die lediglich die vorhandenen Datenbanken anzeigt. Anderenfalls zeigt das Listenfeld alle Einträge an.<\/p>\n Die gleiche Routine wird noch zu einer anderen Gelegenheit aufgerufen – nämlich dann, wenn der Benutzer den Wert des Kontrollkästchens chkNichtGefundeneAusblenden <\/b>ändert:<\/p>\n Dies aktualisiert schlicht die aktuell im Listenfeld lstDatenbanken <\/b>angezeigten Einträge.<\/p>\n Datenbank hinzufügen<\/p>\n Schauen wir uns nun an, was bei einem Mausklick auf die Schaltfläche Datenbank hinzufügen <\/b>geschieht. Dies löst die Prozedur aus Listing 3<\/a><\/span> aus.<\/p>\n Listing 3: Hinzufügen einer neuen Datenbank<\/p>\n Diese besitzt eine kleine Funktion, die dafür sorgt, dass im nun erscheinenden Datei öffnen<\/b>-Dialog gleich das Verzeichnis der aktuell im Listenfeld lstDatenbanken <\/b>markierten Datenbank erscheint. Dazu prüft die Prozedur zunächst, ob überhaupt ein Eintrag des Listenfeldes lstDatenbanken <\/b>markiert ist. Falls nicht, verwendet sie einfach den Pfad der aktuellen Datenbank als Startverzeichnis. Anderenfalls liest sie den Pfad für den aktuellen Datensatz im Listenfeld aus der Tabelle tblDatenbanken <\/b>ein und schneidet den Teil hinter dem letzten Backslash-Zeichen ab.<\/p>\n Damit ausgestattet, ruft die Prozedur die Funktion OpenFileName <\/b>auf. Diese befindet sich im Modul mdlTools <\/b>der Datenbank und zeigt, basierend auf der Wizhook<\/b>-Klasse, den Datei öffnen<\/b>-Dialog an. Das Ergebnis dieser Funktion landet in der Variablen strDatenbank<\/b>.<\/p>\n Sollte der Benutzer eine Datei ausgewählt haben, ist die folgende If…Then<\/b>-Bedingung erfüllt und die Prozedur führt die darin enthaltenen Anweisungen aus. Dies beginnt mit dem Einfügen des Namens der gefundenen Datei in die Tabelle tblDatenbanken<\/b>. Dabei kann es vorkommen, dass die gewählte Datenbank bereits in der Tabelle enthalten ist. Ist dies der Fall, löst dies wegen des eindeutigen Index im Feld Datenbank <\/b>der Tabelle tblDatenbanken <\/b>den Fehler mit der Nummer 3022 <\/b>aus. Ist dies der Fall, aktualisiert die Prozedur den Wert des Feldes Vorhanden <\/b>auf den Wert True <\/b>– die Datenbank ist nun auf jeden Fall vorhanden.<\/p>\n Außerdem ermittelt die Prozedur mithilfe einer entsprechenden Datensatzgruppe den Wert des Feldes DatenbankID <\/b>des betroffenen Datensatzes. <\/p>\n Wenn die Datenbank noch nicht in der Tabelle tblDatenbanken <\/b>enthalten ist, löst das Anlegen des entsprechenden Datensatzes keinen Fehler aus und der zweite Teil der If…Then<\/b>-Bedingung wird ausgelöst. In diesem Fall speichert die Prozedur einfach nur den mit der Abfrage <\/p>\n ermittelten Primärschlüsselwert des neu hinzugefügten Datensatzes in der Variablen lngNeueDatenbankID<\/b>.<\/p>\n Wozu benötigen wir diesen Wert Um die gewählte Datenbank im Listenfeld zu markieren, nach dem dessen Inhalt aktualisiert wurde. Das Markieren geschieht durch das Zuweisen des Wertes von lngNeueDatenbankID <\/b>als Wert des Listenfeldes.<\/p>\n Danach ruft die Prozedur noch die beiden Routinen TabellenEinlesen <\/b>und TabellenAktualisieren <\/b>auf, die wir uns nachfolgend ansehen.<\/p>\n Tabellen einlesen<\/b><\/p>\n Das Einlesen der Tabellen erledigt die Prozedur TabellenEinlesen<\/b> aus Listing 4<\/a><\/span>. Die Prozedur ermittelt mithilfe der Column<\/b>-Eigenschaft den Wert der dritten Spalte des markierten Eintrags des Listenfeldes. In dieser Spalte speichert das Listenfeld unsichtbar den vollständigen Dateipfad der Datenbank. Nachdem sie geprüft hat, dass die angegebene Datenbankdatei vorhanden ist, leert sie die Tabelle tblTabellen <\/b>und füllt diese erneut. Dazu erzeugt sie zunächst ein Database<\/b>-Objekt auf Basis der Add-In-Datenbank. Diese wird, im Gegensatz zur aktuell geöffneten Datenbank, mit CodeDb <\/b>und nicht mit CurrentDb <\/b>referenziert (deshalb verwenden wir an anderer Stelle im Code auch die db.OpenRecordset<\/b>-Methode statt DLookup <\/b>– wobei sich db <\/b>ebenfalls auf CodeDb<\/b>, also das Add-In, bezieht).<\/p>\n Listing 4: Einlesen der Tabellen einer Datenbank<\/p>\n Die Werte der Felder Tabelle <\/b>und Flags <\/b>der Tabelle tblTabellen <\/b>beziehen wir aus der Tabelle MSysObjects <\/b>der aktuell im Listenfeld lstDatenbanken <\/b>markierten Datenbankdatei. Damit wir per SELECT<\/b>-Abfrage auf diese Tabelle zugreifen können, fügen wir dem Namen der Tabelle MSysObjects <\/b>den IN<\/b>-Parameter mit dem Namen der Quelldatenbank hinzu – dies sieht etwa so aus:<\/p>\n Die Bedingung Type = 1 sorgt dafür, dass nur direkt in der Quelldatenbank enthaltene Tabellen berücksichtigt werden und keine per Jet oder ODBC verknüpften Tabellen.<\/p>\n Nach dem Einlesen der Tabellen prüft die Prozedur TabellenAktualisieren <\/b>noch, ob der Benutzer die Option Systemtabellen <\/b>aktiviert hat (siehe Listing 5<\/a><\/span>). Falls ja, soll das Listenfeld alle Datensätze der Tabelle tblTabellen <\/b>anzeigen, sonst nur diejenigen Datensätze, deren Wert im Feld Flag <\/b>nicht auf eine Systemtabelle hinweist (weitere Informationen zu diesem Feld finden Sie im Beitrag Die Tabelle MSysObjects <\/b>(www.access-im-unternehmen.de\/874<\/b>).<\/p>\n Listing 5: Aktualisieren der Anzeige der Tabellen<\/p>\n Entfernen von Datenbanken<\/b><\/p>\n Klickt der Benutzer auf die Schaltfläche Datenbank entfernen<\/b>, soll die aktuell im Listenfeld markierte Datenbank aus der Tabelle tblDatenbanken <\/b>gelöscht und das Listenfeld aktualisiert werden.<\/p>\n Die Schaltfläche löst die Prozedur cmdDatenbankEntfernen <\/b>aus Listing 6<\/a><\/span> aus. Diese prüft zunächst, ob überhaupt ein Eintrag im Listenfeld markiert wurde. Falls ja, löscht eine DELETE<\/b>-Anweisung den entsprechenden Datensatz aus der Tabelle tblDatenbanken<\/b>. Anschließend aktualisiert ein Aufruf der Prozedur DatenbankenAktualisieren <\/b>den Inhalt des Listenfeldes lstDatenbanken<\/b>, außerdem wird dieses auf den Wert Null <\/b>eingestellt.<\/p>\n Listing 6: Löschen einer Datenbank aus der Liste der bereits verwendeten Datenbanken<\/p>\n Auswählen der Quelldatenbank <\/b><\/p>\n Mit einem Doppelklick auf einen der Einträge im Listenfeld lstDatenbanken <\/b>soll der Benutzer die Datenbank auswählen, deren Tabellen angezeigt werden und importiert oder verknüpft werden sollen.<\/p>\n Die dadurch ausgelöste Prozedur ruft lediglich die beiden bereits bekannten Routinen TabellenEinlesen <\/b>und TabellenAktualisieren <\/b>auf:<\/p>\n Systemtabellen ein- und ausblenden<\/b><\/p>\n Das Aktivieren oder Deaktivieren der Option Systemtabellen mit dem entsprechenden Kontrollkästchen soll die Systemtabellen ein- oder ausblenden. Dies löst die Routine TabellenAktualisieren <\/b>aus, die sich um den Rest kümmert:<\/p>\n Verknüpfen oder importieren<\/b><\/p>\n Keine Auswirkung auf die Anzeige der Datenbanken oder Tabellen in den beiden Listenfeldern hat die Auswahl eines der beiden Einträge der Optionsgruppe ogrVerknuepfenOderImportieren<\/b>. Dies löst lediglich die Ereignisprozedur aus, die für das Ereignis Nach Aktualisierung <\/b>hinterlegt wurde und wie in Listing 7<\/a><\/span> aussieht.<\/p>\n Listing 7: Aktualisieren der Beschriftung der Schaltfläche cmdVerknuepfen<\/p>\n Die Prozedur stellt je nach Auswahl die Bezeichnung der Schaltfläche cmdVerknuepfen <\/b>auf einen der Ausdrücke Tabellen verknüpfen <\/b>oder Tabellen importieren <\/b>ein.<\/p>\n In Datenbanken suchen<\/b><\/p>\n Mit einem Einzeiler liefert die folgende Prozedur, die durch das Ereignis Bei änderung <\/b>des Textfeldes txtSuche <\/b>ausgelöst wird, eine wichtige Funktion. Sie sorgt damit dafür, dass nach jeder Eingabe eines Zeichens in dieses Textfeld die Datensatzherkunft des Listenfeldes lstDatenbanken <\/b>aktualisiert wird. Dazu stellt sie nur den entsprechenden SELECT<\/b>-Ausdruck zusammen und weist diesen der Eigenschaft Datensatzherkunft <\/b>des Listenfeldes lstDatenbanken <\/b>zu:<\/p>\n Verknüpfen oder Importieren der Tabellen<\/b><\/p>\n Fehlt noch die entscheidende Funktion des kompletten Add-Ins: das Herstellen einer Verknüpfung oder das Importieren der gewählten Tabellen.<\/p>\n Dies erledigt der Benutzer nach der Auswahl von Datenbank und Tabellen mit einem Mausklick auf die Schaltfläche cmdVerknuepfen<\/b>. Diese löst die Prozedur aus Listing 8<\/a><\/span> aus.<\/p>\n Listing 8: Verknüpfen oder Importieren der gewählten Tabellen<\/p>\n Die Prozedur durchläuft alle Einträge der Auflistung ItemsSelected <\/b>des Listenfeldes lstTabellen<\/b>. Diese Auflistung liefert alle Indexwerte der aktuell markierten Einträge des Listenfeldes und speichert den jeweils aktuellen Wert in der Variablen var<\/b>. Innerhalb der For Each-Schleife speichert die Prozedur zunächst den Namen des aktuellen Listenfeldeintrags in der Variablen strTabelle<\/b>. Wenn der Index des betroffenen Datensatzes und die Spalte bekannt sind, können Sie den entsprechenden Wert auch hier wieder mit der Column<\/b>-Eigenschaft unter Verwendung zweier Parameter ermitteln (der erste entspricht der Spalte, der zweite der Zeile).<\/p>\n Auf ähnliche Weise ermittelt die folgende Anweisung den Pfad der zu verwendenden Datenbank und speichert diesen in der Variablen strDatenbank<\/b>.<\/p>\n Nun prüft die Prozedur, ob die Tabelle verknüpft oder importiert werden soll. In beiden Fällen ruft die Prozedur die TransferDatabase<\/b>-Methode des DoCmd<\/b>-Objekts auf. Der Unterschied ist, dass beim Verknüpfen die Konstante acLink <\/b>als erster Parameter verwendet wird, beim Importieren die Konstante acImport<\/b>. Die übrigen Parameter dieser Methode sind die Art der Quelldatei (Microsoft Access<\/b>), der Name der Quelldatenbank, die Art des betroffenen Objekts (acTable<\/b>) sowie der Name der Quelltabelle und der Name der zu erstellenden Tabelle oder Verknüpfung – beide aus der Variablen strTabelle<\/b>.<\/p>\n Beim Verknüpfen kann der Fehler 3845 <\/b>auftreten. Dies geschieht, wenn die Tabelle aus einer Datenbank neuerer Version stammt und Elemente enthält, die in der aktuellen Version nicht unterstützt werden (beispielsweise beim Versuch, eine Tabelle mit einem Anlagefeld in eine .mdb<\/b>-Datenbank einzulesen).<\/p>\n Ist dies der Fall, können Sie die übrigen ausgewählten Tabellen dennoch importieren oder verknüpfen.<\/p>\n Anzeige des kompletten Pfades<\/b><\/p>\n Das Listenfeld zeigt ja gegebenenfalls nur die gekürzte Fassung der Dateinamen samt Pfad an. Das kann unter Umständen hinderlich sein, etwa wenn Sie verschiedene Versionen der gleichen Datenbank in unterschiedlichen Verzeichnissen halten und die entscheidenden Teile des Verzeichnisses gekürzt wurden.<\/p>\n Wir haben für diesen Fall vorgesorgt: Das Listenfeld soll den vollständigen Pfad für den aktuell mit der Maus überfahrenen Eintrag anzeigen (s. Bild 8). <\/p>\n![\"pic008.png\"](\"..\/fileadmin\/_temp_\/2013_02\/TabellenVerknuepfen-web-images\/pic008.png\")
<\/p>\n![\"pic009.png\"](\"..\/fileadmin\/_temp_\/2013_02\/TabellenVerknuepfen-web-images\/pic009.png\")
<\/p>\n![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2013_02\/TabellenVerknuepfen-web-images\/pic006.png\")
<\/p>\n![\"pic007.png\"](\"..\/fileadmin\/_temp_\/2013_02\/TabellenVerknuepfen-web-images\/pic007.png\")
<\/p>\n\n
Private Sub Form_Load()\r\n Dim db As DAO.Database\r\n Set db = CodeDb\r\n DatenbankenPruefen\r\n db.Execute "DELETE FROM tblTabellen", dbFailOnError\r\n Me!lstTabellen.Requery\r\n Me!lstDatenbanken.ColumnWidths = "0;" & Me!lstDatenbanken.Width & ";0"\r\n DatenbankenAktualisieren\r\n Set db = Nothing\r\nEnd Sub<\/pre>\n
![\"pic010.png\"](\"..\/fileadmin\/_temp_\/2013_02\/TabellenVerknuepfen-web-images\/pic010.png\")
<\/p>\n![\"pic011.png\"](\"..\/fileadmin\/_temp_\/2013_02\/TabellenVerknuepfen-web-images\/pic011.png\")
<\/p>\nPrivate Sub DatenbankenPruefen()\r\n Dim db As DAO.Database\r\n Dim rst As DAO.Recordset\r\n Set db = CodeDb\r\n Set rst = db.OpenRecordset("SELECT * FROM tblDatenbanken", dbOpenDynaset)\r\n Do While Not rst.EOF\r\n rst.Edit\r\n If Len(Dir(rst!Datenbank)) > 0 Then\r\n rst!Vorhanden = True\r\n Else\r\n rst!Vorhanden = False\r\n End If\r\n rst.Update\r\n rst.MoveNext\r\n Loop\r\n Set db = Nothing\r\nEnd Sub<\/pre>\nPrivate Sub DatenbankenAktualisieren()\r\n If Me!chkNichtGefundeneAusblenden Then\r\n Me!lstDatenbanken.RowSource = "SELECT * FROM qryDatenbanken WHERE Vorhanden = True"\r\n Else\r\n Me!lstDatenbanken.RowSource = "SELECT * FROM qryDatenbanken"\r\n End If\r\nEnd Sub<\/pre>\n
Private Sub chkNichtGefundeneAusblenden_AfterUpdate()\r\n DatenbankenAktualisieren\r\n End Sub<\/pre>\n
Private Sub cmdDatenbankHinzufuegen_Click()\r\n Dim db As DAO.Database\r\n Dim strPfad As String\r\n Dim strDatenbank As String\r\n Dim lngNeueDatenbankID As Long\r\n Set db = CodeDb\r\n If Not Nz(Me!lstDatenbanken, 0) = 0 Then\r\n strPfad = db.OpenRecordset("SELECT Datenbank FROM tblDatenbanken WHERE DatenbankID = " _\r\n & Me!lstDatenbanken, dbOpenSnapshot).Fields(0)\r\n strPfad = Mid(strPfad, 1, InStrRev(strPfad, "\\"))\r\n Else\r\n strPfad = CurrentProject.Path\r\n End If\r\n strDatenbank = OpenFileName(strPfad, "Datenbank auswählen", _\r\n "Access-Dateien (*.mdb,*.accdb)|Alle Dateien (*.*)")\r\n If Len(strDatenbank) > 0 Then\r\n On Error Resume Next\r\n db.Execute "INSERT INTO tblDatenbanken(Datenbank, Vorhanden) VALUES(''" & strDatenbank _\r\n & "'', -1)", dbFailOnError\r\n If Err.Number = 3022 Then\r\n db.Execute "UPDATE tblDatenbanken SET Vorhanden = -1", dbFailOnError\r\n lngNeueDatenbankID = db.OpenRecordset("SELECT DatenbankID FROM tblDatenbanken " _\r\n & "WHERE Datenbank = ''" & strDatenbank & "''", dbOpenSnapshot).Fields(0)\r\n Else\r\n lngNeueDatenbankID = db.OpenRecordset("SELECT @@IDENTITY").Fields(0)\r\n End If\r\n Me!lstDatenbanken.Requery\r\n Me!lstDatenbanken = lngNeueDatenbankID\r\n TabellenEinlesen\r\n TabellenAktualisieren\r\n End If\r\n Set db = Nothing\r\nEnd Sub<\/pre>\nSELECT @@IDENTITY<\/pre>\n
Private Sub TabellenEinlesen()\r\n Dim db As DAO.Database\r\n Dim strDatenbank As String\r\n strDatenbank = Me!lstDatenbanken.Column(2, Me!lstDatenbanken.ItemsSelected(0))\r\n If Len(Dir(strDatenbank)) > 0 Then\r\n Set db = CodeDb\r\n db.Execute "DELETE FROM tblTabellen", dbFailOnError\r\n db.Execute "INSERT INTO tblTabellen(Tabelle, Flags) SELECT Name, Flags FROM MSysObjects IN ''" _\r\n & strDatenbank & "'' WHERE Type = 1", dbFailOnError\r\n Set db = Nothing\r\n Else\r\n MsgBox "Die Datenbank ist nicht mehr unter dem angegebenen Pfad verfügbar."\r\n End If\r\nEnd Sub<\/pre>\n
INSERT INTO tblTabellen(Tabelle, Flags) SELECT Name, Flags FROM MSysObjects IN ''C:\\Test.mdb'' WHERE Type = 1<\/pre>\n
Private Sub TabellenAktualisieren()\r\n If Me!chkSystemtabellen Then\r\n Me!lstTabellen.RowSource = "SELECT * FROM tblTabellen"\r\n Else\r\n Me!lstTabellen.RowSource = "SELECT * FROM tblTabellen WHERE Flags NOT IN (-2147483648, " _\r\n & "-2147352566, -2147287040, -2146828288, 2, 10, -2147483646, 262154)"\r\n End If\r\nEnd Sub<\/pre>\n
Private Sub cmdDatenbankEntfernen_Click()\r\n Dim db As DAO.Database\r\n If Not Nz(Me!lstDatenbanken, 0) = 0 Then\r\n Set db = CodeDb\r\n db.Execute "DELETE FROM tblDatenbanken WHERE DatenbankID = " & Me!lstDatenbanken\r\n DatenbankenAktualisieren\r\n Me!lstDatenbanken = Null\r\n Set db = Nothing\r\n End If\r\nEnd Sub<\/pre>\n
Private Sub lstDatenbanken_DblClick(Cancel As Integer)\r\n TabellenEinlesen\r\n TabellenAktualisieren\r\nEnd Sub<\/pre>\n
Private Sub chkSystemtabellen_AfterUpdate()\r\n TabellenAktualisieren\r\nEnd Sub<\/pre>\n
Private Sub ogrVerknuepfenOderImportieren_AfterUpdate()\r\n Select Case Me!ogrVerknuepfenOderImportieren\r\n Case 1\r\n Me!cmdVerknuepfen.Caption = "Tabellen verknüpfen"\r\n Case 2\r\n Me!cmdVerknuepfen.Caption = "Tabellen importieren"\r\n End Select\r\nEnd Sub<\/pre>\n
Private Sub txtSuche_Change()\r\n Me!lstDatenbanken.RowSource = "SELECT * FROM qryDatenbanken " _\r\n & "WHERE Datenbank LIKE ''*" & Me!txtSuche.Text & "*''"\r\nEnd Sub<\/pre>\n
Private Sub cmdVerknuepfen_Click()\r\n Dim var As Variant\r\n Dim strTabelle As String\r\n Dim strDatenbank As String\r\n For Each var In Me!lstTabellen.ItemsSelected\r\n strTabelle = Me!lstTabellen.Column(1, var)\r\n strDatenbank = Me!lstDatenbanken.Column(2, Me!lstDatenbanken.ItemsSelected(0))\r\n On Error Resume Next\r\n Select Case Me!ogrVerknuepfenOderImportieren\r\n Case 1\r\n DoCmd.TransferDatabase acLink, "Microsoft Access", strDatenbank, acTable, _\r\n strTabelle, strTabelle\r\n Case 2\r\n DoCmd.TransferDatabase acImport, "Microsoft Access", strDatenbank, acTable, _\r\n strTabelle, strTabelle\r\n End Select\r\n Select Case Err.Number\r\n Case 3845\r\n If MsgBox(Err.Description & vbCrLf & vbCrLf & "Klicken Sie auf ''Abbrechen'', um " _\r\n & "den Vorgang zu beenden. ''OK'' liest weitere Tabellen ein.", _\r\n vbOKCancel + vbCritical, "LinkAndImportAdmin") = vbCancel Then\r\n Exit Sub\r\n End If\r\n Case 0\r\n Case Else\r\n MsgBox "Fehler " & Err.Number & ", ''" & Err.Description & "''"\r\n End Select\r\n Next var\r\nEnd Sub<\/pre>\n
![\"pic012.png\"](\"..\/fileadmin\/_temp_\/2013_02\/TabellenVerknuepfen-web-images\/pic012.png\")
<\/p>\n