<\/p>\n
Es gibt ja die ausgefallensten Konstellationen von Access-Anwendungen. Manche Benutzer verwenden beispielsweise ein Access-Frontend, um die Daten aus verschiedenen Backend-Datenbanken zusammenzuführen und Auswertungen über die enthaltenen Daten durchzuführen. Interessant wird dies, wenn diese Backends sich an häufig wechselnden Orten befinden. Nehmen wir an, drei Tabellen kommen aus Datenbank X, fünf aus Datenbank Y und sieben aus Datenbank Z und so weiter – und manche Datenbanken befinden sich im gleichen Verzeichnis. Da gerät die Aktualisierung der Verknüpfungen schnell zum Tagesprojekt. Damit dies schneller geht, bauen wir uns ein kleines Formular zum schnellen Umschalten der Datenbanken.<\/b><\/p>\n
Wenn Sie in einer Datenbankanwendung Verknüpfungen zu den Tabellen anderer Datenbanken verwenden, können Sie diese mit dem Tabellenverknüpfungsmanager aktualisieren. Dieser ist jedoch nicht besonders komfortabel: Erstens können Sie das Fenster nicht vergrößern, um beispielsweise die kompletten Pfade der verknüpften Tabellen anzuzeigen (s. Bild 1).<\/p>\n
![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2013_02\/VerschiedeneBackends-web-images\/pic002.png\")
<\/p>\n
Bild 1: Der Tabellenverknüpfungs-Manager von Access<\/span><\/b><\/p>\n Sollten Sie eine Access-Datenbank zum Zusammenführen von Tabellenverknüpfungen aus mehreren anderen Datenbanken einsetzen, können Sie auch nicht auf die Schnelle alle Tabellen einer bestimmten Tabelle markieren, um diese en bloc zu aktualisieren. Sie müssen die Tabellen einer Datenbank mühsam zusammensuchen.<\/p>\n Noch interessanter wird es, wenn sich eine Anzahl von Datenbanken mit verknüpften Tabellen auf einem Netzlaufwerk befindet und sich etwa durch die änderung des Laufwerksbuchstabens die Pfade für alle verknüpften Tabellen ändern. In diesem Fall müssen Sie die änderungen für alle Tabellen manuell über den Tabellenverknüpfungs-Manager durchführen.<\/p>\n Glücklicherweise ist das Verknüpfen einer Tabelle kein Hexenwerk, und auch das Aktualisieren einer solchen gelingt per VBA recht einfach. Grund genug, die Funktionalität des Tabellenverknüpfungs-Managers nachzubilden und zu erweitern.<\/p>\n Was ist zu tun<\/b><\/p>\n Schauen wir uns an, welche Situationen auftreten können:<\/p>\n Was benötigen wir, um diese änderungen möglichst komfortabel abbilden zu können Das Formular aus Bild 2 und den darin enthaltenen VBA-Code. Das Add-In ist als Menü-Add-In konzipiert und kann somit von jeder Datenbank aus etwa über den Ribbon-Eintrag Datenbanktools|Add-Ins|Add-Ins|BackendAdmin <\/b>gestartet werden. Es liest beim Öffnen alle Tabellen ein, die aus anderen Access-Datenbanken stammen und zeigt diese in einem Listenfeld an. Was können Sie nun mit diesem Add-In erledigen<\/p>\n Bild 2: Access-Add-In zum Aktualisieren der Verknüpfungen von Tabellen aus externen Datenbanken<\/span><\/b><\/p>\n Datenbanken nach dem Namen filtern<\/b><\/p>\n Ganz oben finden Sie ein Kombinationsfeld, in das Sie Text zum Filtern der Einträge des Listenfeldes mit den verknüpften Tabellen eingeben können. Nach der Eingabe eines jeden Buchstabens filtert das Listenfeld seinen Inhalt und markiert gleichzeitig alle aktuell sichtbaren Einträge.<\/p>\n Dies hat den Vorteil, dass Sie damit gleich die darunter befindlichen Schaltflächen nutzen können:<\/p>\n Zum Verständnis: Markierung und Auswahl<\/b><\/p>\n Damit Sie die Arbeitsweise des Add-Ins verstehen können, müssen wir kurz ein paar Begriffe klären.<\/p>\n Mit Markiert <\/b>meint das Add-In solche Einträge der Tabellenliste, die aktuell mit schwarzem Hintergrund markiert sind.<\/p>\n Mit Ausgewählt <\/b>sind solche Einträge gemeint, die in der ersten Spalte des Listenfeldes ein x <\/b>aufweisen und die beim Klick auf Verknüpfungen aktualisieren <\/b>berücksichtigt werden (s. Bild 3). Mit einer Ausnahme, die später erläutert wird.<\/p>\n Bild 3: Verschiedene Markierungen beim BackendAdmin<\/span><\/b><\/p>\n Es gibt noch zwei Stellen, an denen Einträge mit dem Buchstaben x <\/b>markiert werden können: Wenn eine Tabelle nicht in der angegebenen Datenbank gefunden werden konnte, stellt das Listenfeld dem jeweiligen Tabellennamen ein x <\/b>voran. Und wenn die komplette Datenbank nicht unter dem angegebenen Dateinamen zu finden ist, wird diese mit einem x <\/b>markiert.<\/p>\n Verknüpfungen aktualisieren<\/b><\/p>\n Davon ausgehend, dass Sie eine oder mehrere verknüpfte Tabellen zum Aktualisieren ausgewählt haben, müssen Sie noch angeben, welche Teile des Dateinamens angepasst werden sollen. Wenn beispielsweise der Laufwerksbuchstabe von e:\\ <\/b>auf x:\\ <\/b>geändert werden soll, tragen Sie im Kombinationsfeld Zu ersetzen: <\/b>den Ausdruck e:\\ <\/b>und im Kombinationsfeld Ersetzen mit: <\/b>den Ausdruck x:\\ <\/b>ein.<\/p>\n Sie werden feststellen, dass bei der Eingabe der Zeichenfolge im Kombinationsfeld Zu ersetzen: <\/b>wiederum Einträge im Listenfeld markiert werden. In Bild 4 sehen Sie beispielsweise drei markierte Einträge, die eigentlich aktualisiert werden sollen. Davon enthalten aber nur zwei Einträge den im Kombinationsfeld Zu ersetzen: <\/b>enthaltenen Ausdruck und dementsprechend werden auch nur diese aktualisiert.<\/p>\n Bild 4: Es werden nur die Einträge aktualisiert, die dem Ausdruck im Feld Zu ersetzen: entsprechen.<\/span><\/b><\/p>\n Ein Klick auf die Schaltfläche Verknüpfungen aktualisieren <\/b>erledigt nun den Rest und stellt eine neue Verknüpfung zu der angegebenen Tabelle in der Datenbank mit den neu ermittelten Dateinamen her.<\/p>\n Dabei können zwei Probleme auftauchen:<\/p>\n Bild 5: Die neue Quelldatenbank kann nicht gefunden werden …<\/span><\/b><\/p>\n Bild 6: … oder die zu verknüpfende Tabelle ist nicht in der angegebenen Datenbank enthalten.<\/span><\/b><\/p>\n Auch wenn mit dem Suchen\/Ersetzen-Ausdruck nicht alle zum Neuverknüpfen ausgewählten Datenbanken erfasst werden können, erscheint ein entsprechender Hinweis. Für alle Tabellen, deren neue Quelldatenbank gefunden werden konnte und die dann auch noch eine Tabelle mit dem gesuchten Namen enthalten, aktualisiert das Add-In die Verknüpfung.<\/p>\n Programmierung der Anwendung<\/b><\/p>\n Das Formular frmBackendAdmin <\/b>ist die Schaltzentrale der Anwendung und enthält auch jegliche Funktionalität. Gleich beim Laden wird das Ereignis Beim Laden <\/b>ausgelöst, was die Ausführung der folgenden Ereignisprozedur nach sich zieht:<\/p>\n Die Prozedur VerknuepfungenEinlesen (s. Listing 1<\/a><\/span>) verwendet zwei Variablen des Typs Database <\/b>– eine für die Datenbank, von der aus das Add-In gestartet wird (mit CurrentDb <\/b>referenziert) und eine für das Add-In selbst (CodeDb<\/b>). Die Prozedur führt gleich zu Beginn zwei SQL-Aktionsabfragen aus. Die erste löscht alle in der Tabelle tblTabellenUndDatenbanken <\/b>enthaltenen Datensätze, die zweite fügt für jede in der Zieldatenbank enthaltene Verknüpfung einen Datensatz zu dieser Tabelle hinzu. Dabei verwendet sie die Tabelle MSysObjects <\/b>als Datenherkunft und bezieht sich dabei auf alle Einträge, deren Feld Type <\/b>den Wert 6 <\/b>enthält – dies steht für per ODBC verknüpfte Tabellen. Es landen übrigens die Werte der Felder Name<\/b>, Database <\/b>und ForeignName <\/b>in den Zielfeldern Tabelle<\/b>, DatenbankAlt <\/b>und TabelleOriginal<\/b>. Tabelle <\/b>entspricht dem Namen der Verknüpfung, so wie er im Datenbankfenster beziehungsweise Navigationsbereich der Datenbank angezeigt wird, TabelleOriginal <\/b>ist der Name der Tabelle in der Quelldatenbank.<\/p>\n Listing 1: Einlesen der aktuellen Verknüpfungen der Datenbank<\/p>\n Die Tabelle tblTabellenUndDatenbanken <\/b>sieht im Entwurf übrigens wie in Bild 7 aus. Die Felder Tabelle <\/b>und TabelleOriginal <\/b>speichern den Namen der Verknüpfung sowie den der Originaltabelle, DatenbankAlt <\/b>und DatenbankNeu <\/b>den bisherigen und den zukünftigen Dateipfad der Quelldatei. DatenbankNichtVorhanden <\/b>und TabelleNichtVorhanden <\/b>nehmen die Werte für die x<\/b>-Markierungen in den Spalten für die Tabelle und die Datenbank im Listenfeld auf und Markiert <\/b>verweist mit dem Wert True <\/b>auf Tabellen mit zu ändernden Verknüpfungen.<\/p>\n Bild 7: Tabelle zum Speichern der verknüpften Dateien und ihrer Informationen<\/span><\/b><\/p>\n Danach durchläuft die Prozedur alle Datensätze der Tabelle tblTabellenUndDatenbanken <\/b>in einer Do While<\/b>-Schleife.<\/p>\n Dabei versetzt die Prozedur den aktuellen Datensatz zunächst mit der Edit-Methode in den Bearbeitungsmodus. In einer ersten Prüfung ermittelt sie, ob die angegebene Quelldatenbank dieser Verknüpfung im Dateisystem zu finden ist. Dazu verwendet sie die Dir<\/b>-Funktion mit dem Dateipfad als Parameter.<\/p>\n Liefert diese eine Zeichenkette mit einer Länge größer als 0 <\/b>zurück, ist die Datenbank vorhanden. Anderenfalls stellt die Prozedur den Wert des Feldes DatenbankNichtVorhanden <\/b>auf True <\/b>ein. Ist die Datenbank vorhanden, testet die Prozedur noch, ob diese die angegebene Tabelle enthält.<\/p>\n Dazu erstellt sie ein Recordset auf der Tabelle MSysObjects <\/b>aus der Datenbank, welche die Verknüpfung enthält – dies wird mit dem IN<\/b>-Schlüsselwort und dem nachfolgend angegebenen Namen der Quelldatenbank erreicht. Wenn dieses Recordset auf Basis der Tabelle MSysObjects <\/b>einen Datensatz enthält, dessen Name mit dem Namen aus rst!TabelleOriginal <\/b>übereinstimmt, ist auch die Tabelle vorhanden.<\/p>\n Anderenfalls stellt die Prozedur den Wert des Feldes TabelleNichtVorhanden <\/b>der Tabelle tblTabellenUndDatenbanken <\/b>auf den Wert True <\/b>ein. Schließlich speichert die Prozedur die änderungen mit der Update<\/b>-Methode und springt mit MoveNext <\/b>zum nächsten Datensatz des Recordsets. Anschließend aktualisiert die Prozedur noch den Inhalt des Listenfeldes lstVerknuepfteTabellen <\/b>mit der Requery<\/b>-Methode.<\/p>\n Listenfeld füllen<\/b><\/p>\n Damit kommen wir zum Inhalt des Listenfeldes lstVerknuepfteTabellen<\/b>. Dieses verwendet die Abfrage qryTabellenListe <\/b>als Datensatzherkunft (s. Bild 8). Die Abfrage enthält einige berechnete Felder, deren Formeln aus Platzgründen nicht im Screenshot abgebildet werden konnten.<\/p>\n Bild 8: Diese Abfrage dient als Datenherkunft des Listenfeldes lstVerknuepfteTabellen.<\/span><\/b><\/p>\n <\/p>\n Das Feld MarkiertesFeld <\/b>verwendet die folgende Formel, die den Wert x <\/b>ausgibt, wenn das Feld Markiert <\/b>den Wert Wahr <\/b>enthält:<\/p>\n Das Feld Tabellenname <\/b>soll nicht nur den Tabellennamen ausgeben, sondern auch noch ein x <\/b>voranstellen, wenn das Feld TabelleNichtVorhanden <\/b>den Wert True <\/b>enthält. Außerdem soll neben dem Namen der Verknüpfung in der aktuellen Tabelle auch der Name der Originaltabelle ausgegeben werden:<\/p>\n Gleiches gilt für das Feld Datenbank<\/b>. Dieses prüft jedoch den Inhalt des Feldes DatenbankNichtVorhanden <\/b>und fügt den Wert x <\/b>voran, wenn dieses den Wert True <\/b>aufweist:<\/p>\n Damit das Listenfeld die Daten wie gewünscht anzeigt, stellen Sie die Eigenschaft Spaltenanzahl <\/b>auf 4 <\/b>und die Eigenschaft Spaltenbreiten <\/b>auf 0cm;0,501cm;6cm <\/b>ein (s. Bild 9). Auf diese Weise wird die erste Zeile mit dem Primärschlüsselwert als gebundene Spalte ausgeblendet beziehungsweise mit der Breite 0cm <\/b>angezeigt. Die zweite Zeile zeigt mit einer Breite von 0,5cm <\/b>das x <\/b>an, das einen Eintrag als für eine Verknüpfungsänderung ausgewählt kennzeichnet.<\/p>\n Bild 9: Einstellungen für die Datensatzherkunft des Listenfeldes lstVerknuepfteTabellen<\/span><\/b><\/p>\n Die Zeile mit dem Namen der Verknüpfung und der Originaltabelle erhält eine Breite von 6cm<\/b>, der Dateipfad der Quelldatenbanken nimmt den Rest der Listenfeldbreite ein. Benutzer von Access 2007 und jünger profitieren hier davon, dass sich die Breite des Listenfeldes beim ändern der Breite des Formulars ebenfalls ändert.<\/p>\n Damit der Benutzer bequem Einträge der Liste aus- und abwählen kann, stellen Sie die Eigenschaft Mehrfachauswahl <\/b>des Listenfeldes auf den Wert Erweitert <\/b>ein. Die Auswahl funktioniert dann genauso wie im Windows Explorer.<\/p>\n Filtern von Verknüpfungen<\/b><\/p>\n Das Kombinationsfeld cboSuche <\/b>soll nach der Eingabe eines Ausdrucks die im Listenfeld lstVerknuepfteTabellen <\/b>angezeigten Datensätze filtern – und zwar so, dass nur solche Einträge angezeigt werden, deren Name den im Suchfeld angegebenen Ausdruck enthält. Außerdem sollen alle passenden Einträge direkt markiert werden, damit der Benutzer diese mit einem Klick auf eine der Schaltflächen Markierte auswählen <\/b>oder Markierte hinzufügen <\/b>mit einem x <\/b>in der ersten Spalte versehen und sie somit zur Auswahl der zu ändernden Verknüpfungen hinzufügen kann.<\/p>\n Die beim Eingeben eines Zeichens in das Kombinationsfeld cboSuche<\/b> ausgelöste Prozedur sieht wie in Listing 2<\/a><\/span> aus und prüft zunächst, ob die Länge der enthaltenen Zeichenkette länger als 0 <\/b>ist. Falls ja, stellt sie die Datensatzherkunft auf einen neuen Ausdruck ein. Dieser liefert nur noch diejenigen Einträge der Abfrage qryTabellenListe<\/b>, deren Feld Datenbank <\/b>den in cboSuche <\/b>enthaltenen Ausdruck enthält:<\/p>\n Listing 2: Filtern und markieren von Tabellen mit bestimmten Quelldatenbanken<\/p>\n Die nun angezeigten Einträge durchläuft die Prozedur dann in einer For…Next<\/b>-Schleife und stellt die Eigenschaft Selected <\/b>für die aktuellen Einträge auf den Wert True <\/b>ein. Dadurch werden diese Einträge mit dunklem Hintergrund markiert.<\/p>\n Sollte der Benutzer hingegen soeben den Inhalt von cboSuche <\/b>geleert haben, soll das Listenfeld wieder alle Einträge anzeigen. Außerdem entfernt die Prozedur dann alle Hintergrund-Markierungen, indem sie in einer entsprechenden Schleife den Wert der Eigenschaft Selected <\/b>für alle Einträge auf False <\/b>einstellt.<\/p>\n Markierte Einträge für Verknüpfungsänderung auswählen<\/b><\/p>\n Ein Klick auf die Schaltfläche cmdAktuelleAuswahl <\/b>soll die aktuell markierten, also mit dunklem Hintergrund dargestellten Einträge mit einem x <\/b>in der ersten Spalte versehen. Die dadurch ausgelöste Prozedur finden Sie in Listing 3<\/a><\/span>.<\/p>\n Listing 3: Hinzufügen markierter Einträge zur Liste der neu zu verknüpfenden Tabellen<\/p>\n Sie durchläuft alle Einträge des Listenfeldes in einer For…Next<\/b>-Schleife. Dabei ist 0 <\/b>der erste Wert und die Anzahl der Einträge minus eins der letzte. Innerhalb der Schleife prüft die Prozedur, ob der Wert der Eigenschaft Selected <\/b>für den aktuellen Index True <\/b>lautet. Ist dies der Fall, aktualisiert die folgende UPDATE<\/b>-Abfrage den Wert des Feldes Markiert <\/b>des Datensatzes der Tabelle tblTabellenUndDatenbanken <\/b>mit dem entsprechenden Wert im Primärschlüsselfeld auf -1<\/b>, also True<\/b>.<\/p>\n Den Wert der gebundenen Spalte für den aktuellen Eintrag im Listenfeld ermittelt die Prozedur mit dem Ausdruck Me!lstVerknuepfteTabellen.Column(0,i)<\/b>, wobei 0 <\/b>der ersten Spalte und i <\/b>der aktuellen Zeile entspricht.<\/p>\n Für alle Einträge, deren Selected<\/b>-Eigenschaft auf den Wert False <\/b>lautet, ändert eine UPDATE<\/b>-Aktionsabfrage den Wert des Feldes Markiert <\/b>in der Tabelle tblTabellenUndDatenbanken <\/b>auf 0 <\/b>(False<\/b>).<\/p>\n Markierungen im Listenfeld wiederherstellen<\/p>\n Nach dem Durchlaufen aller Einträge aktualisiert die Prozedur auch noch das Listenfeld. Und damit der Benutzer direkt erkennt, welche Einträge nun für das Verknüpfen vorgesehen sind, versieht die Prozedur ListenfeldmarkierungWiederherstellen <\/b>alle Einträge mit einem dunklen Hintergrund, deren Feld Markiert <\/b>den Wert -1 <\/b>enthält.<\/p>\n Diese Prozedur finden Sie in Listing 4<\/a><\/span>. Sie öffnet zunächst ein Recordset auf Basis der Tabelle tblTabellenUndDatenbanken<\/b>. Dann durchläuft sie in einer For…Next<\/b>-Schleife alle Einträge des Listenfeldes und sucht im Recordset nach einem Eintrag, dessen TabelleID <\/b>dem Wert der ersten Spalte des aktuell durchlaufenen Eintrags des Listenfeldes entspricht.<\/p>\n Listing 4: Farbiges Markieren aller für die Verknüpfungsänderung vorgesehenen Einträge<\/p>\n Dann stellt sie den Wert der Eigenschaft Selected <\/b>für den aktuellen Listenfeldeintrag auf den Wert des Feldes Markiert <\/b>des gefundenen Datensatzes ein.<\/p>\n Markierte Datensätze zur Auswahl hinzufügen<\/b><\/p>\n Die Schaltfläche cmdMarkierteHinzufuegen <\/b>erledigt eine ähnliche Aufgabe wie die Schaltfläche cmdMarkierteAuswaehlen<\/b>. Allerdings werden die aktuell zum ändern der Verknüpfung vorgesehenen Einträge beibehalten und die aktuell markierten zu diesen hinzugefügt (s. Listing 5<\/a><\/span>). Die Herausforderung bei dieser Aktion ist es, nach dem ändern der Tabelle und dem Aktualisieren des Listenfeldes genau diejenigen Datensätze farbig zu hinterlegen, die zuvor auch markiert waren.<\/p>\n Listing 5: Hinzufügen der markierten Elemente zur aktuellen Auswahl<\/p>\n Die Prozedur durchläuft diesmal alle Einträge der Auflistung ItemsSelected <\/b>des Listenfeldes. Es braucht im Gegensatz zur Schaltfläche cmdMarkierteAuswaehlen <\/b>nicht alle Einträge zu durchlaufen, da die nicht markierten ja nicht aus der Auswahl der zu ändernden Verknüpfungen entfernt werden sollen.<\/p>\n Innerhalb dieser Schleife redimensioniert die Prozedur ein Array des Typs Integer <\/b>und stellt die Anzahl der enthaltenen Array-Elemente auf die Anzahl der bisher durchlaufenen Listenfeld-Elemente ein. Dabei sollen die bisher im Array enthaltenen Werte erhalten bleiben (Preserve<\/b>). Innerhalb der Schleife erhöht die Prozedur außerdem jeweils den Wert der Variablen i <\/b>um eins.<\/p>\n i <\/b>dient sowohl als neue Größe des Arrays als auch als Index des aktuell zu füllenden Elements. Das Array nimmt als Werte die Indizes der markierten Elemente auf, damit die Prozedur diese Elemente nach dem Aktualisieren des Listenfeldes wieder markieren kann. Nebenher stellt die Prozedur mit einer UPDATE<\/b>-Aktionsabfrage den Wert des Feldes Markiert <\/b>für den aktuellen Listenfeldeintrag in der Tabelle tblTabellenUndDatenbanken <\/b>auf -1<\/b> ein.<\/p>\n Dann aktualisiert die Prozedur das Listenfeld, damit die neu hinzugekommenen Markierungen in Form des x <\/b>in der ersten Spalte sichtbar werden. Schließlich durchläuft die Prozedur eine For…Next<\/b>-Schleife über alle Elemente des Arrays intMarkiert<\/b>.<\/p>\n Dieses enthält die Indizes der zuvor durch den Benutzer angeklickten und farbig hervorgehobenen Einträge – beispielsweise 2<\/b>, 4 <\/b>und 6<\/b>. Innerhalb der Schleife werden die Einträge des Listenfeldes mit den Indizes 2<\/b>, 4 <\/b>und 6 <\/b>wieder markiert.<\/p>\n Markierte Einträge entfernen<\/b><\/p>\n Die Schaltfläche cmdMarkierteEntfernen <\/b>soll die aktuell markierten Einträge, also solche, die der Benutzer ausgewählt und somit mit einem dunklen Hintergrund versehen hat, aus der Liste der neu zu verknüpfenden Tabellen entfernen. Diese Schaltfläche löst die Prozedur aus Listing 6<\/a><\/span> aus.<\/p>\n Listing 6: Entfernen der markierten Elemente aus der Auswahl<\/p>\n Die Prozedur arbeitet genau wie die zuvor beschriebene Prozedur mit einem Array, um sich vor dem Aktualisieren des Listenfeldes die markierten Einträge zu merken. In einer ersten Schleife des Typs For Each <\/b>durchläuft die Prozedur alle Einträge der Auflistung ItemsSelected <\/b>des Listenfeldes. Darin erweitert die Prozedur das Array intMarkiert <\/b>für jeden markierten Eintrag um eins und speichert den Indexwert des jeweiligen Eintrags im aktuellen Feld des Arrays.<\/p>\n Dann aktualisiert es die Tabelle tblTabellenUndDatenbanken <\/b>so, dass der Wert des Feldes Markiert <\/b>für die markierten Einträge auf den Wert 0 <\/b>eingestellt wird. Nach dem Durchlaufen aller Einträge aktualisiert die Prozedur das Listenfeld und stellt die markierten Einträge wieder her – dies funktioniert genauso wie in der zuvor beschriebenen Prozedur.<\/p>\n Verknüpfungen aktualisieren<\/b><\/p>\n Wenn Sie bei geöffnetem Add-In neue Verknüpfungen zur Datenbank hinzufügen oder bestehende entfernt haben, möchten Sie gegebenenfalls die Anzeige im Listenfeld aktualisieren.<\/p>\n Dies erledigen Sie mit einem Klick auf die Schaltfläche cmdAktualisieren<\/b>. Diese Prozedur löst lediglich die bereits vorgestellte Routine VerknuepfungenEinlesen <\/b>aus:<\/p>\n Neuverknüpfung vorbereiten<\/b><\/p>\n Nun fehlt nur noch ein Schritt, um die Neuverknüpfung durchzuführen: Sie müssen dem Add-In mitteilen, welche Teile des Dateipfades ersetzt werden sollen und wodurch. Dabei helfen die beiden Kombinationsfelder unterhalb des Listenfeldes.<\/p>\n Das erste heißt cboZuErsetzen <\/b>und löst ein Ereignis aus, wenn der Benutzer den Inhalt ändert. <\/p>\n Diese Prozedur ruft eine weitere Prozedur namens ZuErsetzendeMarkieren <\/b>auf und übergibt den aktuellen Text des Kombinationsfeldes an diese Prozedur:<\/p>\n Die Prozedur ZuErsetzendeMarkieren <\/b>sieht wie in Listing 7<\/a><\/span> aus und durchläuft alle Einträge des Listenfeldes.<\/p>\n Listing 7: Markieren aller Einträge, die den zu ersetzenden Ausdruck im Dateipfad enthalten<\/p>\n Dieses enthält ja in der vierten Spalte den Dateipfad. Sollte dieser, ermittelt über die Eigenschaft Column <\/b>mit dem Wert 3 <\/b>für die Spalte und dem aktuellen Index für die Zeile als Parameter, den im Kombinationsfeld cboZuErsetzen <\/b>angegebenen Ausdruck enthalten, wird dieser Eintrag markiert. Falls nicht, wird die Markierung, soweit vorhanden, aufgehoben.<\/p>\n Der Benutzer kann nun hier manuell den gewünschten Teil des Dateipfads eintragen. Alternativ kann er auch auf die Schaltfläche mit den drei Punkten (…) rechts vom Kombinationsfeld klicken und so das zu ersetzende Verzeichnis mit einem Verzeichnis auswählen<\/b>-Dialog ermitteln:<\/p>\n Nachdem Auswählen des Verzeichnisses markiert ein Aufruf der Prozedur ZuErsetzendeMarkieren <\/b>wieder die passenden Einträge im Listenfeld.<\/p>\n Wozu aber verwenden wir hier ein Kombinationsfeld und kein einfaches Textfeld Ganz einfach: Weil alle für die Verknüpfungen verwendeten Dateinamen zur Auswahl bereitgestellt werden sollen. Auf diese Weise kann der Benutzer schnell den kompletten Dateipfad auswählen und dann alles außer den zu ersetzenden Teilen löschen.<\/p>\n Das Kombinationsfeld cboErsetzenMit <\/b>erwartet den Ausdruck als Wert, der für den zu ersetzenden Teil des Dateinamens eingefügt werden soll.<\/p>\n Dabei kann es sich wiederum um einen manuell eingegebenen Teil des Dateinamens handeln oder um ein mit dem Verzeichnis auswählen<\/b>-Dialog ermitteltes Verzeichnis.<\/p>\n Diesen Dialog öffnen Sie wiederum mit einem Klick auf die Schaltfläche mit den drei Punkten neben dem Kombinationsfeld cboErsetzenMit<\/b>:<\/p>\n Verknüpfungen aktualisieren<\/p>\n Schließlich folgt noch das eigentliche Aktualisieren der Verknüpfungen. Dieses startet der Benutzer durch einen Mausklick auf die Schaltfläche cmdVerknuepfungenAktualisieren<\/b>. Diese löst die in Listing 8<\/a><\/span> und Listing 9<\/a><\/span> enthaltene Prozedur aus.<\/p>\n Listing 8: Verknüpfungen aktualisieren, Teil 1<\/p>\n Listing 9: Verknüpfungen aktualisieren, Teil 2<\/p>\n Diese erstellt zunächst ein Recordset auf Basis aller Datensätze der Tabelle tblTabellenUndDatenbanken<\/b>, deren Feld Markiert <\/b>den Wert -1 <\/b>enthält und die somit aktualisiert werden sollen.<\/p>\n Dann ruft die Prozedur die Routine ZuErsetzendeMarkieren <\/b>auf, damit der Benutzer alle zu ersetzenden Verknüpfungen erkennen kann. Dies sind nicht unbedingt alle, die der Benutzer zuvor markiert hat – gegebenenfalls passen einige nicht zu dem im Kombinationsfeld cboZuErsetzen <\/b>angegebenen zu ersetzenden Teilausdruck des Dateinamens.<\/p>\n Um den Benutzer gegebenenfalls von diesem Umstand in Kenntnis zu setzen, durchläuft die Prozedur alle Einträge des Listenfeldes und prüft, ob es irgendeinen Eintrag gibt, dessen zweite Spalte das x <\/b>für die Markierung als zu erneuernde Verknüpfung enthält und der aber nicht durch die Routine ZuErsetzendeMarkieren <\/b>farbig hervorgehoben wurde. In diesem Fall liefert die Prozedur eine entsprechende Meldung und teilt dem Benutzer mit, dass nicht alle mit einem x <\/b>versehenen Verknüpfungen erneuert werden können.<\/p>\n Gegebenenfalls ist auch das Recordset rstAktualisieren <\/b>leer – dies bedeutet, dass der Benutzer gar keine Verknüpfungen zum Aktualisieren ausgewählt hat. Auch in diesem Fall erscheint eine Meldung, außerdem wird die Prozedur hier beendet.<\/p>\n Enthält rstAktualisieren <\/b>mindestens einen Datensatz, prüft die Prozedur, ob der Benutzer einen zu ersetzenden Ausdruck im Kombinationfeld festgelegt hat. Ist dies nicht der Fall, muss er dies nun nachholen. Die gleiche Prüfung erfolgt auch noch für das Kombinationsfeld cboErsetzenMit<\/b>.<\/p>\n Danach durchläuft die Prozedur in einer Schleife alle Datensätze des Recordsets rstAktualisieren<\/b>. Dabei landen die Werte einiger Felder des Recordsets in den Variablen strTabelle<\/b>, strDatenbankAlt <\/b>und strTabelleOriginal<\/b>.<\/p>\n Die Variable strDatenbankNeu <\/b>soll den Namen der Datenbank der neuen Verknüpfung enthalten. Dazu ersetzt die Prozedur in strDatenbankAlt <\/b>den Wert des Kombinationsfeldes cboZuErsetzen <\/b>durch den Wert des Kombinationsfeldes cboErsetzenMit<\/b>. Der neue Pfad zur Datenbank wird in das Feld DatenbankNeu <\/b>des Recordsets geschrieben.<\/p>\n Danach folgen weitere Prüfungen: Zunächst testet die Prozedur, ob die in strDatenbankNeu <\/b>gespeicherte Datei überhaupt vorhanden ist. Ist dies nicht der Fall, liefert die Dir<\/b>-Funktion für diesen Wert eine leere Zeichenkette.<\/p>\n Dann fügt die Prozedur zu einer String-Variablen namens strFehler <\/b>einen Hinweis ein, dass die neue Quelldatenbank gar nicht vorhanden ist.<\/p>\n Ist die neue Datenbank hingegen vorhanden, kann es noch passieren, dass die zu verknüpfende Tabelle dort nicht gefunden werden kann.<\/p>\n Dies prüfen die folgenden Zeilen. Sie erstellen ein Database<\/b>-Objekt und füllen es mit einem Verweis auf die neue Quelldatenbank der Verknüpfung.<\/p>\n Dann füllt die Prozedur ein Recordset namens rstTest <\/b>mit dem Datensatz der Tabelle MSysObjects <\/b>der neuen Quelltabelle, dessen Feld Name <\/b>mit dem Namen der zu verknüpfenden Tabelle übereinstimmt.<\/p>\n Ist das Recordset leer, konnte die Prozedur die zu verknüpfende Tabelle nicht in der neuen Quelldatenbank finden und es wird eine entsprechende Meldung an die Zeichenkette in strFehler <\/b>angehängt.<\/p>\n\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2013_02\/VerschiedeneBackends-web-images\/pic001.png\")
<\/p>\n\n
![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2013_02\/VerschiedeneBackends-web-images\/pic003.png\")
<\/p>\n![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2013_02\/VerschiedeneBackends-web-images\/pic004.png\")
<\/p>\n\n
![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2013_02\/VerschiedeneBackends-web-images\/pic005.png\")
<\/p>\n![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2013_02\/VerschiedeneBackends-web-images\/pic006.png\")
<\/p>\nPrivate Sub Form_Load()\r\n VerknuepfungenEinlesen\r\nEnd Sub<\/pre>\n
Private Sub VerknuepfungenEinlesen()\r\n Dim dbAddIn As DAO.Database\r\n Dim dbHost As DAO.Database\r\n Dim rst As DAO.Recordset\r\n Dim rstTest As DAO.Recordset\r\n Set dbAddIn = CodeDb\r\n Set dbHost = CurrentDb\r\n dbAddIn.Execute "DELETE FROM tblTabellenUndDatenbanken", dbFailOnError\r\n dbAddIn.Execute "INSERT INTO tblTabellenUndDatenbanken(Tabelle, DatenbankAlt, " _\r\n & "TabelleOriginal) SELECT Name, Database, ForeignName From MSysObjects IN ''" _\r\n & CurrentDb.Name & "'' WHERE Type=6", dbFailOnError\r\n Set rst = dbAddIn.OpenRecordset("SELECT * FROM tblTabellenUndDatenbanken " _\r\n & "ORDER BY DatenbankAlt, Tabelle", dbOpenDynaset)\r\n Do While Not rst.EOF\r\n rst.Edit\r\n If Len(Dir(rst!DatenbankAlt)) = 0 Then\r\n rst!DatenbankNichtVorhanden = True\r\n Else\r\n Set rstTest = dbAddIn.OpenRecordset("SELECT Name FROM MSysObjects IN ''" _\r\n & rst!DatenbankAlt & "'' WHERE Name = ''" & rst!TabelleOriginal & "''")\r\n If rstTest.EOF Then\r\n rst!TabelleNichtVorhanden = True\r\n End If\r\n End If\r\n rst.Update\r\n rst.MoveNext\r\n Loop\r\n Me!lstVerknuepfteTabellen.Requery\r\nEnd Sub<\/pre>\n![\"pic007.png\"](\"..\/fileadmin\/_temp_\/2013_02\/VerschiedeneBackends-web-images\/pic007.png\")
<\/p>\n![\"pic008.png\"](\"..\/fileadmin\/_temp_\/2013_02\/VerschiedeneBackends-web-images\/pic008.png\")
<\/p>\nMarkiertesFeld: Wenn([Markiert]=Wahr;"x";"")<\/pre>\n
Tabellenname: Wenn([TabelleNichtVorhanden];\r\n"x ";"") & [Tabelle] & "\/" & [TabelleOriginal]<\/pre>\n
Datenbank: Wenn([DatenbankNichtVorhanden];\r\n"x ";"") & [DatenbankAlt]<\/pre>\n
![\"pic009.png\"](\"..\/fileadmin\/_temp_\/2013_02\/VerschiedeneBackends-web-images\/pic009.png\")
<\/p>\nSELECT * FROM qryTabellenListe WHERE Datenbank LIKE ''*" & Me!cboSuche.Text & "*''"<\/pre>\n
Private Sub cboSuche_Change()\r\n Dim i As Integer\r\n If Len(Me!cboSuche.Text) > 0 Then\r\n Me!lstVerknuepfteTabellen.RowSource = "SELECT * FROM qryTabellenListe " _\r\n & "WHERE Datenbank LIKE ''*" & Me!cboSuche.Text & "*''"\r\n For i = 0 To Me!lstVerknuepfteTabellen.ListCount - 1\r\n Me!lstVerknuepfteTabellen.Selected(i) = True\r\n Next i\r\n Else\r\n Me!lstVerknuepfteTabellen.RowSource = "SELECT * FROM qryTabellenListe"\r\n For i = 0 To Me!lstVerknuepfteTabellen.ListCount - 1\r\n Me!lstVerknuepfteTabellen.Selected(i) = False\r\n Next i\r\n End If\r\nEnd Sub<\/pre>\n
Private Sub cmdMarkierteAuswaehlen_Click()\r\n Dim i As Integer\r\n Dim dbAddIn As DAO.Database\r\n Set dbAddIn = CodeDb\r\n For i = 0 To Me!lstVerknuepfteTabellen.ListCount - 1\r\n If Me!lstVerknuepfteTabellen.Selected(i) = True Then\r\n dbAddIn.Execute "UPDATE tblTabellenUndDatenbanken SET Markiert = -1 WHERE TabelleID = " _\r\n & Me!lstVerknuepfteTabellen.Column(0, i), dbFailOnError\r\n Else\r\n dbAddIn.Execute "UPDATE tblTabellenUndDatenbanken SET Markiert = 0 WHERE TabelleID = " _\r\n & Me!lstVerknuepfteTabellen.Column(0, i), dbFailOnError\r\n End If\r\n Next i\r\n Me!lstVerknuepfteTabellen.Requery\r\n ListenfeldMarkierungWiederherstellen\r\nEnd Sub<\/pre>\n
Private Sub ListenfeldMarkierungWiederherstellen()\r\n Dim i As Integer\r\n Dim dbAddIn As DAO.Database\r\n Dim rst As DAO.Recordset\r\n Set dbAddIn = CodeDb\r\n Set rst = dbAddIn.OpenRecordset("SELECT * FROM tblTabellenUndDatenbanken", dbOpenDynaset)\r\n For i = 0 To Me!lstVerknuepfteTabellen.ListCount - 1\r\n rst.FindFirst "TabelleID = " & Me!lstVerknuepfteTabellen.Column(0, i)\r\n Me!lstVerknuepfteTabellen.Selected(i) = rst!Markiert\r\n Next i\r\nEnd Sub<\/pre>\nPrivate Sub cmdMarkierteHinzufuegen_Click()\r\n Dim var As Variant\r\n Dim dbAddIn As DAO.Database\r\n Dim intMarkiert() As Integer\r\n Dim i As Integer\r\n Set dbAddIn = CodeDb\r\n For Each var In Me!lstVerknuepfteTabellen.ItemsSelected\r\n ReDim Preserve intMarkiert(i)\r\n intMarkiert(i) = var\r\n i = i + 1\r\n dbAddIn.Execute "UPDATE tblTabellenUndDatenbanken SET Markiert = -1 WHERE TabelleID = " _\r\n & Me!lstVerknuepfteTabellen.Column(0, var), dbFailOnError\r\n Next var\r\n Me!lstVerknuepfteTabellen.Requery\r\n For i = LBound(intMarkiert) To UBound(intMarkiert)\r\n Me!lstVerknuepfteTabellen.Selected(intMarkiert(i)) = True\r\n Next i\r\nEnd Sub<\/pre>\n
Private Sub cmdMarkierteEntfernen_Click()\r\n Dim var As Variant\r\n Dim dbAddIn As DAO.Database\r\n Dim intMarkiert() As Integer\r\n Dim i As Integer\r\n Set dbAddIn = CodeDb\r\n For Each var In Me!lstVerknuepfteTabellen.ItemsSelected\r\n ReDim Preserve intMarkiert(i)\r\n intMarkiert(i) = var\r\n i = i + 1\r\n dbAddIn.Execute "UPDATE tblTabellenUndDatenbanken SET Markiert = 0 WHERE TabelleID = " & Me!lstVerknuepfteTabellen.Column(0, var), dbFailOnError\r\n Next var\r\n Me!lstVerknuepfteTabellen.Requery\r\n For i = LBound(intMarkiert) To UBound(intMarkiert)\r\n Me!lstVerknuepfteTabellen.Selected(intMarkiert(i)) = True\r\n Next i\r\nEnd Sub<\/pre>\n
Private Sub cmdAktualisieren_Click()\r\n VerknuepfungenEinlesen\r\nEnd Sub<\/pre>\n
Private Sub cboZuErsetzen_Change()\r\n ZuErsetzendeMarkieren Me!cboZuErsetzen.Text\r\nEnd Sub<\/pre>\n
Private Sub ZuErsetzendeMarkieren(strErsetzen As String)\r\n Dim i As Integer\r\n For i = 0 To Me!lstVerknuepfteTabellen.ListCount\r\n If Me!lstVerknuepfteTabellen.Column(3, i) Like "*" & strErsetzen & "*" Then\r\n Me!lstVerknuepfteTabellen.Selected(i) = True\r\n Else\r\n Me!lstVerknuepfteTabellen.Selected(i) = False\r\n End If\r\n Next i\r\nEnd Sub<\/pre>\n
Private Sub cmdZuErsetzen_Click()\r\n Me!cboZuErsetzen = OpenPathName(CurrentProject.Path)\r\n ZuErsetzendeMarkieren Me!cboZuErsetzen\r\nEnd Sub<\/pre>\n
Private Sub cmdErsetzenMit_Click()\r\n Me!cboErsetzenMit = OpenPathName(CurrentProject.Path)\r\nEnd Sub<\/pre>\n
Private Sub cmdVerknuepfungenAktualisieren_Click()\r\n Dim dbAddIn As DAO.Database\r\n Dim dbHost As DAO.Database\r\n Dim dbSource As DAO.Database\r\n Dim strDatenbankAlt As String\r\n Dim strDatenbankNeu As String\r\n Dim strTabelle As String\r\n Dim rstTest As DAO.Recordset\r\n Dim rstAktualisieren As DAO.Recordset\r\n Dim strTabelleOriginal As String\r\n Dim strFehler As String\r\n Dim i As Integer\r\n Set dbAddIn = CodeDb\r\n Set rstAktualisieren = dbAddIn.OpenRecordset("SELECT * FROM tblTabellenUndDatenbanken WHERE Markiert = -1")\r\n ZuErsetzendeMarkieren Me!cboZuErsetzen\r\n With Me!lstVerknuepfteTabellen\r\n For i = 0 To .ListCount - 1\r\n If .Column(2, i) = "x" And .Selected(i) = False Then\r\n MsgBox "Er werden nicht alle mit ''x'' markierte Verknüpfungen aktualisiert."\r\n Exit For\r\n End If\r\n Next i\r\n End With\r\n If rstAktualisieren.EOF Then\r\n MsgBox "Es wurden keine zu aktualisierenden Tabellen ausgewählt."\r\n Exit Sub\r\n Else\r\n If IsNull(Me!cboZuErsetzen) Then\r\n MsgBox "Wählen Sie den zu ersetzenden Teil aus."\r\n Me!cboZuErsetzen.SetFocus\r\n Exit Sub\r\n Else\r\n If IsNull(Me!cboErsetzenMit) Then\r\n MsgBox "Wählen Sie den einzufügenden Teil aus."\r\n Me!cboErsetzenMit.SetFocus\r\n Exit Sub\r\n End If\r\n End If\r\n End If<\/pre>\n<\/p>\n Do While Not rstAktualisieren.EOF\r\n strTabelle = rstAktualisieren!Tabelle\r\n strDatenbankAlt = rstAktualisieren!DatenbankAlt\r\n strDatenbankNeu = Replace(strDatenbankAlt, Nz(Me!cboZuErsetzen, ""), Nz(Me!cboErsetzenMit, ""))\r\n strTabelleOriginal = rstAktualisieren!TabelleOriginal\r\n rstAktualisieren.Edit\r\n rstAktualisieren!Datenbankneu = strDatenbankNeu\r\n rstAktualisieren.Update\r\n If Len(Dir(strDatenbankNeu)) = 0 Then\r\n strFehler = strFehler & "Die Datenbank ''" & strDatenbankNeu & "'' ist nicht vorhanden." & vbCrLf\r\n Else\r\n Set dbSource = DBEngine.OpenDatabase(strDatenbankNeu)\r\n Set rstTest = dbSource.OpenRecordset("SELECT Name FROM MSysObjects WHERE Name = ''" _\r\n & strTabelleOriginal & "''", dbOpenDynaset)\r\n If rstTest.EOF Then\r\n strFehler = strFehler & "Die Tabelle ''" & strTabelle & "\/" & strTabelleOriginal _\r\n & "'' ist nicht in der Datenbank ''" & strDatenbankNeu & "'' vorhanden." & vbCrLf\r\n Else\r\n Set dbHost = CurrentDb\r\n dbHost.TableDefs(strTabelle).Connect = ";database=" & strDatenbankNeu\r\n dbHost.TableDefs(strTabelle).RefreshLink\r\n End If\r\n Set dbHost = Nothing\r\n End If\r\n rstAktualisieren.MoveNext\r\n Loop\r\n If Not Len(strFehler) = 0 Then\r\n MsgBox "Es konnten nicht alle Verknüpfungen aktualisiert werden: " & vbCrLf & vbCrLf & strFehler\r\n End If\r\nEnd Sub<\/pre>\n