<\/p>\n
Wenn Sie ein anwendungsweites Ribbon mit dynamischen Elementen versehen wollen, kommen Sie nicht um den Einsatz von Callback-Prozeduren herum. Sie können also nicht mal eben ein neues Ribbon definieren und anzeigen. Anders sieht dies in Formularen aus: Hier können Sie sehr wohl schnell eine neue Ribbon-Definition erstellen und dieses auch direkt anwenden. Damit können Sie dann etwa Ribbons bauen, die direkt auf Ereignisse oder Eigenschaften des Formulars reagieren – ohne excessiven Einsatz von Callback-Funktionen.<\/b><\/p>\n
Dies ermöglicht die Eigenschaft RibbonName <\/b>eines Formulars. Diesen können Sie auch zur Laufzeit ändern oder einstellen. Wir schauen uns dies an einem Dummy-Formular an, dem wir verschiedene Ribbon-Definitionen zuweisen und diese durch einen Klick auf eine Schaltfläche anwenden. Später betrachten wir dann noch einen praktischen Anwendungsfall für diese Technik.<\/p>\n
Ribbon aktualisieren<\/b><\/p>\n
Im Beispiel benötigen wir noch die Tabelle USysRibbons<\/b>, die üblicherweise zum Speichern der Ribbon-Definitionen benötigt wird. Diese sieht wie in Bild 1 aus und enthält bereits eine kleine Ribbon-Definition. Für die im Formular enthaltenen Programmierungen benötigen wir zuvor noch einen Verweis auf die Bibliothek Microsoft Office x.0 Object Library <\/b>(s. Bild 2). Anschließend erstellen Sie ein neues Formular, das an die Tabelle USysRibbons <\/b>gebunden ist. Das Formular soll alle Felder dieser Tabelle anzeigen. Unter den gebundenen Textfeldern platzieren Sie eine Schaltfläche namens cmdRibbonAktualisieren<\/b>. Dieses soll die im Textfeld RibbonXML <\/b>enthaltene Ribbon-Definition direkt umsetzen und das entsprechende Ribbon anzeigen.<\/p>\n
![\"Die](\"..\/fileadmin\/_temp_\/2015_03\/pic_980_001.png\")
<\/p>\n
Bild 1: Die Tabelle USysRibbons speichert die Ribbon-Definitionen<\/span><\/b><\/p>\n Bild 2: Verweis auf die Office-Bibliothek<\/span><\/b><\/p>\n Diese Prozedur sieht wie folgt aus und erledigt drei Dinge: Sie erzeugt einen temporären Namen für das Ribbon, für den wir praktischerweise einen GUID-Wert nutzen. Dieser ist auf jeden Fall eindeutig, so kann es nicht geschehen, dass wir zwei Ribbon-Definitionen mit dem gleichen Namen temporär in der Datenbank speichern.<\/p>\n Die Funktion zum Erstellen der GUID finden Sie im Modul mdlTools <\/b>– sie heißt CreateGUID<\/b>. Die GUID speichert die Prozedur in der Variablen strGUID<\/b>. Damit laden wir nun die Ribbon-Definition in die Datenbank. Dies erledigen wir mit der Funktion LoadCustomUI<\/b>, die zwei Parameter erwartet: den Namen des Ribbons sowie die Ribbon-Definition selbst.<\/p>\n Danach liegt die Ribbon-Definition in der Liste der Ribbon-Definitionen vor, die Sie etwa unter Access 2013 in den Access-Optionen über die Eigenschaft Name des Menübands <\/b>auswählen können (wenn Sie diese änderung über die Access-Optionen oder per VBA durchführen, wirkt sie sich allerdings erst beim nächsten Start der Anwendung aus).<\/p>\n Allerdings können wir den Namen der Ribbon-Definition der Eigenschaft RibbonName <\/b>des Formulars zuweisen, wodurch auch gleich die entsprechende Ribbon-Anpassung geladen wird. Diese bleibt nun so lange erhalten, bis das Formular den Fokus verliert (also beispielsweise geschlossen wird):<\/p>\n Um während der Benutzung des Formulars noch normal mit Access arbeiten zu können, fügen wir dem Formular eine weitere Schaltfläche namens cmdStandardribbon <\/b>hinzu, für deren Beim Klicken<\/b>-Ereigniseigenschaft wir die folgende Prozedur hinterlegen:<\/p>\n <\/p>\n Dies entfernt die benutzerdefinierte Ribbon-Definition wieder. Wenn Sie jedoch eine gültige Ribbon-Definition in das Textfeld eingeben und auf Ribbon aktualisieren <\/b>klicken, wird das Ribbon wie in Bild 3 angepasst. Das klappt ja schon mal gut – und ist die Grundlage für das nun folgende Praxisbeispiel.<\/p>\n Bild 3: Ein per Formular dynamisch hinzugefügtes Ribbon<\/span><\/b><\/p>\n Kunden zu Verteiler hinzufügen und wieder entfernen<\/b><\/p>\n Im folgenden Beispiel soll das Unterformular eines Formulars die Daten der Tabelle tblKunden <\/b>in der Datenblattansicht darstellen. Die Tabelle tblKunden <\/b>enthält ein Feld namens Verteiler, mit dem festgelegt wird, ob ein Kunde in einen Verteiler aufgenommen wird oder auch nicht. Nun wollen wir dem Ribbon jeweils eine Schaltfläche hinzufügen, mit dem der Benutzer den aktuellen Datensatz im Unterformular entweder zur Verteilerliste hinzufügen kann (wenn er noch nicht markiert ist) oder diesen aus der Verteilerliste entfernen kann (sofern er schon markiert ist). Dies soll dann beispielsweise wie in Bild 4 aussehen.<\/p>\n Bild 4: Ein dynamisch erzeugter Ribbon-Eintrag<\/span><\/b><\/p>\n Dazu müssen wir zunächst dafür sorgen, dass je nach dem Wert des Feldes Verteiler <\/b>des aktuell markierten Datensatzes im Unterformular entweder die Schaltfläche zum Hinzufügen oder zum Entfernen im Ribbon eingeblendet wird.<\/p>\n Dies erledigen wir mit der Ereignisprozedur Beim Anzeigen <\/b>des Unterformulars. Für diese hinterlegen Sie den Code aus Listing 1.<\/p>\n Listing 1: Diese Prozedur sorgt beim Datensatzwechsel für die Einblendung der richtigen Ribbon-Schaltfläche<\/span><\/b><\/p>\n Die Prozedur stellt eine komplette Ribbon-Definition zusammen. Diese sieht immer gleich aus – bis auf die Schaltfläche. Um diese hinzuzufügen, prüft die Prozedur den Wert des Feldes Verteiler. Hat dieses den Wert True<\/b>, fügt die Prozedur die Schaltfläche btnEntfernen <\/b>hinzu, sonst die Schaltfläche btnHinzufuegen<\/b>. Die Schaltfläche btnEntfernen <\/b>ruft eine Funktion namens Entfernen auf, wobei der Wert des Feldes KundeID <\/b>direkt in Ribbon-Definition hineinkodiert wird – also etwa so:<\/p>\n Bei der Schaltfläche btnHinzufuegen <\/b>sieht dies ähnlich aus.<\/p>\n Nun benötigen wir natürlich noch eine entsprechende Callback-Funktion. Genau genommen verwenden wir dafür nicht die übliche Syntax, sondern nutzen eine einfache VBA-Funktion. Diese platzieren wir auch nicht in einem Standardmodul, sondern direkt im Klassenmodul des Hauptformulars. Auch dort ist diese Funktion für das Ribbon erreichbar.<\/p>\n Für die Schaltfläche Hinzufuegen <\/b>hinterlegen wir beispielsweise die Funktion aus Listing 2. Die Funktion erwartet den Wert des Feldes KundeID<\/b> als Parameter und führt dann eine Aktionsabfrage aus, die den Wert des Feldes Verteiler <\/b>auf True <\/b>einstellt. Dies allein aktualisiert aber weder die Anzeige im Formular noch das Ribbon, das ja nun wiederum die Schaltfläche zum Entfernen des Kunden aus der Verteilerliste liefern soll.<\/p>\n![\"Verweis](\"..\/fileadmin\/_temp_\/2015_03\/pic_980_002.png\")
<\/p>\nPrivate Sub <\/span>cmdRibbonAktualisieren_Click()\r\n Dim <\/span>strGUID As String<\/span>\r\n strGUID = CreateGUID\r\n LoadCustomUI strGUID, Me!RibbonXML\r\n Me.RibbonName = strGUID\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdStandardribbon_Click()\r\n Me.RibbonName = \"\"\r\nEnd Sub<\/span><\/pre>\n![\"Ein](\"..\/fileadmin\/_temp_\/2015_03\/pic_980_003.png\")
<\/p>\n![\"Ein](\"..\/fileadmin\/_temp_\/2015_03\/pic_980_004.png\")
<\/p>\nPublic Sub <\/span>Form_Current()\r\n Dim <\/span>strXML As String<\/span>\r\n Dim <\/span>strGUID As String<\/span>\r\n If <\/span>Not<\/span> Me.NewRecord Then<\/span>\r\n strXML = strXML & \"<xml version=\"\"1.0\"\">\" & vbCrLf<\/span>\r\n strXML = strXML & \"<customUI xmlns=\"\"http:\/\/schemas.microsoft.com\/office\/2009\/07\/customui\"\">\" & vbCrLf<\/span>\r\n strXML = strXML & \" <ribbon startFromScratch=\"\"true\"\"><tabs><tab id=\"\"tab1\"\" label=\"\"Verteilerliste\"\">\" _\r\n & \"<group id=\"\"grp1\"\" label=\"\"Aktivieren\/Deaktivieren\"\">\" & vbCrLf<\/span>\r\n If <\/span>Me!Verteiler = True<\/span> Then<\/span>\r\n strXML = strXML & \" <button label=\"\"Aus Verteiler entfernen\"\" id=\"\"btnEntfernen\"\" \"_\r\n & \"onAction=\"\"=Entfernen(''\" & Me!KundeID & \"'')\"\"\/>\" & vbCrLf<\/span>\r\n Else<\/span>\r\n strXML = strXML & \" <button label=\"\"Zu Verteiler hinzufügen\"\" id=\"\"btnHinzufuegen\"\" \" _\r\n & \"onAction=\"\"=Hinzufuegen(''\" & Me!KundeID & \"'')\"\"\/>\" & vbCrLf<\/span>\r\n End If<\/span>\r\n strXML = strXML & \" <\/group><\/tab><\/tabs><\/ribbon><\/customUI>\"\r\n strGUID = CreateGUID\r\n LoadCustomUI strGUID, strXML\r\n Me.RibbonName = strGUID\r\n Else<\/span>\r\n Me.RibbonName = \"\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n<button label=\"Aus Verteiler entfernen\" id=\"btnEntfernen\" onAction=\"=Entfernen(''123'')\"\/><\/pre>\nPublic Function <\/span>Hinzufuegen(lngKundeID As Long<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"UPDATE tblKunden SET Verteiler = -1 WHERE KundeID = \" & lngKundeID, dbFailOnError\r\n Me!sfmKunden.Form.Refresh\r\n Me!sfmKunden.Form.Form_Current\r\nEnd Function<\/span><\/pre>\n