<\/p>\n
Manchmal wird die Liste der Tabellen, Abfragen, Formulare und Co. im Navigationsbereich etwas unübersichtlich. Da wünscht sich der eine oder andere, dass die wichtigsten Elemente einer Datenbank schnell zur Verfügung stehen. Eine Möglichkeit, das zu erledigen, ist das Ribbon. Wie Sie die dort anzuzeigenden Elemente auswählen und diese dort hinzufügen, zeigt der vorliegende Beitrag.<\/b><\/p>\n
Zwar verstummen allmählich die Stimmen, die eine Rückkehr des Datenbankfensters fordern, aber dass der Navigationsbereich nicht gerade die übersichtlichste Variante ist, um Datenbankobjekte anzuzeigen, ist offensichtlich (siehe Bild 1). Auf vielfachen Leserwunsch schauen wir uns daher einmal an, welche Möglichkeiten es gibt, Elemente wie Tabellen, Abfragen, Formulare, Berichte, Makros und Module über das Ribbon zugänglich zu machen.<\/p>\n
![\"Navigationsbereich\"](\"..\/fileadmin\/_temp_\/2020_01\/pic_1224_001.png\")
<\/p>\n
Bild 1: Navigationsbereich<\/span><\/b><\/p>\n Als Erstes benötigen wir eine Tabelle, in die wir die Elemente des Navigationsbereichs einlesen und der wir ein Feld hinzufügen, mit dem wir angeben, ob das jeweilige Element zusätzlich zur Anzeige im Navigationsbereich noch im Ribbon erscheinen soll. Dann stellen wir ein Formular zusammen, mit dem wir die Elemente anzeigen und die Möglichkeit bieten, diese für die Anzeige im Ribbon auszuwählen. Schließlich gibt es verschiedene Varianten, um Daten wie die beschriebenen Objekte im Ribbon anzuzeigen. Wir schauen uns die verschiedenen Varianten an und prüfen die Machbarkeit und Vor- und Nachteile.<\/p>\n Objekte in Tabelle<\/b><\/p>\n Zum Speichern der Objekte wollen wir die Tabelle tblObjekte-In-Ribbon<\/b> verwenden, die im Entwurf wie in Bild 2 aussieht. <\/p>\n Bild 2: Tabelle zum Speichern der Objekte<\/span><\/b><\/p>\n Die Tabelle verwendet neben dem Primärschlüsselfeld ID <\/b>das Feld Objektname<\/b>, in das wir den Namen der Tabelle, Abfrage et cetera eintragen. Für das Feld Objektname <\/b>legen wir über die Eigenschaft Indiziert <\/b>mit dem Wert Ja (Ohne Duplikate) <\/b>einen eindeutigen Index fest. Damit stellen wir sicher, dass jedes Objekt nur einmal zur Tabelle hinzugefügt wird.<\/p>\n Das Feld ObjekttypID<\/b> ist verknüpft mit der Tabelle tblObjekttypen<\/b>, in der wir die sechs Objekttypen aufführen (siehe Bild 3). Das letzte Feld heißt InRibbon <\/b>und hat den Datentyp Ja\/Nein<\/b>. Mit diesem Feld legen wir fest, ob das Objekt im Ribbon angezeigt werden soll oder nicht.<\/p>\n Bild 3: Die verschiedenen Objekttypen in der Tabelle tblObjekttypen<\/span><\/b><\/p>\n Achtung: Die Tabelle muss die Daten genau mit den Primärschlüsselwerten enthalten, wie sie hier abgebildet sind. Später verwenden wir im Code die Werte von 1 <\/b>bis 6<\/b>, um Elemente zu referenzieren, die zu einer der Objektkategorien gehören.<\/p>\n Prozedur zum Erfassen aller Objekte in der Tabelle<\/b><\/p>\n Schließlich benötigen wir eine Prozedur, mit der wir die Objekte der Datenbank durchlaufen und diese zur Tabelle tblObjekteInRibbon <\/b>hinzufügen.<\/p>\n Diese sieht wie in Listing 1 aus. Die Prozedur deklariert die Variable db<\/b>, die Sie mit einem Verweis auf das Database<\/b>-Objekt der aktuellen Datenbank füllt. tdf <\/b>und qdf <\/b>haben die Typen TableDef <\/b>und QueryDef <\/b>und dienen zum Durchlauen der Tabellen und Abfragen.<\/p>\n Listing 1: Prozedur zum Einlesen aller Access-Objekte in die Tabelle tblObjekteInRibbon<\/span><\/b><\/p>\n objAccess <\/b>hat den Typ Access-Object <\/b>und erlaubt das Durchlaufen der Auflistungen AllForms<\/b>, AllReports<\/b>, AllMacros <\/b>und AllModules <\/b>der CurrentProject<\/b>-Klasse.<\/p>\n Die Fehlerbehandlung deaktivieren wir mit On Error Resume Next<\/b>. Der Hintergrund ist, dass beim erneuten Einlesen der Objekte gegebenenfalls vorhandene Elemente gleichen Namens zu Fehlern führen können, da der eindeutige Index für das Feld Objektname <\/b>verletzt wird. Dies wollen wir einfach ignorieren und Objekte, deren Namen bereits vorhanden sind, einfach nicht nochmals hinzufügen.<\/p>\n In der ersten For Each<\/b>-Schleife durchläuft die Prozedur alle Elemente der TableDefs<\/b>-Auflistung des Database<\/b>-Objekts und trägt für jedes Element einen neuen Datensatz in die Tabelle tblObjekteInRibbon <\/b>ein.<\/p>\n Dabei wird als Objektname <\/b>der Wert der Eigenschaft Name <\/b>des TableDef<\/b>-Objekts und als ObjekttypID <\/b>der Wert 1 <\/b>eingetragen.<\/p>\n Die zweite For Each<\/b>-Schleife erledigt das Gleiche für die Elemente der Auflistung QueryDefs<\/b>. Hier fügt sie der Tabelle jedoch für das Feld ObjekttypID <\/b>den Wert 2 <\/b>hinzu.<\/p>\n Die dritte bis sechste For Each<\/b>-Schleife der Prozedur verwendet die Auflistungen AllForms<\/b>, AllReports<\/b>, AllMacros <\/b>und AllModules <\/b>des CurrentProject<\/b>-Objekts, um die Formulare, Berichte, Makros und Module der Datenbank zu ermitteln. Dabei nutzen wir jeweils die Name<\/b>-Eigenschaft des AccessObject<\/b>-Elements als Wert für das Feld Objektname<\/b>. Für das Feld ObjekttypID <\/b>tragen wir je nach Objekttyp die Werte 3<\/b>, 4<\/b>, 5 <\/b>oder 6 <\/b>ein. Das Ergebnis sieht wie in Bild 4 aus.<\/p>\n Bild 4: Die Tabelle tblObjekteInRibbon mit den Objekten der Datenbank<\/span><\/b><\/p>\n Formular zur Auswahl der anzuzeigenden Elemente<\/b><\/p>\n Nun benötigen wir ein Formular, dass die Elemente der Datenbank in alphabetischer Reihenfolge und nach Objekttyp aufgeteilt anzeigt und das Markieren der im Ribbon anzuzeigenden Objekte erlaubt. Dazu erstellen wir ein neues Formular namens frmObjekteInRibbon<\/b>. Das Formular soll seine Daten in einem Register-Steuerelement mit sechs Registerseiten anzeigen, die jeweils ein Unterformular enthalten. Das Unterformular soll die Elemente des jeweiligen Objekttyps anzeigen. Da das Unterformular jeder Registerseite die Daten aus der gleichen Tabelle anzeigen soll, die nur unterschiedlich gefiltert werden, benötigen wir nur ein Formular, das dann in den sechs Unterformular-Steuerelementen angezeigt wird.<\/p>\n Wir legen als Erstes das Formular frmObjekteInRibbon <\/b>an und fügen das Register-Steuerelement hinzu. Dann wählen wir aus dem Kontextmenü dieses Steuerelements so oft den Eintrag Seite einfügen <\/b>aus, bis das Register-Steuerelement sechs Registerseiten enthält (siehe Bild 5). Die sechs Registerseiten beschriften wir über die Eigenschaft Beschriftung <\/b>mit Tabellen<\/b>, Abfragen<\/b>, Formulare<\/b>, Berichte<\/b>, Makros <\/b>und Module<\/b>. Die Seiten erhalten die Namen pgeTabellen<\/b>, pgeAbfragen<\/b>, pgeFormulare<\/b>, pgeBerichte<\/b>, pgeMakros <\/b>und pgeModule<\/b>.<\/p>\n Bild 5: Hinzufügen von Registerseiten zum Register-Steuerelement<\/span><\/b><\/p>\n Das Unterformular sfmObjekteInRibbon <\/b>statten wir mit einer Abfrage namens qryObjekteInRibbonNachObjektname <\/b>als Datensatzquelle <\/b>aus, welche alle Felder der Tabelle tblObjekteInRibbon <\/b>enthält und diese nach dem Feld Objektname <\/b>sortiert (siehe Bild 6).<\/p>\n Bild 6: Datensatzquelle des Formulars sfmObjekteInTabelle<\/span><\/b><\/p>\n Wir fügen dem Formular die beiden Felder InRibbon <\/b>und Objektname <\/b>der Datensatzquelle hinzu. Außerdem stellen wir die Eigenschaft Standardansicht <\/b>auf Datenblatt <\/b>ein.<\/p>\n Danach speichern und schließen Sie das Unterformular sfm-ObjekteInRibbon<\/b>. Für das Formular frmObjekteInRibbon <\/b>stellen wir noch die Eigenschaften Datensatzmarkierer<\/b>, Navigationsschaltflächen <\/b>und Bildlaufleisten <\/b>auf Nein <\/b>ein und die Eigenschaft Automatisch zentrieren <\/b>auf Ja<\/b>.<\/p>\n Dann folgt ein wenig Kleinarbeit: das Einfügen des Unterformulars in das Register-Steuerelement. Hier gibt es zwei Möglichkeiten:<\/p>\n Wer schon einmal auf mehreren Registerseiten ein Steuer-element so eingefügt hat, dass es sich beim Blättern im Register immer an der gleichen Position befindet, weiß, dass das eine langweilige Arbeit ist. Also entscheiden wir uns für die zweite Variante mit nur einem Unterformular, das wir einfach vor dem Register-Steuerelement platzieren. Dazu fügen wir dieses zuerst unter oder neben dem Register-Steuerelement ein, entfernen das Beschriftungsfeld und schieben es dann über das Register-Steuerelement (siehe Bild 7).<\/p>\n Bild 7: Unterformular-Steuerelement über Register-Steuerelement<\/span><\/b><\/p>\n Damit sich beide beim Ändern der Formulargröße der Größe anpassen, stellen wir die Eigenschaften Horizontaler Anker <\/b>und Vertikaler Anker <\/b>jeweils auf Beide <\/b>ein.<\/p>\n Nun müssen wir nur noch dafür sorgen, dass das Unterformular nur noch die Elemente anzeigt, die dem im Register-Steuerelement ausgewählten Objekttyp entsprechen. Dazu hinterlegen wir für die Ereigniseigenschaft Bei Änderung <\/b>des Register-Steuerelements, das wir zuvor noch mit regObjekte <\/b>benennen, die folgende Ereignisprozedur:<\/p>\n <\/p>\n Diese stellt die Eigenschaft Filter <\/b>des Unterformulars auf einen Ausdruck ein, der den Wert der jeweils ausgewählten Registerseite ermittelt, eins hinzuaddiert und diesen mit dem Wert des Feldes ObjekttypID <\/b>gleichsetzt. Dabei kommt dann etwa für die erste Registerseite das folgende Kriterium heraus:<\/p>\n Wenn wir das Formular nun öffnen, erscheinen allerdings zunächst alle Elemente in der Liste (siehe Bild 8).<\/p>\n Bild 8: Das Unterformular zeigt noch alle Einträge an.<\/span><\/b><\/p>\n Wenn wir allerdings die Ereignisprozedur regObjekte_Change einmal beim Laden des Formulars aufrufen, erhalten wir auch direkt nach dem Öffnen die korrekt gefilterten Elemente (siehe Bild 9).<\/p>\n Bild 9: Objekte gefiltert nach Objekttyp, hier alle Tabellen<\/span><\/b><\/p>\n Die Ereignisprozedur, die durch das Ereignis Beim Laden <\/b>ausgelöst wird, sieht dann so aus:<\/p>\n Verwalten der Objekte<\/b><\/p>\n Wir wollen noch ein paar weitere Elemente hinzufügen, damit der Benutzer die Objekte im Formular einfacher verwalten kann. Die dazu angelegten Schaltflächen sehen Sie in Bild 10. Damit die Schaltflächen nicht unter den anderen Steuerelementen verschwinden, wenn der Benutzer das Formular nach unten vergrößert, stellen wir die Eigenschaft Vertikaler Anker <\/b>auf Unten <\/b>ein.<\/p>\n Bild 10: Objekte verwalten mit zusätzlichen Schaltflächen<\/span><\/b><\/p>\n Alle Objekte löschen<\/b><\/p>\n Die Schaltfläche mit der Beschriftung Alle löschen <\/b>heißt cmdAlleLoeschen <\/b>und soll alle Datensätze aus der Tabelle tblObjekteInRibbon <\/b>löschen. Auf diese Weise kann der Benutzer die Objekte nach umfangreicheren Änderungen anschließend wieder neu einlesen. Die Schaltfläche löst beim Anklicken die Ereignisprozedur aus Listing 2 aus. Diese zeigt zunächst noch eine Meldung an, die den Benutzer darauf hinweist, dass alle Datensätze gelöscht werden. Der Benutzer kann dies durch Betätigen der Nein<\/b>-Schaltfläche abwenden. Ansonsten sorgt eine DELETE<\/b>-Abfrage für das Löschen aller Datensätze der Tabelle tblObjekteInRibbon<\/b>. Die folgende Anweisung aktualisiert die Anzeige der Daten im Unterformular.<\/p>\n Listing 2: Beim Klicken-Prozedur der Schaltfläche cmdAlleLoeschen<\/span><\/b><\/p>\n Objekte neu einlesen<\/b><\/p>\n Die Schaltfläche cmdNeuEinlesen <\/b>löst die folgende Prozedur aus. Diese weist den Benutzer darauf hin, dass nur neue Elemente hinzugefügt werden. Anschließend ruft sie die Prozedur ObjekteInTabellenSchreiben <\/b>auf, die wir bereits weiter oben vorgestellt haben. Auch hier wird der Vorgang durch das Aktualisieren der Daten des Unterformulars abgeschlossen:<\/p>\n Alle Elemente auswählen<\/b><\/p>\n Damit der Benutzer, wenn er alle Elemente einer Kategorie wie Tabellen, Abfragen und so weiter auswählen will, nicht jeden Eintrag anhaken muss, haben wir die Schaltfläche mit der Beschriftung Alle auswählen <\/b>angelegt. Wenn der Benutzer diese anklickt, soll das Feld InRibbon <\/b>für alle aktuell sichtbaren Einträge auf Ja <\/b>eingestellt werden.<\/p>\n Die dazu notwendige Ereignisprozedur finden Sie in Listing 3. Sie ermittelt zunächst den Objekttyp, der hier aus dem Wert der gerade ausgewählten Registerseite plus eins zusammengesetzt wird (die Registerseiten haben die Werte 0 <\/b>bis 5<\/b>, die aus der Eigenschaft Seitenindex <\/b>ermittelt werden) und speichert diesen in der Variablen lngObjekttypID<\/b>. Dann aktualisiert sie alle Datensätze der Tabelle tblObjekteInRibbon<\/b>, deren Feld Objekttyp-ID <\/b>den Wert aus lngObjekttypID <\/b>enthält. Danach folgt das obligatorische Aktualisieren der Datensatzquelle des Unterformulars.<\/p>\n Listing 3: Beim Klicken-Prozedur der Schaltfläche cmdAlleAuswaehlen<\/span><\/b><\/p>\n Alle Elemente abwählen<\/b><\/p>\n Es fehlt noch die Schaltfläche cmdAlleAbwaehlen<\/b>. Die dadurch ausgelöste Prozedur ermittelt genau wie die zuvor beschriebene Prozedur zuerst den Primärschlüsselwert der aktuell angezeigten Objektart.<\/p>\n Dann aktualisiert sie alle Einträge der Tabelle tblObjekteInRibbon<\/b>, deren Feld ObjekttypID <\/b>dem Wert aus lngObjekttypID <\/b>entspricht (siehe Listing 4).<\/p>\n Listing 4: Beim Klicken-Prozedur der Schaltfläche cmdAlleAbwaehlen<\/span><\/b><\/p>\n Ribbon anpassen<\/b><\/p>\n Nun haben wir die Möglichkeit geschaffen, dass der Benutzer die gewünschten Elemente zur Anzeige im Ribbon auswählen kann. Wir brauchen nun nur noch das Ribbon anzupassen. Welche Möglichkeiten haben wir da<\/p>\n Der Nachteil aller genannten Elemente für eine sofort sichtbare Anpassung ist, dass diese erst aufgeklappt werden müssen – das heißt, man hat auf jeden Fall einen Klick mehr als wenn die Elemente direkt wie im ersten Vorschlag als Unterelemente einer Gruppe angezeigt werden. Wir schauen uns nur die erste Lösung an, da es uns unwahrscheinlich erscheint, dass jemand ständig die im Ribbon anzuzeigenden Objekte ändert und diese Änderungen immer sofort benötigt. Außerdem wird der so eingesparte Aufwand für das Schließen und erneute Öffnen der Anwendung dadurch wieder aufgezehrt, dass man immer mindestens einen Klick mehr benötigt, um zum gewünschten Objekt zu gelangen.<\/p>\n Vorbereitungen für das Anzeigen eines Ribbon-Tabs mit Objekten<\/b><\/p>\n Bevor wir uns die Prozedur anschauen, mit der wir die Definition eines Ribbons zusammenstellen, die alle Objekte enthält, die der Benutzer schnell über das Ribbon anzeigen möchte, noch ein paar vorbereitende Schritte.<\/p>\n Um die Ribbon-Definition speichern zu können, benötigen Sie eine Tabelle namens USysRibbons<\/b>, die im Entwurf wie in Bild 11 aussieht.<\/p>\n Bild 11: Tabelle zum Speichern der Ribbon-Definition<\/span><\/b><\/p>\n Dann fügen Sie dem VBA-Projekt der betroffenen Datenbank einen Verweis auf die Bibliothek Microsoft Office x.0 Object Library <\/b>hinzu (siehe Bild 12).<\/p>\n Bild 12: Verweis auf die Office-Bibliothek<\/span><\/b><\/p>\n Damit können wir uns die Prozedur anschauen, mit der wir die Definition des Ribbons zur Anzeige der gewählten Objekte zusammenstellen und der Tabelle USysRibbons <\/b>zuweisen, die Sie in Listing 5 finden.<\/p>\n Listing 5: Prozedur zum Aktualisieren der Ribbon-Definition auf Basis der Auswahl im Formular frmObjekteInRibbon<\/span><\/b><\/p>\n Die XML-Definition stellen wir in der String-Variablen strRibbon <\/b>zusammen. Die erste Zeile ist die übliche XML-Startzeile, die zweite mit dem Element customUI <\/b>ist das Root-Element des XML-Dokuments. Danach folgen das ribbon<\/b>-, das tabs<\/b>– und das tab<\/b>-Element, wobei letzteres das erste Element mit weiteren Attributen ist – hier die Beschriftung (label<\/b>) und der ID (id<\/b>).<\/p>\n Die Prozedur erstellt dann ein Recordset auf Basis der Tabelle tblObjekttypen<\/b> und durchläuft diese in einer Do While<\/b>-Schleife. Darin weist sie der Variablen strObjekttyp <\/b>den Wert des Feldes Objekttyp <\/b>des aktuellen Datensatzes zu.<\/p>\n Dann erstellt sie ein weiteres Recordset namens rstObjekte<\/b>, das alle Datensätze der Tabelle tblObjekteInRibbon <\/b>enthält, deren Feld InRibbon <\/b>den Wert True <\/b>enthält und das zum aktuell im Recordset rstObjekttypen <\/b>angegebenen Objekttyp gehört.<\/p>\n Hier prüft die Prozedur mit der EOF<\/b>-Eigenschaft, ob das Recordset rstObjekte <\/b>überhaupt Einträge für die aktuelle Objektart <\/b>enthält. Falls ja, folgen die in der If…Then<\/b>-Bedingung enthaltenen Anweisungen. Hier stellt die Prozedur das group<\/b>-Element zusammen, das für den ersten Objekttyp wie folgt aussieht:<\/p>\n Hier wird der Objekttyp aus dem Feld Objekttyp <\/b>sowohl für die Attribute id <\/b>(mit führendem grp<\/b>) und label als Wert eingefügt.<\/p>\n Danach ermittelt die Prozedur den Wert für das Attribut imageMso <\/b>der nachfolgend anzulegenden Einträge für die einzelnen Objekte. Es gibt für jede Kategorie ein eigenes Icon – also für Tabellen, Abfragen, Formulare, Berichte, Makros und Module. Dazu nutzen wir die Choose<\/b>-Funktion mit den entsprechenden Werten, von denen einer über den mit dem ersten Parameter übergebenen Zahlenwert ermittelt wird und in der Variablen strImageMso <\/b>landet.<\/p>\n Dann folgt die innere Schleife über das Recordset rstObjekte<\/b>, die für alle Objekte des aktuellen Objekttyps ein button<\/b>-Element unterhalb des group<\/b>-Elements einfügt. Das sieht dann etwa wie folgt aus:<\/p>\n Wichtig ist hier, dass wir nicht nur den Namen des Objekts für die Eigenschaft id <\/b>hinterlegen, sondern auch den Primärschlüsselwert der Tabelle tblObjekttypen <\/b>(hier 1 <\/b>für Tabellen).<\/p>\n Wir benötigen ja später nicht nur den Namen des zu öffnenden Objekts, sondern auch den Objekttyp, um die zum Öffnen dieses Objekts benötige Methode wie DoCmd.OpenTable<\/b>, DoCmd.OpenForm <\/b>et cetera aufrufen zu können.<\/p>\n Nachdem alle button<\/b>-Elemente für den aktuellen Objekttyp angelegt wurden, folgt noch das schließende group-Element:<\/p>\n Auf diese Weise durchläuft die Prozedur alle Objekttypen und Objekte und stellt so das XML-Dokument zusammen.<\/p>\n Danach folgt noch ein weiteres group<\/b>-Element, das eine Schaltfläche zum Öffnen des Formulars frmObjekteInRibbon <\/b>enthält:<\/p>\n Den Abschluss machen die schließenden Elemente für die eingangs geöffneten Elemente:<\/p>\n Schließlich führt die Prozedur eine UPDATE<\/b>-Abfrage aus, welche den Inhalt des Feldes RibbonXML <\/b>der Tabelle USysRibbons <\/b>aktualisiert, die im Feld RibbonName <\/b>den Wert ObjekteInRibbon <\/b>enthält. Danach prüft die Prozedur die Anzahl der von dieser Abfrage betroffenen Datensätze. Ist dieser Wert 0<\/b>, ist noch kein Datensatz mit dem Namen ObjekteInRibbon <\/b>vorhanden, sodass dieser mit einer INSERT INTO<\/b>-Abfrage eingefügt wird.<\/p>\n Ribbon in den Access-Optionen einstellen<\/b><\/p>\n Nachdem Sie diese Prozedur ausgeführt haben, liegt die Ribbon-Definition in der Tabelle USysRibbons <\/b>vor. Damit Sie das Ribbon als Standardribbon für die aktuelle Anwendung auswählen können, schließen Sie die Anwendung und öffnen diese erneut.<\/p>\n Dann öffnen Sie die Access-Optionen und wählen dort unter Aktuelle Datenbank|Menüband- und Symbolleistenoptionen <\/b>den Wert ObjekteInRibbon <\/b>für die Eigenschaft Name des Menübands <\/b>aus (siehe Bild 13).<\/p>\n Bild 13: Auswählen des anzuzeigenden Ribbons<\/span><\/b><\/p>\n Danach müssen Sie die Datenbank erneut schließen und wieder öffnen, damit die Elemente unserer Ribbondefinition endlich als letztes Tab im Ribbon erscheint (siehe Bild 14). Nun haben wir allerdings noch keine Ereignisprozeduren hinterlegt, die durch das Betätigen der Einträge ausgelöst werden.<\/p>\n Bild 14: Ribbon mit Datenbankobjekten<\/span><\/b><\/p>\n Callback-Funktion für die Ribbon-Schaltflächen<\/b><\/p>\n Die Prozedur onAction<\/b>, die durch die Angabe des Prozedurnamens für das onAction<\/b>-Attribut der button<\/b>-Elemente beim Anklicken der Ribbon-Schaltflächen ausgelöst wird, sieht wie in Listing 6 aus.<\/p>\n![\"Tabelle](\"..\/fileadmin\/_temp_\/2020_01\/pic_1224_002.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2020_01\/pic_1224_003.png\")
<\/p>\nPublic Sub <\/span>ObjekteInTabelleSchreiben()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>tdf As <\/span>DAO.TableDef\r\n Dim <\/span>qdf As <\/span>DAO.QueryDef\r\n Dim <\/span>objAccess As <\/span>AccessObject\r\n Set<\/span> db = CurrentDb\r\n On Error Resume Next<\/span>\r\n For Each tdf In db.TableDefs\r\n db.Execute \"INSERT INTO tblObjekteInRibbon(Objektname, ObjekttypID) VALUES('\" & tdf.Name & \"', 1)\", dbFailOnError\r\n Next<\/span> tdf\r\n For Each qdf In db.QueryDefs\r\n db.Execute \"INSERT INTO tblObjekteInRibbon(Objektname, ObjekttypID) VALUES('\" & qdf.Name & \"', 2)\", dbFailOnError\r\n Next<\/span> qdf\r\n For Each objAccess In CurrentProject.AllForms\r\n db.Execute \"INSERT INTO tblObjekteInRibbon(Objektname, ObjekttypID) VALUES('\" & objAccess.Name _\r\n & \"', 3)\", dbFailOnError\r\n Next<\/span> objAccess\r\n For Each objAccess In CurrentProject.AllReports\r\n db.Execute \"INSERT INTO tblObjekteInRibbon(Objektname, ObjekttypID) VALUES('\" & objAccess.Name _\r\n & \"', 4)\", dbFailOnError\r\n Next<\/span> objAccess\r\n For Each objAccess In CurrentProject.AllMacros\r\n db.Execute \"INSERT INTO tblObjekteInRibbon(Objektname, ObjekttypID) VALUES('\" & objAccess.Name _\r\n & \"', 5)\", dbFailOnError\r\n Next<\/span> objAccess\r\n For Each objAccess In CurrentProject.AllModules\r\n db.Execute \"INSERT INTO tblObjekteInRibbon(Objektname, ObjekttypID) VALUES('\" & objAccess.Name _\r\n & \"', 6)\", dbFailOnError\r\n Next<\/span> objAccess\r\nEnd Sub<\/span><\/pre>\n![\"Die](\"..\/fileadmin\/_temp_\/2020_01\/pic_1224_004.png\")
<\/p>\n![\"Hinzufügen](\"..\/fileadmin\/_temp_\/2020_01\/pic_1224_005.png\")
<\/p>\n![\"Datensatzquelle](\"..\/fileadmin\/_temp_\/2020_01\/pic_1224_006.png\")
<\/p>\n\n
![\"Unterformular-Steuerelement](\"..\/fileadmin\/_temp_\/2020_01\/pic_1224_007.png\")
<\/p>\nPrivate Sub <\/span>regObjekte_Change()\r\n With<\/span> Me!sfmObjekteInRibbon.Form\r\n .Filter = \"ObjekttypID = \" & Me!regObjekte.Value + 1\r\n .FilterOn = True<\/span>\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\nObjekttypID = 1<\/pre>\n
![\"Das](\"..\/fileadmin\/_temp_\/2020_01\/pic_1224_008.png\")
<\/p>\n![\"Objekte](\"..\/fileadmin\/_temp_\/2020_01\/pic_1224_009.png\")
<\/p>\nPrivate Sub <\/span>Form_Load()\r\n regObjekte_Change\r\nEnd Sub<\/span><\/pre>\n![\"Objekte](\"..\/fileadmin\/_temp_\/2020_01\/pic_1224_010.png\")
<\/p>\nPrivate Sub <\/span>cmdAlleLoeschen_Click()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Set<\/span> db = CurrentDb\r\n If <\/span>MsgBox<\/span>(\"Dies löscht alle Elemente. Diese müssen danach neu eingelesen werden.\", vbYesNo) = vbYes Then<\/span>\r\n db.Execute \"DELETE FROM tblObjekteInRibbon\", dbFailOnError\r\n Me!sfmObjekteInRibbon.Form.Requery\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdNeuEinlesen_Click()\r\n MsgBox<\/span> \"Vorhandene Elemente werden beibehalten, nur neue Elemente werden hinzugefügt.\"\r\n ObjekteInTabelleSchreiben\r\n Me!sfmObjekteInRibbon.Form.Requery\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdAlleAuswaehlen_Click()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>lngObjekttypID As Long<\/span>\r\n Set<\/span> db = CurrentDb\r\n lngObjekttypID = Me!regObjekte + 1\r\n db.Execute \"UPDATE tblObjekteInRibbon SET InRibbon = -1 WHERE ObjekttypID = \" & lngObjekttypID, dbFailOnError\r\n Me!sfmObjekteInRibbon.Form.Requery\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdAlleAbwaehlen_Click()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>lngObjekttypID As Long<\/span>\r\n Set<\/span> db = CurrentDb\r\n lngObjekttypID = Me!regObjekte + 1\r\n db.Execute \"UPDATE tblObjekteInRibbon SET InRibbon = 0 WHERE ObjekttypID = \" & lngObjekttypID, dbFailOnError\r\n Me!sfmObjekteInRibbon.Form.Requery\r\nEnd Sub<\/span><\/pre>\n\n
![\"Tabelle](\"..\/fileadmin\/_temp_\/2020_01\/pic_1224_011.png\")
<\/p>\n![\"Verweis](\"..\/fileadmin\/_temp_\/2020_01\/pic_1224_012.png\")
<\/p>\nPublic Function <\/span>RibbondefinitionAktualisieren() As String<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rstObjekttypen As <\/span>DAO.Recordset\r\n Dim <\/span>rstObjekte As <\/span>DAO.Recordset\r\n Dim <\/span>strRibbon As String<\/span>\r\n Dim <\/span>strObjekttyp As String<\/span>\r\n Dim <\/span>strObjektname As String<\/span>\r\n Dim <\/span>strImageMso As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n strRibbon = \"<xml version=\"\"1.0\"\">\" & vbCrLf<\/span>\r\n strRibbon = strRibbon & \"<customUI xmlns=\"\"http:\/\/schemas.microsoft.com\/office\/2009\/07\/customui\"\">\" & vbCrLf<\/span>\r\n strRibbon = strRibbon & \" <ribbon>\" & vbCrLf<\/span>\r\n strRibbon = strRibbon & \" <tabs>\" & vbCrLf<\/span>\r\n strRibbon = strRibbon & \" <tab id=\"\"tabDatenbankobjekte\"\" label=\"\"Datenbankobjekte\"\">\" & vbCrLf<\/span>\r\n Set<\/span> rstObjekttypen = db.OpenRecordset(\"SELECT * FROM tblObjekttypen\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rstObjekttypen.EOF\r\n strObjekttyp = rstObjekttypen!Objekttyp\r\n Set<\/span> rstObjekte = db.OpenRecordset(\"SELECT * FROM tblObjekteInRibbon WHERE InRibbon = -1 AND ObjekttypID = \" _\r\n & rstObjekttypen!Id, dbOpenDynaset)\r\n If <\/span>Not<\/span> rstObjekte.EOF Then<\/span>\r\n strRibbon = strRibbon & \" <group id=\"\"grp\" & strObjekttyp & \"\"\" label=\"\"\" & strObjekttyp & \"\"\">\" & vbCrLf<\/span>\r\n strImageMso = Choose(rstObjekttypen!Id, \"CreateTable\", \"AdpStoredProcedureQuerySelect\", \"ViewsFormView\", _\r\n \"CreateReport\", \"CreateMacro\", \"CreateClassModule\")\r\n Do While<\/span> Not<\/span> rstObjekte.EOF\r\n strObjektname = rstObjekte!Objektname\r\n strRibbon = strRibbon & \" <button imageMso=\"\"\" & strImageMso & \"\"\" label=\"\"\" & strObjektname _\r\n & \"\"\" id=\"\"\" & strObjektname & \"\"\" onAction=\"\"onAction\"\" tag=\"\"\" & rstObjekttypen!Id & \"\"\"\/>\" & vbCrLf<\/span>\r\n rstObjekte.MoveNext<\/span>\r\n Loop<\/span>\r\n strRibbon = strRibbon & \" <\/group>\" & vbCrLf<\/span>\r\n End If<\/span>\r\n rstObjekttypen.MoveNext<\/span>\r\n Loop<\/span>\r\n strRibbon = strRibbon & \" <group id=\"\"grpTools\"\" label=\"\"Tools\"\">\" & vbCrLf<\/span>\r\n strRibbon = strRibbon & \" <button imageMso=\"\"ControlToolboxOutlook\"\" \" _\r\n & \"label=\"\"Objekte bearbeiten\"\" id=\"\"btnObjekteBearbeiten\"\" onAction=\"\"onAction\"\"\/>\" & vbCrLf<\/span>\r\n strRibbon = strRibbon & \" <\/group>\"\r\n strRibbon = strRibbon & \" <\/tab>\" & vbCrLf<\/span>\r\n strRibbon = strRibbon & \" <\/tabs>\" & vbCrLf<\/span>\r\n strRibbon = strRibbon & \" <\/ribbon>\" & vbCrLf<\/span>\r\n strRibbon = strRibbon & \"<\/customUI>\" & vbCrLf<\/span>\r\n RibbondefinitionAktualisieren = strRibbon\r\n db.Execute \"UPDATE USysRibbons SET RibbonXML = '\" & strRibbon & \"' WHERE RibbonName = 'ObjekteInRibbon'\", dbFailOnError\r\n If <\/span>db.RecordsAffected = 0 Then<\/span>\r\n db.Execute \"INSERT INTO USysRibbons(RibbonName, RibbonXML) VALUES('ObjekteInRibbon', '\" & strRibbon & \"')\", dbFailOnError\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\n<xml version=\"1.0\">\r\n<customUI xmlns=\"http:\/\/schemas.microsoft.com\/office\/2009\/07\/customui\">\r\n <ribbon>\r\n <tabs>\r\n <tab id=\"tabDatenbankobjekte\" \r\n label=\"Datenbankobjekte\"><\/pre>\n
<group id=\"grpTabellen\" label=\"Tabellen\"><\/pre>\n
<button imageMso=\"CreateTable\" label=\"tblTabelle1\" id=\"tblTabelle1\" onAction=\"onAction\" tag=\"1\"\/>\r\n<button imageMso=\"CreateTable\" label=\"tblTabelle2\" id=\"tblTabelle2\" onAction=\"onAction\" tag=\"1\"\/>\r\n<button imageMso=\"CreateTable\" label=\"tblTabelle3\" id=\"tblTabelle3\" onAction=\"onAction\" tag=\"1\"\/><\/pre>\n
<\/group><\/pre>\n
<group id=\"grpTools\" label=\"Tools\">\r\n <button imageMso=\"ControlTool-boxOutlook\" label=\"Objekte bearbeiten\" id=\"btnObjekteBearbeiten\" onAction=\"onAction\"\/>\r\n<\/group><\/pre>\n
<\/tab>\r\n <\/tabs>\r\n <\/ribbon>\r\n<\/customUI><\/pre>\n
![\"Auswählen](\"..\/fileadmin\/_temp_\/2020_01\/pic_1224_014.png\")
<\/p>\n![\"Ribbon](\"..\/fileadmin\/_temp_\/2020_01\/pic_1224_013.png\")
<\/p>\nSub <\/span>onAction(control As <\/span>IRibbonControl)\r\n Select Case control.Tag\r\n Case <\/span>1\r\n DoCmd.OpenTable control.Id\r\n Case <\/span>2\r\n DoCmd.OpenQuery control.Id\r\n Case <\/span>3\r\n DoCmd.OpenForm control.Id\r\n Case <\/span>4\r\n DoCmd.OpenReport control.Id, acViewPreview\r\n