{"id":55001068,"date":"2017-02-01T00:00:00","date_gmt":"2020-05-14T13:40:39","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=1068"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Eigene_Ribbons_ohne_Code","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Eigene_Ribbons_ohne_Code\/","title":{"rendered":"Eigene Ribbons ohne Code"},"content":{"rendered":"

\"\"<\/p>\n

Zum Gestalten benutzerdefinierter Ribbons für Ihre Access-Anwendung gibt es zwei unterschiedliche Lösungen. Die eine setzt vollständig auf VBA-Code und die Methode LoadCustomUI, die andere verwendet eine ausgeblendete Tabelle USysRibbons, die Sie jeweils mit den XML-Auszeichnungen für die Anpassungen versehen. Dass jedoch auch noch eine dritte Lösung existiert, ist weitgehend unbekannt.<\/b><\/p>\n

DocUICustomization<\/h2>\n

Recherchieren Sie im Netz nach diesem Begriff, so werden Sie nicht viel Erhellendes über ihn finden. Microsoft hat diese Datenbankeigenschaft nicht dokumentiert, und andere Entwickler oder Autoren übersahen ihn bisher offenbar. Tatsächlich aber ist er der Schlüssel zu unserer Lösung. Doch fallen wir nicht gleich mit der Tür ins Haus und sehen uns an, wie sie sich in der Beispieldatenbank RibbonOhne TabelleUndCode.accdb<\/b> präsentiert!<\/p>\n

Nach ihrem Start zeigt sie sich wie in Bild 1. Hier sind unter dem neuen Tab Aber Hallo!<\/b> einige Buttons und ein einfaches Menü untergebracht. Die eingebauten Tabs<\/b> von Access sind ausgeblendet. Der Tab Datei<\/b> allerdings ist vorhanden und aktiviert den Backstage<\/b>-Bereich in gewohnter Weise. Beim Klick auf die Elemente der Hallo-Gruppe<\/b> öffnen sich Meldungsfenster, damit deutlich wird, dass es sich hier nicht etwa nur um Optik geht, sondern dass wohl funktionierende Callback-Routinen im VBA-Projekt implementiert sind.<\/p>\n

\"Der<\/p>\n

Bild 1: Der minimalistische Ribbon der Beispieldatenbank mit einigen Buttons und einem Menüelement<\/span><\/b><\/p>\n

Der Code ist hier<\/b> öffnet automatisch das Modul mdlOptionen<\/b> der Datenbank und gibt die Click-Callback<\/b>-Prozeduren für die Buttons preis. Irgendwelche Routinen zur Modifikation des Ribbon, etwa per LoadCustomUI<\/b>, werden Sie hingegen vergeblich suchen. Auch eine Tabelle USysRibbons<\/b> fehlt und die anderen Tabellen sind gleichfalls unauffällig. Wo also versteckt sich der XML-Code für die Anpassungen<\/p>\n

Setzen Sie dazu die folgende Zeile im VBA-Direktfenster ab:<\/p>\n

  CurrentDb.Properties(\"DocUICustomization\").Value<\/pre>\n
Damit wird tatsächlich der ganze zuständige XML-Code herausgegeben! Er unterscheidet sich nicht weiter von den sonst gebräuchlichen Codes, die Sie in der Tabelle USysRibbons<\/b> oder über LoadCustomUI<\/b> einsetzen. Warum hüllt sich Microsoft in Schweigen über diese Datenbankeigenschaft Die mögliche Erklärung folgt.<\/p>\n
Ribbon-Anpassungen über die Oberfläche<\/h2>\n
Seit Access 2010<\/b> haben Sie die Möglichkeit, für eine Datenbank zumindest der Schnellzugriffsleiste eigene Elemente zu spendieren. öffnen Sie dazu bei geladener Datenbank die Optionen von Access und aktivieren den Eintrag Symbolleiste für den Schnellzugriff<\/b>. Im rechten Bereich des Dialogs findet sich nun die Liste der Elemente der Schnellzugriffsleiste. Das Kombinationsfeld darüber zeigt den unscheinbaren Eintrag Für alle Dokumente (Standard)<\/b>. Doch hier lässt sich auch die aktuelle Datenbank Für “xyz.accdb“<\/b> auswählen! Bei Aktivierung leert sich die Liste, falls die Datenbank noch mit keinen Anpassungen versehen wurde.<\/p>\n
Sie können nun aus dem Pool der Befehle links der Datenbank Elemente hinzufügen (s. Bild 2). Nach dem Speichern über OK stehen sie in Zukunft immer für diese Datenbank zur Verfügung. Andere Datenbanken zeigen sie nicht. Ergo müssen diese Anpassungen irgendwo in der Datenbank abgespeichert sein. Und deren Eigenschaft DocUICustomization<\/b> ist eben dieser Ort.<\/p>\n
\"Exklusive<\/p>\n
Bild 2: Exklusive Schnellzugriffselemente für geladene Datenbank<\/span><\/b><\/p>\n
Sie können sich den Inhalt dieser Eigenschaft nach der manuellen Anpassung mit der erwähnten VBA-Zeile ausgeben lassen. Der XML-Code für die abgebildete Anpassung sieht so aus, wie in Listing 1. Die Struktur ist die übliche, nur dass hier jedem XML-Tag<\/b> der Namespace<\/b> mso<\/b> vorangestellt ist, was, wie wir noch sehen werden, eigentlich überflüssig ist.<\/p>\n
<mso:customUI xmlns:mso=\"http:\/\/schemas.microsoft.com\/office\/2006\/01\/customui\">\r\n     <mso:ribbon>\r\n         <mso:qat>\r\n             <mso:documentControls>\r\n                 <mso:control idQ=\"mso:ManageReplies\" visible=\"true\"\/>\r\n                 <mso:control idQ=\"mso:FileSendAsAttachment\" visible=\"true\"\/>\r\n             <\/mso:documentControls>\r\n         <\/mso:qat>\r\n     <\/mso:ribbon>\r\n<\/mso:customUI><\/pre>\n
Listing 1: Der XML-Code für die Schnellzugriffsanpassungen aus der Eigenschaft DocUICustomization<\/span><\/b><\/p>\n
Es hat den Anschein, als ob Microsoft Entwicklern die Dokumentation dieser Eigenschaft vorenthält, damit sie der manuellen Anpassung vorbehalten bleibt.<\/p>\n
Zuweisung an DocUICustomization<\/h2>\n
Statt über den Optionen<\/b>-Dialog können Sie nun die Anpassung auch per Code vornehmen, indem Sie der Eigenschaft einen eigenen Wert zuweisen. Listing 2 zeigt ein extrem kurzes Beispiel.<\/p>\n
Sub <\/span>ModifyCustUI()\r\n     Dim <\/span>sXML As String<\/span>\r\n     \r\n     sXML = CurrentDb.Properties(\"DocUICustomization\").Value\r\n     sXML = Replace<\/span>(sXML, \"mso:\", vbNullString)\r\n     CurrentDb.Properties(\"DocUICustomization\").Value = sXML\r\nEnd Sub<\/span><\/pre>\n
Listing 2: Modifizieren des XML-Codes für die Schnellzugriffsanpassungen der aktuellen Datenbank<\/span><\/b><\/p>\n
Die Variable sXML<\/b> nimmt zunächst den XML-Code entgegen. über Replace<\/b> entfernt die nächste Zeile alle mso:<\/b>-Strings aus ihrem Inhalt. Dann wird der geänderte Code der Eigenschaft wieder zugewiesen. Dies wirkt sich noch nicht unmittelbar aus.<\/p>\n
Wie bei manuellen Anpassungen auch muss die Datenbank geschlossen und wieder geöffnet werden. Es zeigt sich dann, dass das Entfernen der mso:<\/b>-Präfixe keine negativen Auswirkungen auf das Funktionieren der Anpassungen hat. Das ist indessen für den XML-Kenner auch nicht verwunderlich, da nun als Standard-Namespace<\/b> (xmlns<\/b>) für das XML in der ersten Zeile das Schema direkt deklariert ist, statt über das Präfix mso<\/b>. Beides kommt im Prinzip auf das Gleiche heraus. <\/p>\n
Die spannende Frage ist nun, welche Ribbon-Anpassungen sich alle in DocUICustomization<\/b> abseits der Schnellzugriffsleiste unterbringen lassen. <\/p>\n
Was geht, was geht nicht<\/h2>\n
Bei einer Datenbank, deren Schnellzugriffsleiste Sie noch nicht anpassten, führt der Zugriff auf DocUICustomization<\/b> zu einem Fehler. Es gibt das Property<\/b> schlicht noch nicht. Sie können es so per VBA erzeugen:<\/p>\n
Dim <\/span>prp As <\/span>DAO.Property\r\nSet<\/span> prp = CurrentDb.CreateProperty( _\r\n     \"DocUICustomization\",  dbText)\r\nCurrentdb.Properties.Append prp<\/pre>\n
<\/p>\n
Dies legt die Eigenschaft nur an, ohne ihr einen Wert zuzuweisen. Stattdessen könnten Sie auch gleich prp.Value<\/b> vor dem Append<\/b> einen gültigen Anpassungs-XML-Code verabreichen. Später läuft dies etwa so:<\/p>\n
Dim <\/span>prp As <\/span>DAO.Property\r\nDim <\/span>sXML As String<\/span>\r\nsXML = \"<customUI ...\"\r\nSet<\/span> prp = CurrentDb.Properties(\"DocUICustomization\")\r\nprp.Value = sXML<\/pre>\n
Der Inhalt von sXML<\/b> ist nun unsere Spielwiese. Es haben sich über Trial & Error<\/b> nach unzähligen Versuchen einige  Ergebnisse herausgestellt. Der deklarierte Namespace in Listing 1 ist der des XML-Schemas von Office 2007<\/b>. Tatsächlich kann problemlos auch das ab Office 2010<\/b> gültige Schema angegeben werden:<\/p>\n
http:\/\/schemas.microsoft.com\/office\/2009\/07\/customui<\/pre>\n
Immerhin gab es ja in diesem XML-Schema so einige Erweiterungen, wie etwa die Definitionen zum Backstage<\/b>.<\/p>\n
Tatsächlich aber funktionieren, wie sich herausstellte, bei Anpassungen über DocUICustomization<\/b> leider eine ganze Menge Dinge nicht:<\/p>\n