Den Navigationsbereich von Access kennt jeder Access-Entwickler. Damit öffnen und verwalten wir die Access-Objekte beim Entwickeln einer Datenbankanwendung. Aber der Navigationsbereich bietet noch mehr Möglichkeiten, als einfach nur die Tabellen, Abfragen, Formulare, Berichte, Makros und Module sortiert nach Kategorien anzuzeigen und eine einfache Suchfunktion dafür bereitzustellen. Wir können damit auch noch benutzerdefinierte Kategorien und Gruppen erstellen, in denen wir die Objekte individuell strukturieren können. Während die Verwendung dieser Funktionen eher trivial ist, weshalb wir nur einen kurzen Blick darauf werfen, interessiert uns aus Entwicklersicht, wo diese Kategorien und Gruppen sowie die enthaltenen Elemente gespeichert werden. In diesem Beitrag werden die notwendigen Schritte beschrieben, um diese Einstellungen und Elemente bei der Übertragung der Anwendung in eine neue Datenbankdatei zu berücksichtigen.<\/b><\/p>\n
Benutzerdefinierte Anpassungen im Navigationsbereich<\/h2>\n
Wenn wir den Navigationsbereich nutzen wollen, um die Datenbankobjekte anders zu strukturieren, können wir die von Access bereitgestellten Methoden dazu nutzen.<\/p>\n
Dazu klicken wir mit der rechten Maustaste auf die Titelleiste des Navigationsbereichs und wählen aus dem Kontextmenü den Befehl Navigationsoptionen… <\/b>aus.<\/p>\n
Dies öffnet den Dialog aus Bild 1.<\/p>\n
![\"Einstellungen](\"..\/fileadmin\/_temp_\/2025_02\/pic_1543_001.png\")
<\/p>\n
Bild 1: Einstellungen für den benutzerdefinierten Navigationsbereich<\/span><\/b><\/p>\n Hier sehen wir zwei Listenfelder, von denen das linke die Kategorien anzeigt und das rechte die in der aktuell ausgewählten Kategorie enthaltenen Gruppen.<\/p>\n Die Standardkategorie heißt Objekttyp<\/b> und sie zeigt die Access-Objekte gruppiert nach dem Objekttyp an, also nach Tabellen, Abfragen, Formularen, Berichten, Makros und Modulen. Die zweite eingebaute Kategorie heißt Tabellen und damit verbundene Sichten<\/b>. Sie sorgt dafür, dass die Tabellen als Gruppenköpfe angezeigt werden und darunter alle Objekte, die in irgendeiner Weise auf die jeweilige Tabelle zugreifen. Dies sieht im Navigationsbereich wie in Bild 2 aus. Um zu dieser Kategorie zu wechseln, klicken wir auf die Titelleiste des Navigationsbereichs und wählen den Eintrag Tabellen und damit verbundene Sichten <\/b>aus.<\/p>\n Bild 2: Kategorisierung nach Tabellen und ihren abhängigen Objekten<\/span><\/b><\/p>\n Uns interessiert jedoch viel mehr die dritte Kategorie namens Custom<\/b>, die standardmäßig in jeder neuen Access-Datenbank angelegt wird und die wir auch oben in der Abbildung bereits gesehen haben. Für diese Kategorie sehen wir auf der rechten Seite zwei Gruppen namens Custom Group 1 <\/b>und Nicht zugewiesene Objekte<\/b>. <\/p>\n Diese aktivieren wir ebenfalls durch einen Klick auf die Titelleiste des Navigationsbereichs und anschließende Auswahl von Custom<\/b>.<\/p>\n Danach erhalten wir die Ansicht aus Bild 3 im Navigationsbereich. Hier sehen wir keine Elemente in der Gruppe Custom Group 1 <\/b>und alle Elemente in der Gruppe Nicht zugewiesene Objekte<\/b>.<\/p>\n Bild 3: Auswahl der benutzerdefinierten Kategorie<\/span><\/b><\/p>\n Im Dialog Navigationsoptionen <\/b>können wir nun zum Erstellen einer eigenen Kategorie entweder die vorhandene Kategorie Custom <\/b>umbenennen oder diese löschen und neu erstellen. Dazu verwenden wir die Schaltflächen unterhalb des linken Listenfeldes. Wir benennen die Kategorie in diesem Fall in Objekte nach Bereich <\/b>um, weil wir verschiedene Gruppen anlegen wollen, in denen wir die Datenbankobjekte nach verschiedenen Kriterien gruppieren wollen.<\/p>\n In der rechten Liste sehen wir nach wie vor die beiden Gruppen Custom Group 1 <\/b>und Nicht zugewiesene Objekte<\/b>. Erstere können wir löschen oder umbenennen, die Gruppe Nicht zugewiesene Objekte <\/b>muss jedoch erhalten bleiben. Wenn wir diese Gruppe später nicht mehr sehen wollen, können wir diese allerdings auch ausblenden. Dazu klicken wir mit der rechten Maustaste auf den Gruppenkopf und wählen den Kontextmenübefehl Ausblenden <\/b>aus (siehe Bild 4).<\/p>\n Bild 4: Ausblenden einer Gruppe<\/span><\/b><\/p>\n Nun sehen wir die ausgeblendete Gruppe nicht mehr, was problematisch wird, wenn wie einmal ein neues Datenbankobjekt hinzufügen und dieses einer der Gruppen zuordnen wollen. Also müssen wir die Gruppe Nicht zugewiesene Objekte <\/b>dazu kurzzeitig wieder einblenden. <\/p>\n Dazu öffnen wir die Navigationsoptionen wie oben beschrieben und aktivieren die Option Ausgeblendete Objekte <\/b>anzeigen (siehe Bild 5).<\/p>\n Bild 5: Einblenden ausgeblendeter Elemente<\/span><\/b><\/p>\n Danach sehen wir die aktuell ausgeblendeten Gruppen und Elemente ausgegraut wieder im Navigationsbereich. Wir können die gewünschten Elemente nun aus diesem Bereich in die entsprechende Gruppe verschieben und den Bereich wieder ausblenden.<\/p>\n Hier stellt sich noch die Frage, wie wir überhaupt Datenbankobjekte zu einer der Gruppen zuordnen wollen. Im Dialog Navigationsoptionen <\/b>ist dies jedenfalls nicht möglich. Die Lösung ist aber einfach: Wir legen zunächst wie in Bild 6 die benötigten Gruppen für unsere benutzerdefinierte Kategorie an.<\/p>\n Bild 6: Einige benutzerdefinierte Gruppen<\/span><\/b><\/p>\n Schließen wir den Dialog Navigationsoptionen <\/b>dann wieder und wählen im Navigationsbereich die benutzerdefinierte Kategorie namens Objekte nach Bereich <\/b>aus, sehen wir die Ansicht aus Bild 7. Hier können wir nun die benötigten Objekte in die einzelnen Kategorien hineinziehen.<\/p>\n Bild 7: Zuweisen von Datenbankobjekten zu den benutzerdefinierten Gruppen<\/span><\/b><\/p>\n Das Ergebnis sehen wir schließlich in Bild 8. Hier haben wir zunächst einmal einfach alle Elemente nach dem Namen der jeweiligen Gruppe gefiltert und dann alle Objekte, die zu der Gruppe passen, in diese hineingezogen. Das haben wir für alle Gruppen wiederholt.<\/p>\n Bild 8: Die benutzerdefinierten Gruppen mit den zugewiesenen Datenbankobjekten<\/span><\/b><\/p>\n Bei manchen Objekten tauchen im Name aber gleich mehrere Gruppenbezeichnungen auf. Auch das ist kein Problem, denn innerhalb der benutzerdefinierten Gruppen werden, wie die Icons bereits zeigen, ohnehin nur Verknüpfungen zu den jeweiligen Datenbankobjekten gespeichert.<\/p>\n Das heißt, dass wir beispielsweise die Verknüpfung auf die Tabelle tblAutorenBuecher <\/b>nicht nur in der Kategorie Autoren <\/b>unterbringen, sondern auch in der Kategorie Bücher<\/b>.<\/p>\n Damit haben wir uns eine übersichtlichere Darstellung der zu programmierenden Objekte erschaffen. Nun wollen wir uns darum kümmern, wo sich die Informationen zu diesen Kategorien, Gruppen und den zugewiesenen Elementen befinden und wie wir diese auslesen, manipulieren und gegebenenfalls mit den ganzen Objekten in eine andere Datenbank übertragen können. Letzteres kann beispielsweise einmal nötig sein, wenn die Datenbank korrupt ist.<\/p>\n Bei den Daten rund um die Kategorien, Gruppen und die zugeordneten Datenbankobjekte handelt es sich um strukturierte Informationen, die in Access üblicherweise in Tabellen gespeichert werden. Nur sehen wir aktuelle keine Tabelle, die dafür in Frage kommt.<\/p>\n Das ändert sich allerdings, wenn wir die Navigationsoptionen erneut öffnen und die Optionen Ausgeblendete Objekte anzeigen <\/b>und Systemobjekte anzeigen <\/b>beide aktivieren.<\/p>\n Im Navigationsbereich erscheinen nun automatisch die Systemtabellen und die ausgeblendeten Tabellen – teilweise sind die Systemtabellen auch noch als ausgeblendet markiert, sodass das Aktivieren beider Optionen zum Einblenden durchaus angebracht war (siehe Bild 9).<\/p>\n Bild 9: Die Tabellen zum Verwalten der Daten zum Navigationsbereich<\/span><\/b><\/p>\n Hier sehen wir auch vier Tabellen, deren Namen zu unserer Suche passen:<\/p>\n In der Tabelle MSysNavPaneObjectIDs <\/b>werden die Namen aller Objekte der Datenbank gespeichert – samt einem Zahlenwert für den Objekttyp, wie er auch in der Tabelle MSysObjects <\/b>zu finden ist, und einem eindeutigen Wert im Feld Id<\/b> (siehe Bild 10).<\/p>\n Bild 10: Die Tabelle der NavPane…-Objekte<\/span><\/b><\/p>\n Auf der anderen Seite der Kette sehen wir die Tabelle der Kategorien, wie wir sie im linken Listenfeld der Navigationsoptionen <\/b>anlegen können.<\/p>\n Diese werden in der Tabelle MSysNavPaneGroupCategories<\/b> gespeichert.<\/p>\n Diese sehen wir in Bild 11. Genau wie in der Liste im Navigationsbereich sehen wir hier genau drei Einträge, von denen der dritte mit dem Wert 3 <\/b>im Primärschüsselfeld den Namen Objekte nach Bereich <\/b>trägt.<\/p>\n Bild 11: Die Tabellen zum Verwalten der Kategorien<\/span><\/b><\/p>\n Um die übrigen beiden Tabellen hier einzuordnen, haben wir uns die Tabellen im Beziehungen-Fenster angesehen.<\/p>\n Manchmal kann man sich die Zusammenhänge zwischen den Tabellen besser zusammenreimen, wenn man diese inklusive ihrer Felder einmal im Überblick sieht. <\/p>\n Wenn wir die vier Tabellen in das Beziehungen-Fenster ziehen, sehen wir auch gleich, dass es nur zwischen zweien eine Beziehung mit referenzieller Integrität gibt – nämlich MSysNavPaneGroupCategories <\/b>und MSysNavPaneGroups<\/b>, also die Tabellen mit den Kategorien und den Gruppen.<\/p>\n Die Beziehungen zwischen den übrigen Tabellen fügen wir der Übersicht halber einmal hinzu. Die Tabelle MSysNavPaneObjectIDs <\/b>mit den Datenbankobjekten ist über die Tabelle MSysNavPaneGroupToObjects <\/b>als m:n-Verknüpfungstabelle mit der Tabelle MSysNavPaneGroups <\/b>verknüpft. Das ist nötig, damit wir jedes Objekt jeder Gruppe zuordnen können. Das Ergebnis der Verknüpfungen sehen wir in Bild 12.<\/p>\n Bild 12: Die Tabellen im Beziehungen-Fenster<\/span><\/b><\/p>\n Dementsprechend sehen wir in der Tabelle MSysNavPaneGroups <\/b>die verschiedenen Gruppen, die wir bereits angelegt haben (siehe Bild 13).<\/p>\n Bild 13: Die Tabelle MSysNavPaneGroups mit den Gruppen<\/span><\/b><\/p>\n Wir sehen hier aber auch für jede Tabelle einen Eintrag. Wozu das? Nun: Es gibt, wie oben bereits erwähnt, eine Kategorie namens Tabellen und damit verbundene Sichten<\/b>. In dieser werden alle Tabellen als Gruppen aufgeführt und die Datenbankobjekte zugewiesen, die mit diesen Tabellen in Beziehung stehen.<\/p>\n Fehlt noch die Tabelle MSysNavPaneGroupToObjects<\/b>, die beispielsweise mit Datensätzen wie in Bild 14 gefüllt ist.<\/p>\n Bild 14: Die Tabelle MSysNavPaneGroupToObjects mit den Gruppen<\/span><\/b><\/p>\n Wichtig sind hier erst einmal die beiden Felder GroupID <\/b>und ObjectID<\/b>. Das Feld GroupID <\/b>referenziert einen Datensatz aus der Tabelle MSysNavPaneGroups<\/b>. Das Feld ObjectID <\/b>weist diesem einen Datensatz der Tabelle MSysNavPaneObjects <\/b>zu.<\/p>\n Außerdem wird im Feld Position<\/b> scheinbar festgehalten, in welcher Reihenfolge die Elemente innerhalb der Gruppe angezeigt werden sollen. Wenn wir diese Werte ändern, sehen wir jedoch keine Änderung der Reihenfolge im Navigationsbereich.<\/p>\n Interessant ist noch das Feld Icon<\/b>. Hier sehen wir bisher nur, dass wir in den beiden Kategorien Objekttyp <\/b>und Tabellen und damit verbundene Sichten <\/b>immer die Standard-Icons der Objekte sehen. In den benutzerdefinierten Kategorien werden die Objekte mit den gleichen Icons angezeigt, die jedoch immer noch um den Verknüpfungspfeil ergänzt sind.<\/p>\n Sollte hier etwa die Möglichkeit bestehen, noch weitere Icons zu nutzen? Da wir bereits verschiedene Icons im Navigationsbereich sehen, das Feld Icon<\/b> aber für jeden Datensatz den Wert 0 <\/b>enthält, gehen wir an dieser Stelle nicht davon aus, dass wir hier ein alternatives Icon nutzen können. Wir haben verschiedene Zahlenwerte ausprobiert, aber wir konnten keine weiteren Icons außer den standardmäßig dargestellten hinzufügen.<\/p>\n Wenn wir eine neue Datenbank auf Basis einer vorhandenen Datenbank erstellen wollen, beispielsweise weil die vorhandene Datenbank korrupt oder beschädigt ist, können wir dazu wie üblich den Assistenten zum Importieren von Daten aus einer anderen Access-Datenbank verwenden.<\/p>\n Diesen starten wir beispielsweise in der Access-Version von Office 365 mit dem Ribbon-Befehl Externe Daten|Importieren und Verknüpfen|Neue Datenquelle|Aus Datenbank|Access<\/b>. Dies öffnet zunächst einen Dialog, mit dem wir die Quelldatenbank auswählen können. Danach legen wir im Dialog Objekte importieren <\/b>fest, welche Datenbankobjekte importiert werden sollen. Klicken wir hier auf Optionen, finden wir im Bereich Importieren <\/b>die Option Navigationsbereichsgruppen <\/b>vor. Aktivieren wir diese, werden die Inhalte der oben beschriebenen Tabellen in die neue Datenbank übernommen (siehe Bild 15).<\/p>\n Bild 15: Aktivieren der Navigationsbereichsgruppen beim Importieren von Datenbankobjekten<\/span><\/b><\/p>\n Nach dem Importieren finden wir nach einem Klick auf die Titelleiste des Navigationsbereichs direkt die benutzerdefinierten Kategorien vor.<\/p>\n Wenn wir im Objektkatalog des VBA-Editors NavigationPane <\/b>als Suchbegriff eingeben, finden wir ein paar Einträge (siehe Bild 16).<\/p>\n Bild 16: Methoden rund um den Navigationsbereich<\/span><\/b><\/p>\n Diese beschreiben wir in den folgenden Abschnitten.<\/p>\n Mit der Methode ExportNavigationPane <\/b>des Application<\/b>-Objekts können wir die Definition des Navigationsbereichs exportieren – zum Beispiel in eine Datei im Datenbankverzeichnis:<\/p>\n Das Ergebnis sehen wir in Bild 17.<\/p>\n Bild 17: Export des Navigationsbereichs als XML-Datei<\/span><\/b><\/p>\n Diese Datei enthält im Wesentlichen die Informationen, die in den Tabellen, deren Name mit MSysNavPane… <\/b>beginnt, gespeichert sind.<\/p>\n Mit der nächsten Anweisung ImportNavigationPane <\/b>können wir eine auf diese Weise exportierte Datei wieder importieren. Der Aufruf lautet analog:<\/p>\n „Sperren“ ist etwas übertrieben, denn wir können diesen nur teilweise mit der Anweisung DoCmd.LockNavigationPane <\/b>sperren. Dazu übergeben wir dieser Anweisung den Parameter True<\/b>, um die Sperrung zu aktivieren und False<\/b>, um die Sperrung wieder aufzuheben. Diese Sperrung ist vor allem interessant, wenn man eine benutzerdefinierte Kategorie mit Gruppen und der Zuordnung der Datenbankobjekte hergestellt hat. Dann werden folgende Aktionen des Benutzers verhindert:<\/p>\n Bild 18: Deaktivierte Optionen bei gesperrtem Navigationsbereich<\/span><\/b><\/p>\n Neben den zuvor vorgestellten VBA-Elemente, mit denen wir das Aussehen des Navigationsbereichs anpassen können, finden wir weitere interessante Elemente in der Properties<\/b>-Auflistung des Database<\/b>-Objekts der aktuellen Datenbank. Um diese auszulesen, verwenden wir die folgende Routine:<\/p>\n Dies gibt einige Informationen im Direktbereich des VBA-Editors aus, von denen die folgenden interessant für uns sind:<\/p>\n Die jeweiligen Werte geben wir beispielsweise per Debug.Print <\/b>wie folgt im Direktbereich aus:<\/p>\n Einstellen können wir die Properties durch einfache Zuweisung:<\/p>\n Die meisten Änderungen wirken sich allerdings erst nach dem Schließen und erneutem Öffnen der Datenbank aus.<\/p>\n Schauen wir uns die Property NavPane Category <\/b>an.<\/p>\n Wenn wir die jeweilige Kategorie einstellen und nach dem erneuten Öffnen der Anwendung den Wert abrufen, erhalten wir folgende Ergebnisse:<\/p>\n Wenn wir einen der Werte setzen, ändern wir damit nicht direkt die angezeigte Kategorie, sondern diese wird erst nach dem nächsten Öffnen der Anwendung angewendet. Folgende Anweisung stellt wieder Alle Access-Objekte <\/b>ein:<\/p>\n Mit der folgenden Anweisung können wir den aktuellen Wert für die Anzeige der Suchleiste abfragen:<\/p>\n Dies liefert bei aktivierter Suchleiste den Wert -1 <\/b>und bei ausgeblendeter Suchleiste den Wert 0<\/b>.<\/p>\n Ob der Navigationsbereich angezeigt wird oder nicht, können wir mit der folgenden Anweisung ermitteln:<\/p>\n Dies liefert den Wert -1<\/b>, wenn der Navigationsbereich angezeigt wird und 0<\/b>, wenn dies nicht der Fall ist.<\/p>\n Dies betrifft explizit den vollständig ausgeblendeten Zustand, also den, wo der Navigationsbereich gar nicht zu sehen ist im Gegensatz zu dem, wo er nur durch Anklicken der Schaltfläche mit dem Pfeil nach links minimiert wird.<\/p>\n Diesen Zustand können wir auch über die Access-Optionen einstellen (siehe Bild 19).<\/p>\n Bild 19: Ein- und Ausblenden des Navigationsbereichs<\/span><\/b><\/p>\n Im Gegensatz zu den übrigen Einstellungen wirkt sich die Änderung dieser Option über die Access-Optionen direkt auf den Wert aus, den wir mit CurrentDb.Properties(„StartupShowDBWindow“<\/b>) ermitteln können.<\/p>\n Das Einstellen dieser Eigenschaft auf den jeweils anderen Wert wirkt sich aber dennoch erst nach dem erneuten Öffnen der Datenbank aus.<\/p>\n Am Namen dieser Eigenschaft erkennen wir, dass es sich bei diesem gegebenüber den anderen Eigenschaften, die mit Nav Pane… <\/b>beginnen, noch um ein Überbleibsel aus den Zeiten handelt, wo es noch das Datenbankfenster statt des Navigationsbereichs gab.<\/p>\n Mit der Eigenschaft NavPane Closed <\/b>können wir auslesen und einstellen, ob der Navigationsbereich minimiert oder maximiert angezeigt werden soll. Ist der Navigationsbereich vollständig sichtbar, erhalten wir mit der folgenden Anweisung den Wert 0<\/b>:<\/p>\n Wenn er minimiert ist, also nur als schmaler Balken angezeigt wird, erhalten wir hier den Wert 1<\/b>.<\/p>\n Mit der Eigenschaft NavPane Width <\/b>ermitteln wir die Breite des Navigationsbereichs in Pixeln.<\/p>\n Wir können die Breite damit auch einstellen:<\/p>\n Auch hier werden die Änderungen erst nach dem nächsten Öffnen der Anwendung berücksichtigt – sowohl nach dem Einstellen als auch beim Auslesen.<\/p>\n Die Ansicht des Navigationsbereichs ermitteln und lesen wir mit der Eigenschaft NavPane View By<\/b>. Die folgende Anweisung gibt den aktuellen Wert aus:<\/p>\n Damit erhalten wir folgende Werte für die verschiedenen Einstellungen, die wir über das Kontextmenü des Navigationsbereichs einstellen können (siehe Bild 20):<\/p>\n Bild 20: Einstellen der Ansicht des Navigationsbereichs<\/span><\/b><\/p>\n Auch für die Einstellung der Sortierungsoptionen gibt es eine Eigenschaft.<\/p>\n Diese heißt NavPane Sort By<\/b>. Ob die Sortierung auf Aufsteigend <\/b>oder Absteigend <\/b>eingestellt ist, spielt für diese Eigenschaft keine Rolle.<\/p>\n Hier werden nur die folgenden Einstellungen entsprechend durch Zahlenwerte repräsentiert:<\/p>\n Wenn wir eine benutzerdefinierte Kategorie ausgewählt haben, können wir mit der Eigenschaft NavPane Category Name <\/b>die Bezeichnung dieser Kategorie ermitteln:<\/p>\n Wenn keine benutzerdefinierte Kategorie ausgewählt ist, sondern eine der eingebauten, wird diese Property gelöscht und der Zugriff darauf löst den Fehler 3270<\/b>, Eigenschaft nicht gefunden <\/b>aus.<\/p>\n Zuletzt schauen wir uns noch an, wie wir die oben über die Benutzeroberfläche durchgeführten Änderungen, also das Anlegen einer neuen Kategorie, das Hinzufügen von Gruppen oder das Zuordnen von Datenbankobjekten von den Gruppen per VBA erledigen können.<\/p>\n Dazu konnten wir im Objektmodell von Access keinerlei Befehle finden. Das heißt, dass die einzige Möglichkeit das Verwenden entsprechender Anfüge-, Aktualisierungs- und Löschabfragen für die vier verwendeten Tabellen ist.<\/p>\n Wozu sollte man dies überhaupt tun? Zum Beispiel, wenn man den Navigationsbereich für den Kunden anpasst, sodass er seine Datenbankobjekte darüber öffnen kann. Wenn dann während der Anwendung beispielsweise eine temporäre Tabelle mit Daten erstellt wird, sieht der Kunde diese zunächst nicht beziehungsweise sie ist dann unter Nicht zugewiesene Objekte<\/b> verborgen.<\/p>\n Da wir diesen Bereich üblicherweise nicht anzeigen wollen, könnten wir einen Bereich beispielsweise namens Temporäre Daten <\/b>hinzufügen.<\/p>\n Diesem könnten wir dann auch die temporären Tabellen zuweisen. Wie das gelingt, schauen wir uns in den nächsten Abschnitten an.<\/p>\n Damit kommen wir zur programmgesteuerten Anpassung benutzerdefinierter Navigationskategorien.<\/p>\n Als Erstes erstellen wir eine Prozedur, mit der wir eine neue Tabelle anlegen (siehe Listing 1). Die Prozedur verwendet eine SQL-Anweisung mit dem Befehl CREATE TABLE<\/b>, um eine Tabelle namens tblBeispiel <\/b>mit den beiden Feldern BeispielID <\/b>und Beispiel <\/b>zu erstellen.<\/p>\n Listing 1: Anlegen der neuen Tabelle<\/span><\/b><\/p>\n Diese SQL-Anweisung wird mit der Execute<\/b>-Methode der Database<\/b>-Klasse der aktuellen Datenbank ausgeführt. Damit die Tabelle direkt im Navigationsbereich erscheint, rufen wir noch die Methode RefreshDatabaseWindow <\/b>auf.<\/p>\n Dann wollen wir diese mit weiteren Anweisungen zu einer Gruppe der benutzerdefinierten Kategorie hinzufügen.<\/p>\n Dazu würden wir nun die ID des neu hinzugefügten Objekts aus der Tabelle MSysNavPaneObjectIDs <\/b>ermitteln, am einfachsten per DLookup.<\/p>\n Allerdings geht das jetzt noch gar nicht, da diese Tabelle anscheinend immer erst nach dem Schließen und dem erneuten Öffnen der Datenbankanwendung aktualisiert wird.<\/p>\n Selbst wenn wir die neu hinzugefügte direkt manuell zu einer der Gruppen der benutzerdefinierten Kategorie hinzufügen, wird diese nicht in der Tabelle MSysNavPaneObjectIDs<\/b> angezeigt.<\/p>\n Also probieren wir, diese codegesteuert zur Tabelle zu addieren. Dazu gehen wir wie in Listing 2 wie folgt vor:<\/p>\n Listing 2: Hinzufügen der Tabelle zu einer benutzerdefinierten Gruppe<\/span><\/b><\/p>\n![\"Kategorisierung](\"..\/fileadmin\/_temp_\/2025_02\/pic_1543_002.png\")
<\/p>\n![\"Auswahl](\"..\/fileadmin\/_temp_\/2025_02\/pic_1543_003.png\")
<\/p>\nAnpassen von Kategorien und Gruppen<\/h2>\n
Gruppe ausblenden<\/h2>\n
![\"Ausblenden](\"..\/fileadmin\/_temp_\/2025_02\/pic_1543_004.png\")
<\/p>\nAusgeblendete Gruppe wieder einblenden<\/h2>\n
![\"Einblenden](\"..\/fileadmin\/_temp_\/2025_02\/pic_1543_005.png\")
<\/p>\nObjekte zu den Gruppen zuweisen<\/h2>\n
![\"Einige](\"..\/fileadmin\/_temp_\/2025_02\/pic_1543_006.png\")
<\/p>\n![\"Zuweisen](\"..\/fileadmin\/_temp_\/2025_02\/pic_1543_007.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2025_02\/pic_1543_008.png\")
<\/p>\nInformationen zum Navigationsbereich in den Systemtabellen<\/h2>\n
![\"Die](\"..\/fileadmin\/_temp_\/2025_02\/pic_1543_009.png\")
<\/p>\n\n
Tabelle zum Speichern der Objekte<\/h2>\n
![\"Die](\"..\/fileadmin\/_temp_\/2025_02\/pic_1543_010.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2025_02\/pic_1543_012.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2025_02\/pic_1543_011.png\")
<\/p>\nTabelle zum Speichern der Gruppen<\/h2>\n
![\"Die](\"..\/fileadmin\/_temp_\/2025_02\/pic_1543_013.png\")
<\/p>\nTabelle zum Zuordnen von Datenbankobjekten zu den Gruppen<\/h2>\n
![\"Die](\"..\/fileadmin\/_temp_\/2025_02\/pic_1543_014.png\")
<\/p>\nImportieren der Navigationsbereichs-Einstellungen in eine neue Datenbank<\/h2>\n
![\"Aktivieren](\"..\/fileadmin\/_temp_\/2025_02\/pic_1543_015.png\")
<\/p>\nVBA-Methoden für die Steuerung des Navigationsbereichs<\/h2>\n
![\"Methoden](\"..\/fileadmin\/_temp_\/2025_02\/pic_1543_018.png\")
<\/p>\nExportieren des Navigationsbereichs<\/h2>\n
Application.ExportNavigationPane CurrentProject.Path & \"\\NavPane.xml\"<\/pre>\n
![\"Export](\"..\/fileadmin\/_temp_\/2025_02\/pic_1543_019.png\")
<\/p>\nImportieren des Navigationsbereichs<\/h2>\n
Application.ImportNavigationPane CurrentProject.Path & \"\\NavPane.xml\"<\/pre>\n
Sperren des Navigationsbereichs<\/h2>\n
\n
![\"Deaktivierte](\"..\/fileadmin\/_temp_\/2025_02\/pic_1543_020.png\")
<\/p>\nEinstellungen für den Navigationsbereich per VBA<\/h2>\n
Public Function <\/span>Eigenschaften()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>prp As <\/span>DAO.Property\r\n Set<\/span> db = CurrentDb\r\n For Each prp In db.Properties\r\n Debug.Print<\/span> prp.Name,\r\n On Error Resume Next<\/span>\r\n Debug.Print<\/span> prp.Value\r\n If <\/span>Not<\/span> Err.Number = 0 Then<\/span>\r\n Debug.Print<\/span> \"#ERROR\"\r\n End If<\/span>\r\n Next<\/span> prp\r\nEnd Function<\/span><\/pre>\nNavPane Category 4 \r\nShow Navigation Pane Search Bar 0 \r\nStartUpShowDBWindow Falsch\r\nNavPane Closed 0 \r\nNavPane Width 451 \r\nNavPane View By 0 \r\nNavPane Sort By 1 \r\nNavPane Category Name Objekte nach Bereich<\/pre>\n
CurrentDb.Properties(\"NavPane Category\")\r\n 4<\/pre>\n
CurrentDb.Properties(\"NavPane Category\") = 4<\/pre>\n
Einstellen der aktuell angezeigten Kategorie<\/h2>\n
\n
CurrentDb.Properties(\"NavPane Category\") = 0<\/pre>\n
Einstellen der Anzeige der Suchleiste<\/h2>\n
CurrentDb.Properties(\"Show Navigation Pane Search Bar\")<\/pre>\n
Ein- und Ausblenden des Navigationsbereichs<\/h2>\n
Debug.Print<\/span> CurrentDb.Properties(\"StartupShowDBWindow\")<\/pre>\n![\"Ein-](\"..\/fileadmin\/_temp_\/2025_02\/pic_1543_016.png\")
<\/p>\nNavigationsbereich eingeklappt oder ausgeklappt<\/h2>\n
CurrentDb.Properties(\"NavPane Closed\") \r\n 0 <\/pre>\n
Breite des Navigationsbereichs ermitteln<\/h2>\n
CurrentDb.Properties(\"NavPane Width\") \r\n 358<\/pre>\n
CurrentDb.Properties(\"NavPane Width\")= 500<\/pre>\n
Aktuelle Ansicht des Navigationsbereichs<\/h2>\n
CurrentDb.Properties(\"NavPane View By\")<\/pre>\n
![\"Einstellen](\"..\/fileadmin\/_temp_\/2025_02\/pic_1543_017.png\")
<\/p>\n\n
Sortierung im Navigationsbereich ändern<\/h2>\n
\n
Name der aktuellen benutzerdefinierten Kategorie ermitteln<\/h2>\n
CurrentDb.Properties(\"NavPane Category Name\")\r\nObjekte nach Bereich<\/pre>\n
Benutzerdefinierte Kategorien, Gruppen und Zuordnungen der Objekte per Code steuern<\/h2>\n
Tabelle mit benutzerdefiniertem Eintrag im Navigationsbereich anlegen<\/h2>\n
Public Sub <\/span>TabelleAnlegen()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>strSQL As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n strSQL = \"CREATE TABLE tblBeispiel(BeispielID AUTOINCREMENT PRIMARY KEY, Beispiel TEXT(255));\"\r\n \r\n db.Execute strSQL, dbFailOnError\r\n \r\n Application.RefreshDatabaseWindow\r\n Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\nPublic Sub <\/span>TabelleZuGruppeHinzufuegen()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>lngObjectID As Long<\/span>\r\n Dim <\/span>strObject As String<\/span>\r\n Dim <\/span>strSQL As String<\/span>\r\n Dim <\/span>strGroup As String<\/span>\r\n Dim <\/span>lngGroupID As Long<\/span>\r\n Dim <\/span>lngPosition As Long<\/span>\r\n strObject = \"tblBeispiel\"\r\n strGroup = \"ALLE\"\r\n Set<\/span> db = CurrentDb\r\n lngObjectID = DMax(\"ID\", \"MSysNavPaneObjectIDs\") + 1\r\n strSQL = \"INSERT INTO MSysNavPaneObjectIDs(ID, Name, Type) VALUES(\" & lngObjectID & \", ''\" & strObject & \"'', 1)\"\r\n db.Execute strSQL, dbFailOnError\r\n lngObjectID = DLookup(\"Id\", \"MSysObjects\", \"Name = ''\" & strObject & \"''\")\r\n lngGroupID = DLookup(\"ID\", \"MSysNavPaneGroups\", \"Name = ''\" & strGroup & \"''\")\r\n lngPosition = DMax(\"Position\", \"MSysNavPaneGroupToObjects\", \"GroupID = \" & lngGroupID) + 1\r\n strSQL = \"INSERT INTO MSysNavPaneGroupToObjects(GroupID, ObjectID, Flags, Icon, Position) VALUES(\" & lngGroupID _\r\n & \", \" & lngObjectID & \", 0, 0, \" & lngPosition & \")\"\r\n db.Execute strSQL, dbFailOnError\r\n Application.RefreshDatabaseWindow\r\n Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\n\n
![\"Die](\"..\/fileadmin\/_temp_\/2025_02\/pic_1543_021.png\")
<\/p>\n