<\/p>\n
Nervt es Sie nicht auch, wenn Sie alle Jubeljahre mal eine Verknüpfung zum Starten einer Datenbankdatei erstellen – und dann mühsam den Pfad zur MSAccess.exe und zur betroffenen Access-Datenbank zusammentippen müssen Mir geht es jedenfalls so. Deshalb habe ich ein schickes, kleines Add-In gebaut, mit dem Sie diese Aufgabe mit wenigen Mausklicks erledigen können. Wie es funktioniert und welche Techniken dahinterstecken, erfahren Sie im vorliegenden Beitrag.<\/b><\/p>\n
Verknüpfungen zu Datenbankdateien haben durchaus ihren Sinn. Sie legen damit nicht nur fest, welche Version der MSAccess.exe <\/b>verwendet werden soll (wenn überhaupt mehrere Versionen installiert sind), welche Datenbank zu öffnen ist und mit welchen Parametern dies geschehen soll.<\/p>\n
Verknüpfungen haben in der Regel die Dateiendung .lnk<\/b> und berücksichtigen im Icon die Anwendung, die geöffnet werden soll. Außerdem findet sich dort in der Regel ein Pfeil-Symbol. Der grundsätzliche Aufbau des Inhalts einer Verknüpfung sieht so aus:<\/p>\n Die ersten beiden Elemente fasst man sicherheitshalber in Anführungszeichen ein. Dies ist eigentlich nur nötig, wenn der Pfad Leerzeichen enthält, aber anderenfalls schadet es auch nicht.<\/p>\n Bild 1 zeigt ein Beispiel für die Eigenschaften einer Verknüpfung, welche die Datenbank für den exklusiven Zugriff öffnet.<\/p>\n Bild 1: Verknüpfungen zu Access-Datenbanken<\/span><\/b><\/p>\n Parameter gibt es durchaus eine ganze Menge, nämlich die folgenden:<\/p>\n Außerdem gibt es noch einige Parameter, die nur in älteren Access-Versionen zum Einsatz kamen. Die ersten drei stehen in Zusammenhang mit der Verwendung einer Arbeitsgruppen-Informationsdatei, Benutzergruppen und Benutzern:<\/p>\n Zwei weitere Parameter sind ebenfalls veraltet, können aber aus Kompatibilitätsgründen noch verwendet werden:<\/p>\n Die Zusammenstellung der Pfade zur MSAccess.exe <\/b>sowie zu der zu öffnenden Datenbankdatei und der Parameter wollen wir nun mithilfe eines kleinen Add-Ins erleichtern.<\/p>\n Add-In installieren<\/b><\/p>\n Das fertige Add-In finden Sie im Download unter dem Dateinamen AccessLinker.mda<\/b>. Um das Add-In in Access verfügbar zu machen, starten Sie den Add-In-Manager von Access. Dazu nutzen Sie etwa unter Access 2010 den Ribbon-Eintrag Datenbanktools|Add-Ins|Add-In-Manager<\/b>.<\/p>\n Klicken Sie im nun erscheinenden Dialog Add-In-Manager <\/b>auf die Schaltfläche Neues hinzufügen… <\/b>und wählen Sie die Datei AccessLinker.mda <\/b>aus. Das war es schon – Sie finden nun einen neuen Eintrag namens AccessLinker <\/b>in der Liste der Add-Ins.<\/p>\n Wenn Sie das Add-In aufrufen, ohne dass eine Datenbank geöffnet ist, erhalten Sie einen Hinweis, dass dieses Add-In nur in Verbindung mit einer geöffneten Datenbank funktioniert.<\/p>\n Anderenfalls erscheint nun das einzige Formular dieses Add-Ins (s. Bild 2). <\/p>\n Bild 2: Das Add-In zum Erstellen von Access-Verknüpfungen<\/span><\/b><\/p>\n Hier finden Sie folgende Elemente:<\/p>\n Add-In erstellen<\/b><\/p>\n Die Add-In-Datenbank erstellen wir gleich im Add-In-Verzeichnis von Access. Dieses finden Sie heraus, indem Sie zwei kurze Befehle im Direktbereich des VBA-Editors absetzen (s. Bild 3).<\/p>\n Bild 3: Ermitteln des Add-In-Verzeichnisses von Access<\/span><\/b><\/p>\n Legen Sie in diesem Verzeichnis eine neue Datenbank namens AccessLinker.mda <\/b>an. Damit wir die Datenbank als Add-In installieren können, fügen Sie außerdem eine Tabelle namens USysReg-Info <\/b>hinzu, die wie in Bild 4 aussieht. Die Tabelle enthält vier Datensätze. Der erste legt das Element Menu Add-Ins\\AccessLinker <\/b>in der Registry in dem für Access-Add-Ins vorgesehenen Zweig an. Die übrigen fügen einige Elemente hinzu. Der Eintrag mit dem Wert Expression <\/b>im Feld ValName <\/b>legt die VBA-Funktion fest, die beim Starten des Add-Ins ausgeführt werden soll. Description <\/b>enthält die Beschreibung des Add-Ins. Library <\/b>gibt die .mda<\/b>-Datei an, welche die beim Aufruf des Add-Ins zu startende Funktion enthält.<\/p>\n Bild 4: Inhalt der Tabelle USysRegInfo des neu erstellten Add-Ins<\/span><\/b><\/p>\n Zusätzlich passen Sie noch die Eigenschaften der Add-In-Datenbank an. Diese öffnen Sie etwa unter Access 2010, indem Sie mit einem Klick auf Datei <\/b>den Backstage-Bereich öffnen und dort rechts auf Datenbankeigenschaften anzeigen und bearbeiten <\/b>klicken.<\/p>\n Es erscheint der Dialog AccessLinker.mda Eigenschaften<\/b>, in dem Sie wie in Bild 5 zum Registerreiter Zusammenfassung <\/b>wechseln. Hier tragen Sie die entsprechenden Informationen für die Eigenschaften Titel<\/b>, Firma <\/b>und Kommentare <\/b>ein.<\/p>\n Bild 5: Eigenschaften der Add-In-Datenbank<\/span><\/b><\/p>\n Bild 6 zeigt, wo die dort eingegebenen Eigenschaften wieder auftauchen – nämlich im Add-In-Manager, wenn Sie dort den Eintrag AccessLinker <\/b>anklicken.<\/p>\n Bild 6: Hier erscheinen die Datenbank-Eigenschaften.<\/span><\/b><\/p>\n Beim Start des Add-Ins<\/b><\/p>\n Wenn der Benutzer das Add-In über den Add-In-Manager registriert und über das Add-In-Menü startet, löst dies die in die Registry eingetragene Funktion Autostart <\/b>aus. Diese fügen wir nun zu einem noch zu erstellenden Standardmodul namens mdlAddIn <\/b>hinzu (s. Listing 1). Die Funktion soll zwei Aufgaben erfüllen. Die erste ist die Prüfung, ob zum Zeitpunkt des öffnens des Menüs bereits eine Access-Datenbank geöffnet ist. Dazu prüft das Add-In die Anzahl der in der aktuellen Sitzung geöffneten Datenbanken mit der Count<\/b>-Eigenschaft der Databases<\/b>-Auflistung. Enthält diese den Wert 0<\/b>, erhält der Benutzer eine Meldung, die ihn darauf hinweist, dass das Add-In nur bei geöffneter Datenbankdatei funktioniert. Anschließend wird das Add-In beendet.<\/p>\n Listing 1: Diese Funktion wird beim Start des Add-Ins ausgelöst <\/span><\/b><\/p>\n Ist hingegen eine Datenbank geöffnet und somit die Eigenschaft Count <\/b>größer als 0<\/b>, öffnet die Funktion das Formular frmVerknuepfungErstellen<\/b> als modalen Dialog.<\/p>\n Speichern der Konfigurationen<\/b><\/p>\n Bevor wir uns das Formular frmVerknuepfungErstellen <\/b>im Detail ansehen, erstellen Sie noch die Tabelle tblKonfigurationen <\/b>zum Speichern der verschiedenen Konfigurationen zum Anlegen der Verknüpfungen.<\/p>\n Diese sieht im Entwurf wie in Bild 7 aus und enthält die folgenden Felder (Informationen zu den einzelnen Optionen, deren Felder mit Option… <\/b>beginnen, finden Sie weiter oben):<\/p>\n Bild 7: Entwurf der Tabelle tblKonfigurationen<\/span><\/b><\/p>\n Das Add-In-Formular<\/b><\/p>\n Mit dieser Tabelle im Gepäck können wir uns an die Gestaltung des Formulars frmVerknuepfungErstellen<\/b> begeben. Dieses sieht im Entwurf wie in Bild 8 aus. Das Formular binden Sie über die Eigenschaft Datenherkunft <\/b>an die Tabelle tblKonfigurationen<\/b>.<\/p>\n Bild 8: Entwurf des Formulars frmVerknuepfungErstellen<\/span><\/b><\/p>\n Auf diese Weise können Sie direkt alle Felder der Tabelle tblKonfigurationen <\/b>aus der Feldliste in den Detailbereich des Formulars ziehen. Die Felder richten Sie dann wie in der Abbildung aus. Benennen Sie die gebundenen Felder um, indem Sie für die Textfelder das Präfix txt <\/b>und für die Kontrollkästchen das Präfix chk <\/b>voranstellen.<\/p>\n Zu allen Feldern, die eine Angabe in Form eines Speicherorts erwarten, fügen Sie eine Schaltfläche mit drei Punkten (…) als Beschriftung hinzu.<\/p>\n Diese heißen cmdDatenbank <\/b>(zum Ermitteln der aktuellen Datebank), cmdMSAccess <\/b>(zum Ermitteln der Datei MSAccess.exe<\/b>), cmdVerknuepfung <\/b>(zum Eingeben des Namens der zu erstellenden Verknüpfung), cmdZielKomprimierung <\/b>(für die Datei, die als Ergebnis einer Komprimierung entsteht) und cmdZielKonvertierung <\/b>für das Ergebnis einer Konvertierung.<\/p>\n Formular starten<\/b><\/p>\n Um dem Benutzer die Arbeit zu erleichtern, wollen wir, wo möglich, direkt entsprechende Standardwerte einsetzen. Davon sind die drei Textfelder txtSpeicherort<\/b>, txtPfadAccess <\/b>und txtPfadDatenbank <\/b>betroffen. Alle drei zeigen spezielle Pfadangaben an.<\/p>\n Die Zuweisung der Standardwerte geschieht gleich beim öffnen des Formulars durch die Ereignisprozedur, die durch das Ereignis Beim Laden <\/b>des Formulars ausgelöst wird. Diese Prozedur, die Sie in Listing 2 finden, enthält drei Anweisungen:<\/p>\n Listing 2: Einstellen der Standardwerte für die drei Textfelder txtSpeicherort, txtPfadAccess und txtPfadDatenbank<\/span><\/b><\/p>\n <\/p>\n Da alle drei Ausdrücke als Werte für die Eigenschaft Standardwert <\/b>(unter VBA DefaultValue<\/b>) der Textfelder angelegt werden sollen, müssen wir diese außerdem noch in Anführungszeichen einfassen. Dies können wir enweder mit einem Ausdruck wie „“““ & … & „“““ <\/b>erledigen oder das Anführungszeichen durch die Funktion Chr(34) <\/b>abbilden.<\/p>\n Pfade schnell auswählen<\/b><\/p>\n Damit der Benutzer diese Pfade leicht anpassen kann, haben wir diesen die bereits oben beschriebenen Schaltflächen zur Seite gestellt. Die Schaltfläche neben dem Textfeld txtPfadDatenbank <\/b>heißt beispielsweise cmdDatenbank <\/b>und löst für das Ereignis Beim Klicken <\/b>die Prozedur aus Listing 3 aus.<\/p>\n Listing 3: Schaltfläche zum Anzeigen eines Datei auswählen-Dialogs<\/span><\/b><\/p>\n Die Prozedur prüft, ob das Textfeld txtPfadDatenbank <\/b>bereits einen Wert enthält. Falls ja, wird dieser Wert in die Variable strStartDir <\/b>übernommen. Dort erfolgt eine weitere Prüfung: Handelt es sich bei dem Inhalt von strStartDir <\/b>nämlich um einen kompletten Pfad inklusive Dateiname, soll dieser noch entfernt werden.<\/p>\n Die Prüfung und das Entfernen des Dateinamens erledigt eine kleine Hilfsfunktion, die wie in Listing 4 aussieht und im Modul mdlDateifunktionen <\/b>zu finden ist. Diese Funktion prüft, ob die Dir<\/b>-Funktion für den übergebenen Pfad mit dem Parameter vbDirectory <\/b>den Punkt (.<\/b>) als Ergebnis zurückliefert. Dies deutet darauf hin, dass es sich bereits um eine reine Verzeichnisangabe handelt. Anderenfalls liefert Dir <\/b>den Namen der Datei des Pfades zurück. In diesem Fall ermittelt die Funktion den Teil des Pfades bis zum ersten Backslash-Zeichen (\\<\/b>) von hinten und gibt diesen als Funktionswert zurück.<\/p>\n Listing 4: Funktion zum Extrahieren des Verzeichnisses aus einem Dateipfad<\/span><\/b><\/p>\n Ist txtPfadDatenbank <\/b>leer, füllt die Prozedur das mit CurrentProject.Path <\/b>ermittelte Verzeichnis der aktuellen Anwendung in diese Variable.<\/p>\n Danach verwendet die Prozedur die Funktion OpenFileName <\/b>aus dem Modul mdlDateifunktionen<\/b>, um einen Datei öffnen<\/b>-Dialog anzuzeigen. Die gewählte Datei landet nach dem Schließen dieses Dialogs in der Variablen strDatenbank<\/b> und dann im Textfeld txtPfadDatenbank<\/b>.<\/p>\n ähnlich sieht es beim Textfeld txtPfad-MS-Access <\/b>aus. Hier sorgt die Schaltfläche cmdMSAccess <\/b>für die Anzeige des Datei öffnen<\/b>-Dialogs.<\/p>\n Verknüpfungs-Ziel ermitteln<\/b><\/p>\n Für das Ermitteln der Verknüpfung ist eine etwas andere Prozedur nötig. Diese wird durch einen Mausklick auf die Schaltfläche cmdVerknuep-fung <\/b>ausgelöst. Die entsprechende Prozedur sieht wie in Listing 5 aus. Sie prüft wiederum, ob txtSpeicherort <\/b>bereits gefüllt ist. Falls ja, wird der Speicherort aus dem Textfeld in der Variablen strSpeicherort <\/b>abgelegt. Dann nutzt die Prozedur wiederum die Funktion VerzeichnisAusPfad<\/b>, um das Verzeichnis zu ermitteln. Diesmal benötigen wir aber zusätzlich auch noch den Dateinamen.<\/p>\n Listing 5: Diese Prozedur hilft bei der Ermittlung des Speicherorts für die Verknüpfung.<\/span><\/b><\/p>\n Dabei hilft uns eine weitere Hilfsfunktion namens DateiAusPfad<\/b>, die Sie in Listing 6 finden. Diese Funktion arbeitet fast genauso wie die Funktion VerzeichnisAusPfad<\/b>, nur dass sie den Teil des Pfades hinter dem ersten Backslash-Zeichen von hinten ermittelt und zurückgibt.<\/p>\n Listing 6: Funktion zum Extrahieren des Dateinamens aus einem Dateipfad<\/span><\/b><\/p>\n Wenn txtSpeicherort <\/b>noch leer ist, ermittelt die Prozedur die Werte für die beiden Variablen strVerzeichnis <\/b>und strDateiname <\/b>mit den Funktionen CurrentProject.Path <\/b>und CurrentProject.Name<\/b>.<\/p>\n Mit diesen Informationen ausgestattet, geht es an die Funktion GetSaveFile<\/b>. Diese erwartet den beim öffnen anzuzeigenden Pfad sowie einen Dateinamen, der als Standard vorgegeben wird. Wenn Sie diese Schaltfläche beispielsweise von einer Datenbank namens Test.mdb <\/b>aus anklicken, erscheint der Dialog aus Bild 9 mit dem entsprechend vorausgewählten Verzeichnis und vorgegebenen Dateinamen.<\/p>\n Bild 9: Dialog zum Ermitteln des Namens der Verknüpfung<\/span><\/b><\/p>\n Ziele für komprimierte und konvertierte Datenbanken<\/b><\/p>\n Wenn Sie die Optionen zum Komprimieren oder Konvertieren von Datenbanken aktivieren, schalten Sie damit auch die Textfelder zur Angabe der Pfade der Zieldatenbanken frei (diese ist für das Konvertieren Pflicht, beim Komprimieren wird bei fehlender Angabe der Zieldatenbank die bestehende Datenbank überschrieben).<\/p>\n Auch diese beiden Textfelder sind mit Schaltflächen ausgestattet, die dem Benutzer die Auswahl der Zieldatenbanken erleichtern. Die beiden Schaltflächen cmdZielKomprimierung <\/b>und cmdZielKonvertierung <\/b>lösen Prozeduren aus, die genauso wie die durch die Schaltfläche cmdVerknuepfung <\/b>ausgelöste Prozedur arbeiten.<\/p>\n Konfigurationen verwalten<\/b><\/p>\n Das Kombinationsfeld cboKonfigurationen <\/b>dient zur Auswahl der vorhandenen Konfigurationen. Es verwendet die folgende Abfrage als Datensatzherkunft:<\/p>\n Damit es nur die Bezeichnungen und nicht die Primärschlüsselwerte anzeigt, stellen Sie außerdem die beiden Eigenschaften Spaltenanzahl <\/b>und Spaltenbreiten <\/b>auf die Werte \"<Pfad zur MSAccess.Exe>\" \"<Pfad zur Access-Datenbank>\" <Parameter><\/pre>\n
![\"Verknüpfungen](\"..\/fileadmin\/_temp_\/2014_02\/pic_931_003.png\")
<\/p>\n\n
\n
\n
![\"Das](\"..\/fileadmin\/_temp_\/2014_02\/pic_931_004.png\")
<\/p>\n\n
![\"Ermitteln](\"..\/fileadmin\/_temp_\/2014_02\/pic_931_001.png\")
<\/p>\n![\"Inhalt](\"..\/fileadmin\/_temp_\/2014_02\/pic_931_005.png\")
<\/p>\n![\"Eigenschaften](\"..\/fileadmin\/_temp_\/2014_02\/pic_931_007.png\")
<\/p>\n![\"Hier](\"..\/fileadmin\/_temp_\/2014_02\/pic_931_006.png\")
<\/p>\nPublic Function <\/span>Autostart()\r\n If <\/span>DBEngine.Workspaces(0).Databases.Count = 0 Then<\/span>\r\n MsgBox<\/span> \"Dieses Add-In funktioniert nur bei geöffneter Datenbankanwendung.\", _\r\n vbOKOnly + vbExclamation, \"Keine Datenbank geöffnet.\"\r\n Exit Function<\/span>\r\n End If<\/span>\r\n DoCmd.OpenForm \"frmVerknuepfungErstellen\", WindowMode:=acDialog\r\nEnd Function<\/span><\/pre>\n![\"Entwurf](\"..\/fileadmin\/_temp_\/2014_02\/pic_931_002.png\")
<\/p>\n\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2014_02\/pic_931_008.png\")
<\/p>\nPrivate Sub <\/span>Form_Load()\r\n Me!txtSpeicherort.DefaultValue = Chr(34) & CurrentDb.Name & Chr(34)\r\n Me!txtPfadAccess.DefaultValue = Chr(34) & SysCmd(acSysCmdAccessDir) & \"MSAccess.exe\" & Chr(34)\r\n Me!txtPfadDatenbank.DefaultValue = Chr(34) & CurrentDb.Name & Chr(34)\r\nEnd Sub<\/span><\/pre>\n\n
Private Sub <\/span>cmdDatenbank_Click()\r\n Dim <\/span>strStartdir As String<\/span>\r\n Dim <\/span>strDatenbank As String<\/span>\r\n If <\/span>Len<\/span>(Me!txtPfadDatenbank) > 0 Then<\/span>\r\n strStartdir = Me!txtPfadDatenbank\r\n strStartdir = VerzeichnisAusPfad(strStartDir)\r\n Else<\/span>\r\n strStartdir = CurrentProject.Path\r\n End If<\/span>\r\n strDatenbank = OPENFILENAME(strStartdir, \"Datenbank auswählen\", _\r\n \"Access-Datenbank (*.mdb;*.accdb;*.mde;*.accde;*.mda;*.accda)|Alle Dateien(*.*)\")\r\n If <\/span>Len<\/span>(strDatenbank) > 0 Then<\/span>\r\n Me!txtPfadDatenbank = strDatenbank\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPublic Function <\/span>VerzeichnisAusPfad(ByVal strPfad As String<\/span>) As String<\/span>\r\n If <\/span>Not<\/span> Dir(strPfad, vbDirectory) = \".\" Then<\/span>\r\n strPfad = Left<\/span>(strPfad, InStrRev<\/span>(strPfad, \"\\\"))\r\n End If<\/span>\r\n VerzeichnisAusPfad = strPfad\r\nEnd Function<\/span><\/pre>\nPrivate Sub <\/span>cmdVerknuepfung_Click()\r\n Dim <\/span>strSpeicherort As String<\/span>\r\n Dim <\/span>strVerzeichnis As String<\/span>\r\n Dim <\/span>strDateiname As String<\/span>\r\n If <\/span>Len<\/span>(Me!txtSpeicherort) > 0 Then<\/span>\r\n strSpeicherort = Me!txtSpeicherort\r\n strVerzeichnis = VerzeichnisAusPfad(strSpeicherort)\r\n strDateiname = DateiAusPfad(strSpeicherort)\r\n Else<\/span>\r\n strVerzeichnis = CurrentProject.Path\r\n strDateiname = CurrentProject.Name\r\n End If<\/span>\r\n strSpeicherort = GetSaveFile(strVerzeichnis, strDateiname, , \"Verknüpfung anlegen unter:\")\r\n If <\/span>Len<\/span>(strSpeicherort) > 0 Then<\/span>\r\n Me!txtSpeicherort = strSpeicherort\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPublic Function <\/span>DateiAusPfad(ByVal strPfad As String<\/span>) As String<\/span>\r\n If <\/span>Not<\/span> Dir(strPfad, vbDirectory) = \".\" Then<\/span>\r\n strPfad = Mid<\/span>(strPfad, InStrRev<\/span>(strPfad, \"\\\") + 1)\r\n End If<\/span>\r\n DateiAusPfad = strPfad\r\nEnd Function<\/span><\/pre>\n![\"Dialog](\"..\/fileadmin\/_temp_\/2014_02\/pic_931_009.png\")
<\/p>\nSELECT KonfigurationID, Bezeichnung \r\nFROM tblKonfigurationen \r\nORDER BY Bezeichnung;<\/pre>\n