Eines ärgert mich bereits seit Jahrzehnten: Dass man beim Importieren von Objekten aus anderen Datenbanken über den Assistenten immer wieder neu zum jeweiligen Verzeichnis wechseln muss. Dort ist immer das gleiche Verzeichnis voreingestellt. Dieses kann man zwar ändern und so passend für einen Anwendungszweck in einer Datenbank gestalten, aber beim Importieren in die nächste Datenbank muss man das Verzeichnis wieder neu selektieren. Wie schön wäre es, wenn dieser Ordner zumindest immer auf den Ordner eingestellt wird, in dem sich die aktuelle Datenbank befindet. Noch praktischer wäre es, wenn man für jede Anwendung einen individuellen Ordner einstellen könnte, der automatisch beim Öffnen der Anwendung bereitgestellt wird. Die gute Nachricht ist: Wir haben eine Lösung dafür gefunden, die wir in diesem Beitrag vorstellen – damit sind die beiden genannten Varianten möglich! Wie es geht, lesen Sie auf den folgenden Seiten.<\/b><\/p>\n
Wo wirkt sich der Standarddatenbankordner aus?<\/h2>\n
Wenn wir Access öffnen, ohne jemals den Standarddatenbankordner geändert zu haben, ist dieser auf den Dokumentenordner des jeweiligen Benutzers eingestellt. Diese Einstellung können wir im Optionen-Dialog von Access auf der Registerseite Allgemein <\/b>im Bereich Datenbanken erstellen <\/b>bearbeiten. Die Option heißt Standarddatenbankordner <\/b>und wir können diese sowohl durch direkte Eingabe oder auch durch Auswahl eines neuen Verzeichnisses über den Durchsuchen…<\/b>-Button ändern (siehe Bild 1).<\/p>\n
![\"Der](\"..\/fileadmin\/_temp_\/2025_05\/pic_1558_002.png\")
<\/p>\n
Bild 1: Der Standarddatenbankordner in den Access-Optionen<\/span><\/b><\/p>\n Hier sehen wir bereits eine Funktion dieses Ordners: Er wird standardmäßig beim Anlegen neuer Datenbankdateien als Zielverzeichnis angegeben (siehe Bild 2).<\/p>\n Bild 2: Ein Einsatzzweck des Standarddatenbankordners: Das Anlegen neuer Datenbanken<\/span><\/b><\/p>\n Und natürlich erscheint dieser Ordner, wenn wir Objekte aus einer anderen Access-Datenbank über den Ribbonbefehl Externe Daten|Neue Datenquelle|Aus Datenbank|Access <\/b>importieren oder verknüpfen wollen (siehe Bild 3).<\/p>\n Bild 3: Auch im Dialog Externe Daten – Access-Datenbank erscheint der Standarddatenbankordner.<\/span><\/b><\/p>\n Es gibt noch andere Dialoge und Orte, an denen der Ordner c:\\Users\\ Zu guter Letzt noch eine Stelle, wo dieser Ordner verwendet wird: Nämlich als Ergebnis der VBA-Funktion CurDir<\/b>.<\/p>\n Wir können diesen Ordner auf verschiedene Arten ändern:<\/p>\n Die oben genannte dritte Variante ist die Verwendung der Anweisung SetOption<\/b>. Damit können wir den Standarddatenbankordner wie folgt einstellen:<\/p>\n Zum Auslesen des aktuell eingestellten Standarddatenbankordners verwenden wir GetOption<\/b>:<\/p>\n Allerdings wirkt sich auch diese Einstellung nicht unmittelbar auf den Importdialog für Access-Objekte aus, sondern erst nach dem Schließen und erneutem Start von Access.<\/p>\n Also hilft uns dieser Befehl an dieser Stelle auch nicht weiter – auch wenn das die optimale Lösung gewesen wäre. Wir hätten dann einfach den Befehl zum Öffnen des Importdialogs für Access-Objekte im Ribbon so erweitern können, das zusätzlich noch die Zuweisung des gewünschten Pfades erfolgt. So müssen wir uns einen anderen Weg überlegen, wie wir sicherstellen können, dass unser gewünschtes Verzeichnis je nach Anwendung angezeigt wird. Die Ziele sehen dabei wie folgt aus:<\/p>\n Wenn wir zum Beispiel immer wieder Tabellen aus Datenbanken des gleichen Verzeichnisses importieren, können wir dieses Verzeichnis einmalig einstellen.<\/p>\n Aber dann wird dieses Verzeichnis auch für jede andere Datenbank eingestellt. Sollten wir also eine zweite Datenbank verwenden, wo wir auch Tabellen aus einer anderen Datenbank importieren wollen, müssen wir spätestens hier wieder umstellen beziehungsweise immer wieder neu zum gewünschten Ordner navigieren.<\/p>\n Wenn wir die Einstellung Standarddatenbankordner<\/b> über die Access-Optionen ändern, wird diese Änderung in der Registry gespeichert. Den genauen Ort zeigt Bild 4.<\/p>\n Bild 4: Der Standarddatenbankordner wird in der Registry gespeichert.<\/span><\/b><\/p>\n Die anderen Dialoge, zum Beispiel zum Einlesen von Textdateien oder Excel-Dateien, berücksichtigen die Einstellung des Standarddatenbankordner übrigens gar nicht. Hier sehen wir auch aktuell keine Möglichkeit, in irgendeiner Weise Einfluss zu nehmen.<\/p>\n Aber wie wollen wir dafür sorgen, dass entweder das aktuelle Datenbankverzeichnis (mit CurrentProject.Path<\/b>) oder ein speziell für die Datenbank festgelegtes Verzeichnis bereits eingestellt ist, wenn wir die entsprechende Datenbank öffnen? Das erledigen wir mit einem COM-Add-In namens amvStartupfolderr<\/b>.<\/p>\n Sie finden im Download die entsprechende DLL namens amvStartupfolder_32.dll<\/b> beziehungsweise amvStartupfolder_64.dll<\/b>. Diese installieren Sie, indem Sie die folgenden Schritte durchführen:<\/p>\n Bild 5: Hinzufügen eines COM-Add-Ins<\/span><\/b><\/p>\n Bild 6: Das neue COM-Add-In im COM-Add-Ins-Dialog<\/span><\/b><\/p>\n<\/ul>\n Damit ist das COM-Add-In installiert und einsatzbereit.<\/p>\n Das COM-Add-In scheint erst einmal unsichtbar zu sein. Wie können es aber schon testen, indem wir einmal eine neue Access-Anwendung öffnen.<\/p>\n Wichtig: <\/b>Diese Access-Anwendung muss per Doppelklick auf den Namen der .accdb<\/b>-Datei geöffnet werden! Wenn Sie erst Access starten und dann die Datenbank laden, funktioniert das COM-Add-In nicht. Woran das liegt, erläutern wir später. Das COM-Add-In ist nun noch nicht aktiviert, denn es wird erst beim nächsten Start von Access geladen.<\/p>\n Wenn wir dann zu den Access-Optionen wechseln, sehen wir in der Eigenschaft Standarddatenbankordner <\/b>bereits genau das Verzeichnis, in dem sich die aktuelle Datenbank befindet.<\/p>\n Und auch wenn wir den Import-Assistent für Access starten, zeigt dieser direkt dieses Verzeichnis an.<\/p>\n Damit funktioniert bereits die erste Anforderung, dass das aktuelle Datenbankverzeichnis als Standarddatenbankordner <\/b>verwendet wird.<\/p>\n Damit kommen wir zur zweiten Anforderung. Wir hatten formuliert, dass wir zu jeder Datenbankdatei einen individuellen Standarddatenbankordner definieren können wollen. Aber wo tun wir das? Dazu öffnen wir den Ribbon-Reiter Datei <\/b>und klicken auf den nun sichtbaren Eintrag amvStartverzeichnis<\/b>.<\/p>\n Danach erscheint der entsprechende Bereich, in dem wir mit dem Button Auswählen <\/b>einen Dialog zum Auswählen des gewünschten Verzeichnisses finden (siehe Bild 7).<\/p>\n Bild 7: Einstellen des gewünschten Standarddatenbankordners<\/span><\/b><\/p>\n Hier finden wir auch gleich den Hinweis, dass bei leerem Feld der aktuelle Ordner der Datenbank als Standarddatenbankordner verwendet wird.<\/p>\n Nachdem wir das Verzeichnis angegeben haben, können wir Access mit dieser Datenbank neu starten. Und siehe da: Wir finden in den Access-Optionen nun den neuen Ordner vor und können diesen auch direkt im Import-Assistenten für Access nutzen.<\/p>\n Das beweist aber noch lange nichts. Wir müssen zunächst noch eine zweite Datenbank mit einem individuellen Standarddatenbankordner versehen. Wenn wir diese öffnen, finden wir wieder eine leere Eigenschaft Startverzeichnis <\/b>im Bereich amvStartverzeichnis <\/b>vor. Das zeigt schon einmal, dass noch kein individueller Standarddatenbankordner festgelegt wurde. Fügen wir also einen passenden Ordner hinzu, der sich von dem der vorherigen Datenbank unterscheidet.<\/p>\n Öffnen wir nun nacheinander diese beiden Datenbanken, finden wir jeweils den dafür festgelegten Standarddatenbankordner vor – ohne selbst etwas dazu beigetragen zu haben.<\/p>\n Damit kommen wir zum eigentlichen Know-how dieses Beitrags: Die Funktionsweise des COM-Add-Ins. Dieses haben wir, wie immer, mit twinBASIC erstellt. Den Download der aktuellen Version finden Sie hier:<\/p>\n Das Projekt haben wir dem Download zu diesem Artikel unter dem Namen amvStartverzeichnis.twinproj<\/b> beigelegt. Dieses können Sie nach dem Start von twinBASIC öffnen.<\/p>\n Das Hauptmodul enthält wie üblich die Implementierung der Schnittstellen IDTExtensibility2<\/b> und IRibbonExtensibility<\/b>, die wir in der Klasse deklarieren. Außerdem deklarieren wir hier noch eine Variable für die Ribbon-Anpassung:<\/p>\n An der Stelle … weitere Elemente … <\/b>stehen die nachfolgend beschriebenen Elemente.<\/p>\n Als Erstes implementieren wir die Schnittstelle IDTExtensibility2 <\/b>wie in Listing 1. Diese enthält verschiedene Ereignisprozeduren, die von Access zu den entsprechenden Zeitpunkten ausgeführt werden. Interessant für uns ist zunächst das Ereignis OnConnection<\/b>. Hier nehmen wir mit dem Parameter Application <\/b>einen Verweis auf die aufrufende Instanz entgegen, also die Access-Anwendung.<\/p>\n Listing 1: Implementierung der Schnittstelle IDTExtensibility<\/span><\/b><\/p>\n Diesen Verweis speichern wir in der Variablen objAccess<\/b>, die wir im Modul mdlGlobal <\/b>hinterlegt haben – neben einer weiteren namens strStartupfolder<\/b>:<\/p>\n Den Verweis auf die Access-Anwendung müssen wir speichern, wenn wir im weiteren Verlauf auf diese Instanz und ihre Eigenschaften zugreifen wollen.<\/p>\n Im Ereignis OnDisconnection <\/b>leeren wir die Objektvariable objAccess <\/b>wieder, damit Access nicht im Speicher hängenbleibt, wenn wir es über die Benutzeroberfläche schließen.<\/p>\n Die wichtigste Rolle übernimmt das Ereignis OnStartupComplete<\/b>. Dies ist der Zeitpunkt, zu dem die Access-Datenbank bereits geladen ist, aber der Standarddatenbankpfad noch gesetzt werden kann.<\/p>\n Das nutzen wir aus, indem wir genau das tun. Wir speichern den Pfad zur aktuellen Datenbankdatei, den wir mit objAccess.CurrentDb.Name <\/b>ermitteln, in der Variablen strPathACCDB<\/b>. Außerdem schreiben wir das Verzeichnis, in dem sich diese Datenbankdatei befindet, in die Variable strFolderACCDB<\/b>.<\/p>\n Nun wollen wir herausfinden, ob zu genau diesem Datenbankpfad bereits ein Standarddatenbankordner in der Registry hinterlegt ist (dies geschieht in dem oben beschriebenen Bereich des Backstage und wie das geht, zeigen wir weiter unten).<\/p>\n Mit GetAppSetting <\/b>holen wir uns den Wert in der Registry für diesen Datenbankpfad. Dazu ein Einblick, wie es nach dem Hinterlegen von Standarddatenbankordnern in der Registry aussieht: Diesen finden Sie in Bild 8. Hier sehen wir unter Name<\/b> jeweils den Pfad der Datenbankdatei, für die wir einen Standarddatenbankordner festgelegt haben und unter Daten den jeweiligen Standarddatenbankpfad.<\/p>\n Bild 8: Einträge für Standarddatenbankordner in der Registry<\/span><\/b><\/p>\n Diese Einträge befinden sich in dem Bereich der Registry, den wir mit den Funktionen SaveSetting <\/b>und GetSetting <\/b>erreichen können. Dazu gibt es im Modul mdlRegistry <\/b>zwei Wrapperfunktionen, welche die ersten beiden Parameter dieser Funktionen mit Konstanten für diese Werte füllen.<\/p>\n Wie das im Detail funktioniert, haben wir bereits im Beitrag Optionen einfach in der Registry speichern <\/b>(www.access-im-unternehmen.de\/1512<\/b>) beschrieben.<\/p>\n Können wir mit GetAppSetting <\/b>einen Wert einlesen, stellen wir diesen mit der SetOption<\/b>-Methode ein. Wichtig ist, dass wir die SetOption<\/b>-Methode im Kontext des Objekts objAccess <\/b>aufrufen.<\/p>\n Falls in der Registry noch kein Standarddatenbankordner für diese Datenbankdatei vorliegt, stellen wir diesen mit SetOption <\/b>auf den Ordner ein, in dem sich die aktuelle Datenbankdatei befindet.<\/p>\n Hier liegt auch der Grund, warum das COM-Add-In nur zuverlässig funktioniert, wenn wir die .accdb<\/b>-Datei per Doppelklick öffnen (oder über Rechtsklick auf Access in der Taskleiste und Auswahl einer der zuletzt verwendeten Datenbanken): Wenn wir Access ohne Vorauswahl einer Datenbank öffnen, kann in der Ereignisprozedur OnStartUpComplete nicht der Name der Datenbank und auch nicht ein eventueller Standarddatenbankordner aus der Registry ermittelt werden.<\/p>\n Die operative Arbeit ist somit erledigt, nun folgt noch der Teil, mit dem wir den Standarddatenbankordner für eine Accessdatenbank festlegen können.<\/p>\n Dazu implementieren wir die Schnittstelle IRibbonExtensibility<\/b>. Diese stellt die Funktion GetCustomUI <\/b>zur Verfügung, mit der wir vom COM-Add-In aus eine Ribbondefinition zusammenstellen und an Access zurückgeben können.<\/p>\n Diese Funktion finden Sie in Listing 2. Sie stellt in der Variablen strXML <\/b>die benötigte Ribbondefinition zusammen und übergibt diese an Access.<\/p>\n Listing 2: Implementierung der Schnittstelle IRibbonExtensibility<\/span><\/b><\/p>\n Der besseren Lesbarkeit halber haben wir die zusammengestellte Ribbondefinition nochmal in Listing 3 abgebildet. Hier sehen wir die verschiedenen Elemente wie customUI <\/b>und backstage<\/b>, in denen wir ein neues tab<\/b>-Element hinzufügen. Dieses enthält die Beschriftung für den Registerreiter und die Überschrift für den Bereich. Das customUI<\/b>-Element enthält eine Funktion namens onLoad<\/b>, für die wir die folgende Routine hinterlegen:<\/p>\n Listing 3: Die zusammengestellte Ribbon-Definition<\/span><\/b><\/p>\n Diese füllt die Variable objRibbon <\/b>mit einem Verweis auf die Ribbon-Definition. Hier die Deklaration dieser Variablen:<\/p>\n Diese Variable bietet die Invalidate<\/b>-Methode an, mit der wir die Eigenschaften der Textbox mit den entsprechenden get…<\/b>-Funktionen neu laden können, falls der Benutzer über die Schaltfläche ein neues Verzeichnis lädt.<\/p>\n Unterhalb des tab<\/b>-Elements folgen ein firstColumn<\/b>– und ein group<\/b>-Element. Diese strukturieren die Ausgabe im Bereich selbst. Das group<\/b>-Element enthält den oberen Text. Darunter folgen unter topItems <\/b>weitere Steuerelemente.<\/p>\n Das Wichtigste ist die editBox <\/b>zum Anzeigen und Eingeben des Standarddatenbankordners. Sie enthält mit dem Attribut getText <\/b>den Namen der Funktion GetText<\/b>, die beim Anzeigen der editBox <\/b>ausgeführt wird, um einen Text einzutragen.<\/p>\n Diese erhält beim Aufruf einen Verweis auf das aufrufende Steuerelement als Parameter. Diesen gleichen wir mit dem Namen txtStartupfolder <\/b>ab. In diesem Fall geben wir einfach den aktuellen Wert der Variablen strStartupfolder <\/b>zurück. Wurde diese bereits beim Initialisieren des COM-Add-Ins gefüllt, enthält die editBox <\/b>nun diesen Pfad – falls nicht, soll sie leer sein.<\/p>\n Die editBox <\/b>durch Übergeben einer leeren Zeichenkette zu leeren, ist allerdings nicht möglich – daher übergeben wir die Zeichenkette vbNullString & Chr(0)<\/b>:<\/p>\n Außerdem hinterlegen wir für das Attribut onAction <\/b>die Prozedur OnAction<\/b>. Diese prüft ebenfalls das aufrufende Steuerelement und anschließend, ob strStartupfolder <\/b>noch leer ist (siehe Listing 4).<\/p>\n Listing 4: Die Prozedur OnAction<\/span><\/b><\/p>\n In diesem Fall wird die Variable strInitialFolder <\/b>auf den Pfad der aktuell geöffneten Datenbankdatei eingestellt, gefolgt von einem abschließenden Backslash. Anderenfalls erhält die Variable den Wert aus strStartupfolder<\/b>. <\/p>\n Wenn die Variable strInitialFolder<\/b> kein abschließendes Backslash-Zeichen enthält, fügen wir dieses noch hinzu, sonst ist die Anzeige im folgenden Ordnerauswahldialog nicht korrekt.<\/p>\n Mit dem aktuellen Wert von strInitialFolder <\/b>rufen wir dann die Funktion ChooseFolder <\/b>auf. Diese zeigt einen Ordnerauswahldialog an.<\/p>\n Das Ergebnis von ChooseFolder<\/b> wird dann in die Variable strStartupfolder <\/b>geschrieben. Von dort landet es mithilfe der Prozedur SaveAppSetting <\/b>nun direkt in der Registry, damit diese Einstellung beim nächsten Öffnen der Datenbankdatei direkt verwendet werden kann.<\/p>\n Für das labelControl<\/b>-Element holen wir den Text schließlich wie folgt:<\/p>\n Außerdem aktualisieren wir das Ribbon mit der Invalidate<\/b>-Methode von objRibbon<\/b>.<\/p>\n Die Funktion ChooseFolder<\/b> finden wir in Listing 5. Sie nimmt den initial anzuzeigenden Ordner mit dem Parameter strInitialFolder <\/b>entgegen. Dann öffnet sie einen Dialog zur Auswahl eines Ordners, mit dem der Benutzer den gewünschten Ordner auswählen kann. Dieser wird als Funktionsergebnis an die aufrufende Funktion zurückgegeben. Schließlich speichern wir den neu ermittelten Ordner noch mit der Funktion SaveSettings <\/b>in der Registry, damit dieser beim nächsten Öffnen dieser Datenbank direkt verwendet werden kann. Außerdem rufen wir noch die Invalidate<\/b>-Methode des Objekts objRibbon <\/b>auf, damit das neu ausgewählte Verzeichnis direkt im editBox<\/b>-Steuerelement angezeigt wird.<\/p>\n Listing 5: Die Funktion ChooseFolder<\/span><\/b><\/p>\n In diesem Beitrag stellen wir eine Lösung vor, mit der man dafür sorgen kann, dass immer beim Starten der Datenbank eines der folgenden beiden Verzeichnisse als Standarddatenbankordner voreingestellt ist:<\/p>\n![\"Ein](\"..\/fileadmin\/_temp_\/2025_05\/pic_1558_003.png\")
<\/p>\n![\"Auch](\"..\/fileadmin\/_temp_\/2025_05\/pic_1558_004.png\")
<\/p>\nManuelles Ändern des Standarddatenbankordners<\/h2>\n
\n
Standarddatenbankordner per SetOption einstellen<\/h2>\n
SetOption \"Default Database Directory\", \"c:\\\"<\/pre>\n
Debug.Print<\/span> GetOption(\"Default Database Directory\")<\/pre>\n\n
Wo wird der Standarddatenbankordner gespeichert?<\/h2>\n
![\"Der](\"..\/fileadmin\/_temp_\/2025_05\/pic_1558_001.png\")
<\/p>\nStandardverzeichnis für andere Dialoge<\/h2>\n
Anpassen des Datenbankordners bei Start der Anwendung<\/h2>\n
Installation des COM-Add-Ins<\/h2>\n
\n
![\"Hinzufügen](\"..\/fileadmin\/_temp_\/2025_05\/pic_1558_005.png\")
<\/p>\n![\"Das](\"..\/fileadmin\/_temp_\/2025_05\/pic_1558_006.png\")
<\/p>\nEinsatz von amvStartupfolder<\/h2>\n
Standarddatenbankordner individuell einstellen<\/h2>\n
![\"Einstellen](\"..\/fileadmin\/_temp_\/2025_05\/pic_1558_007.png\")
<\/p>\nBeschreibung des COM-Add-Ins amvStartupfolder<\/h2>\n
https:\/\/github.com\/twinbasic\/twinbasic\/releases<\/pre>\n
[ClassId(\"DC8E7154-FAC8-43B7-88E5-A93527539223\")]\r\nClass<\/span> amvStartupfolder\r\n Implements IDTExtensibility2\r\n [WithDispatchForwarding]\r\n Implements IRibbonExtensibility\r\n Private <\/span>objRibbon As <\/span>IRibbonUI\r\n ... weitere Elemente ...\r\nEnd Class<\/span><\/pre>\nImplementierung der Schnittstelle IDTExtensibility2<\/h2>\n
Sub <\/span>OnConnection(ByVal Application As Object<\/span>, ByVal ConnectMode As <\/span>ext_ConnectMode, ByVal AddInInst As Object<\/span>, _\r\n ByRef custom As Variant<\/span>()) Implements IDTExtensibility2.OnConnection\r\n Set<\/span> objAccess = Application\r\nEnd Sub<\/span>\r\nSub <\/span>OnDisconnection(ByVal RemoveMode As <\/span>ext_DisconnectMode, ByRef custom As Variant<\/span>()) _\r\n Implements IDTExtensibility2.OnDisconnection\r\n Set<\/span> objAccess = Nothing\r\nEnd Sub<\/span>\r\nSub <\/span>OnAddInsUpdate(ByRef custom As Variant<\/span>()) Implements IDTExtensibility2.OnAddInsUpdate\r\nEnd Sub<\/span>\r\nSub <\/span>OnStartupComplete(ByRef custom As Variant<\/span>()) Implements IDTExtensibility2.OnStartupComplete\r\n On Error Resume Next<\/span>\r\n Dim <\/span>strPathACCDB As String<\/span>\r\n Dim <\/span>strFolderACCDB As String<\/span>\r\n strPathACCDB = objAccess.CurrentDb.Name\r\n strFolderACCDB = objAccess.CurrentProject.Path\r\n strStartupfolder = GetAppSetting(strPathACCDB)\r\n On Error GoTo<\/span> 0\r\n If <\/span>Len<\/span>(strStartupfolder) > 0 Then<\/span>\r\n objAccess.SetOption \"Default Database Directory\", strStartupfolder\r\n Else<\/span>\r\n objAccess.SetOption \"Default Database Directory\", strFolderACCDB\r\n End If<\/span>\r\nEnd Sub<\/span>\r\nSub <\/span>OnBeginShutdown(ByRef custom As Variant<\/span>()) Implements IDTExtensibility2.OnBeginShutdown\r\nEnd Sub<\/span><\/pre>\nModule mdlGlobal\r\n Public <\/span>objAccess As <\/span>Access.Application\r\n Public <\/span>strStartupfolder As String<\/span>\r\n \r\nEnd Module<\/pre>\nDie Magie dieser Lösung<\/h2>\n
![\"Einträge](\"..\/fileadmin\/_temp_\/2025_05\/pic_1558_008.png\")
<\/p>\nImplementierung der Schnittstelle IRibbonExtensibility<\/h2>\n
Private Function <\/span>GetCustomUI(ByVal RibbonID As String<\/span>) As String<\/span> Implements IRibbonExtensibility.GetCustomUI\r\n Dim <\/span>strXML As String<\/span>\r\n strXML &= \"<customUI xmlns=\"\"http:\/\/schemas.microsoft.com\/office\/2009\/07\/customui\"\" onLoad=\"\"onLoad\"\">\" & vbCrLf<\/span>\r\n strXML &= \" <backstage>\"\r\n strXML &= \" <tab id=\"\"tabStartupfolder\"\" label=\"\"amvStartverzeichnis\"\" columnWidthPercent=\"\"50\"\" \" _\r\n & \"firstColumnMinWidth=\"\"400\"\" title=\"\"Optionen amvStartverzeichnis\"\">\"\r\n strXML &= \" <firstColumn>\"\r\n strXML &= \" <group id=\"\"grpStartupfolder\"\" label=\"\"Wähle hier das Verzeichnis aus, das beim Start \" _\r\n & \"dieser Datenbank gesetzt wird und für Import\/Export et cetera verwendet werden soll.\"\">\"\r\n strXML &= \" <topItems>\"\r\n strXML &= \" <labelControl id=\"\"lblStartupfolder\"\" label=\"\"Damit das gewählte Verzeichnis verwendet \" _\r\n & \"wird, muss die Datenbank komplett geschlossen und wieder geöffnet werden.
\" _\r\n & \"Startverzeichnis:\"\" noWrap=\"\"true\"\"\/>\"\r\n strXML &= \" <layoutContainer id=\"\"layBaseFolder\"\" layoutChildren=\"\"horizontal\"\" expand=\"\"neither\"\">\"\r\n strXML &= \" <editBox id=\"\"txtStartupfolder\"\" getText=\"\"getText\"\" sizeString=\"\"yyyyyyyyyyyyyyyyyyy\"_\r\n & \"yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy\"\" onChange=\"\"onChange\"\"\/>\"\r\n strXML &= \" <button id=\"\"btnStartupfolder\"\" label=\"\"Auswählen\"\" onAction=\"\"onAction\"\"\/>\"\r\n strXML &= \" <\/layoutContainer>\"\r\n strXML &= \" <labelControl id=\"\"lblStartupfolderRemark\"\" label=\"\"
Wenn kein Verzeichnis \" _\r\n & \"gesetzt ist, wird das Verzeichnis der aktuellen Datenbank als Standarddatenbankordner verwendet\" _\r\n & \":
Startverzeichnis: \" & objAccess.CurrentProject.Path & \"\"\" noWrap=\"\"true\"\"\/>\"\r\n strXML &= \" <\/topItems>\"\r\n strXML &= \" <\/group>\"\r\n strXML &= \" <\/firstColumn>\"\r\n strXML &= \" <\/tab>\"\r\n strXML &= \" <\/backstage>\"\r\n \r\n strXML &= \"<\/customUI>\" & vbCrLf<\/span>\r\n Return strXML\r\nEnd Function<\/span><\/pre>\n<customUI xmlns=\"http:\/\/schemas.microsoft.com\/office\/2009\/07\/customui\" onLoad=\"onLoad\">\r\n <backstage>\r\n <tab id=\"tabStartupfolder\" label=\"amvStartverzeichnis\" columnWidthPercent=\"50\" firstColumnMinWidth=\"400\" \r\n title=\"Optionen amvStartverzeichnis\">\r\n <firstColumn>\r\n <group id=\"grpStartupfolder\" label=\"Wähle hier das Verzeichnis aus, das beim Start dieser Datenbank gesetzt\r\n wird und für Import\/Export et cetera verwendet werden soll.\">\r\n <topItems>\r\n <labelControl id=\"lblStartupfolder\" label=\"Damit das gewählte Verzeichnis verwendet wird, muss die \r\n Datenbank komplett geschlossen und wieder geöffnet werden.
Startverzeichnis:\" \r\n noWrap=\"true\"\/>\r\n <layoutContainer id=\"layBaseFolder\" layoutChildren=\"horizontal\" expand=\"neither\">\r\n <editBox id=\"txtStartupfolder\" getText=\"getText\" sizeString=\"yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy\r\n yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy\" onChange=\"onChange\"\/>\r\n <button id=\"btnStartupfolder\" label=\"Auswählen\" onAction=\"onAction\"\/>\r\n <\/layoutContainer>\r\n <labelControl id=\"lblStartupfolderRemark\" getLabel=\"GetLabel\" noWrap=\"true\"\/>\r\n <\/topItems>\r\n <\/group>\r\n <\/firstColumn>\r\n <\/tab>\r\n <\/backstage><\/pre>\n
Function <\/span>OnLoad(ribbon As <\/span>IRibbonUI)\r\n Set<\/span> objRibbon = ribbon\r\nEnd Function<\/span><\/pre>\nPrivate <\/span>objRibbon As <\/span>IRibbonUI<\/pre>\nFunction <\/span>GetText(control As <\/span>IRibbonControl) As String<\/span>\r\n Select Case control.Id\r\n Case <\/span>\"txtStartupfolder\"\r\n If <\/span>Len<\/span>(strStartupfolder) = 0 Then<\/span>\r\n strStartupfolder = vbNullString & Chr(0)\r\n End If<\/span>\r\n Return strStartupfolder\r\n End Select<\/span>\r\nEnd Function<\/span><\/pre>\nPublic Sub <\/span>OnAction(control As <\/span>IRibbonControl)\r\n Dim <\/span>strTemp As String<\/span>\r\n Dim <\/span>strInitialFolder As String<\/span>\r\n Select Case control.Id\r\n Case <\/span>\"btnStartupfolder\"\r\n If <\/span>Len<\/span>(strStartupfolder) = 0 Then<\/span>\r\n strInitialFolder = objAccess.CurrentProject.Path\r\n Else<\/span>\r\n strInitialFolder = strStartupfolder\r\n End If<\/span>\r\n If <\/span>Not<\/span> Right<\/span>(strInitialFolder, 1) = \"\\\" Then<\/span>\r\n strInitialFolder = strInitialFolder & \"\\\"\r\n End If<\/span>\r\n strStartupfolder = ChooseFolder(strInitialFolder)\r\n SaveAppSetting(objAccess.CurrentDb.Name, strStartupfolder)\r\n objRibbon.Invalidate\r\n Exit Sub<\/span>\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nFunction <\/span>GetLabel(control As <\/span>IRibbonControl) As String<\/span>\r\n Dim <\/span>strRemark As String<\/span>\r\n Select Case control.Id\r\n Case <\/span>\"lblStartupfolderRemark\"\r\n strRemark = vbCrLf<\/span> & \"Wenn kein Verzeichnis gesetzt ist, wird das Verzeichnis der aktuellen Datenbank als Standarddatenbankordner verwendet:\" & vbCrLf<\/span> & vbCrLf<\/span> & \"Startverzeichnis: \" & objAccess.CurrentProject.Path\r\n Return strRemark\r\n End Select<\/span>\r\nEnd Function<\/span><\/pre>\nAuswählen des Standarddatenbankordners per Dateidialog<\/h2>\n
Public Function <\/span>ChooseFolder(strInitialFolder As String<\/span>) As String<\/span>\r\n Dim <\/span>objFileDialog As <\/span>Office.FileDialog\r\n Dim <\/span>strTemp As String<\/span>\r\n Dim <\/span>varFilename As Variant<\/span>\r\n Set<\/span> objFileDialog = objAccess.FileDialog(msoFileDialogFolderPicker)\r\n With<\/span> objFileDialog\r\n .Title = \"Startverzeichnis auswählen\"\r\n .ButtonName = \"Auswählen\"\r\n .AllowMultiSelect = True<\/span>\r\n .InitialFileName = strInitialFolder\r\n If <\/span>.Show = True<\/span> Then<\/span>\r\n For Each varFilename In .SelectedItems\r\n strTemp = strTemp & \"|\" & varFilename\r\n Next<\/span> varFilename\r\n If <\/span>Not<\/span> Len<\/span>(strTemp) = 0 Then<\/span>\r\n strTemp = Mid<\/span>(strTemp, 2)\r\n End If<\/span>\r\n End If<\/span>\r\n End With<\/span>\r\n ChooseFolder = strTemp\r\nEnd Function<\/span><\/pre>\nZusammenfassung und Ausblick<\/h2>\n