Um diese automatisch beim Start aufzurufen und dabei ein Ribbon statt des AutoExec<\/b>-Makros oder eines Startformulars zu nutzen, benötigen Sie zunächst eine minimale Ribbondefinition. Diese sieht wie folgt aus:<\/p>\n Diese Definition fügen Sie einer Tabelle namens USysRibbons<\/b> hinzu, deren Entwurf wie in Bild 1 aussieht. Für das Feld RibbonName<\/b> stellen wir einen eindeutigen Index ein. Wenn Sie diese Tabelle so angelegt und unter dem Namen USysRibbons <\/b>gespeichert haben, wird diese möglicherweise nicht im Navigationsbereich angezeigt – das liegt daran, dass die Tabelle mit diesem Namen als Systemtabelle erkannt und ausgeblendet wird. Sie können diese dann entweder mit dem folgenden Befehl öffnen oder die Anzeige der Systemobjekte in den Optionen aktivieren:<\/p>\n <\/p>\n Bild 1: Entwurf der Ribbontabelle USysRibbons<\/span><\/b><\/p>\n Fügen Sie nun die oben aufgeführte Ribbondefinition in das Feld RibbonXML <\/b>ein und stellen Sie den Wert des Feldes RibbonName <\/b>im gleichen Datensatz auf Startup <\/b>ein (siehe Bild 2).<\/p>\n Bild 2: Die Ribbondefinition in der Tabelle USysRibbons<\/span><\/b><\/p>\n Nachdem Sie die Ribbondefinition hinzugefügt haben, schließen Sie die aktuelle Datenbank einmal und öffnen diese wieder. Dies ist nötig, um die Einträge der Tabelle USysRibbons <\/b>in die Liste der verfügbaren Ribbondefinitionen einzulesen. Danach können Sie mit Datei|Optionen <\/b>die Access-Optionen öffnen und zum Bereich Aktuelle Datenbank <\/b>wechseln. Hier finden Sie unter Menüband- und Symbolleistenoptionen die Option Name des Menübands <\/b>und können hier nun den Eintrag Startup <\/b>auswählen (siehe Bild 3). Nun benötigen Sie nur noch eine Funktion mit dem Namen, den wir für das Ereignisattribut onLoad <\/b>des customUI<\/b>-Elements hinterlegt haben. Diese sieht wie folgt aus:<\/p>\n Bild 3: Einstellen des Ribbons, das beim Starten angezeigt werden soll<\/span><\/b><\/p>\n Die letzte Feinheit, die fehlt, ist ein Verweis auf die Bibliothek Microsoft Office x.0 Object Library<\/b>, in welcher der oben verwendete Typ IRibbonUI <\/b>definiert ist. Diesen fügen Sie über den Verweise<\/b>-Dialog des VBA-Editors ein (Menüpunkt Extras|Verweise<\/b>).<\/p>\n Ein erneutes Schließen und Öffnen der Datenbank sorgt nun dafür, dass die Ribbondefinition angewendet wird. Das Ereignis onLoad <\/b>wird gleich beim Laden ausgeführt und ruft die dafür angegebene Funktion onLoad_Startup <\/b>auf. Diese wiederum startet die Funktion Startup<\/b>.<\/p>\n Normalerweise enthält das Ribbon noch weitere Elemente wie Tabs, Gruppen oder Schaltflächen. In diesem Fall haben wir das Beispiel minimal gehalten und nur das customUI<\/b>-Element definiert, welches das beim Anzeigen ausgeführte Ereignis enthält. <\/p>\nxml version=\"1.0\">\r\n<customUI xmlns=\"http:\/\/schemas.microsoft.com\/office\/2009\/07\/customui\" onLoad=\"OnLoad_Startup\"\/><\/pre>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2022_03\/pic_1369_001.png\")
<\/p>\nDoCmd.OpenTable \"USysRibbons\"<\/pre>\n
![\"Die](\"..\/fileadmin\/_temp_\/2022_03\/pic_1369_002.png\")
<\/p>\n![\"Einstellen](\"..\/fileadmin\/_temp_\/2022_03\/pic_1369_003.png\")
<\/p>\nSub <\/span>OnLoad_Startup(ribbon As <\/span>IRibbonUI)\r\n Call<\/span> Startup\r\nEnd Sub<\/span><\/pre>\nFehlender Verweis<\/h2>\n
Startup testen<\/h2>\n