![\"Die](\"..\/fileadmin\/_temp_\/2016_01\/pic_1024_002.png\")
<\/p>\nDas Access Ribbon und seine Programmierung enth\u00e4lt immer noch viele Geheimnisse f\u00fcr uns Access-Entwickler. Dieser Beitrag zeigt einige Techniken, mit denen Sie oft angefragte Konstellationen erhalten – beispielsweise das Ein- und Ausblenden zus\u00e4tzlicher Ribbon-Elemente mit der Anzeige bestimmter Formulare oder auch das Aktivieren und Deaktivieren von Steuerelementen oder kompletter Ribbon-Bereiche in Abh\u00e4ngigkeit vom Vorhandensein bestimmter Elemente der Benutzeroberfl\u00e4che.<\/b><\/p>\nVoraussetzungen<\/h2>\n
F\u00fcr die nachfolgenden Beispiele zum Access Ribbon ben\u00f6tigen Sie ein paar Elemente:<\/p>\n
Die Tabelle USysRibbons <\/b>aus Bild 1 nimmt die Ribbon-Definitionen auf. Sie enth\u00e4lt drei Felder: ID <\/b>ist das Prim\u00e4rschl\u00fcsselfeld, RibbonName <\/b>speichert den Namen der Ribbon-Definition, der auch in der Eigenschaft Name des Men\u00fcbands <\/b>etwa von Formularen erscheint, und RibbonXML <\/b>schlie\u00dflich liefert die eigentliche Ribbon-Definition im XML-Format.<\/p>\n
<\/p>\n
Bild 1: Die Tabelle USysRibbons speichert die Ribbon-Definitionen der Anwendung.<\/span><\/b><\/p>\n Die Tabelle MSysResources <\/b>speichert die Bilddateien, die das Ribbon anzeigen soll (entweder in der Gr\u00f6\u00dfe 16×16 oder 32×32) in einem Anlagefeld (s. Bild 2). Den Wert des Feldes Name <\/b>ben\u00f6tigen Sie, wenn Sie eines der hier gespeicherten Bilder im Ribbon anzeigen m\u00f6chten.<\/p>\n Bild 2: Die Tabelle MSysResources speichert Bilddateien.<\/span><\/b><\/p>\n Das Modul mdlRibbonImages <\/b>enth\u00e4lt einige Funktionen rund um die Anzeige von Bildern im Ribbon, vor allem aber die Funktion PicFromSharedResource_Ribbon<\/b>. Diese erwartet den Namen einer Bilddatei aus der Tabelle USysResources<\/b>, also den Wert des Feldes Name <\/b>der gew\u00fcnschten Bilddatei.<\/p>\n Damit das Access Ribbon die Bilder anzeigt, m\u00fcssen Sie dem Attribut loadImage <\/b>des customUI<\/b>-Elements den Wert loadImage <\/b>zuweisen (loadImage=“loadImage“<\/b>). Diese Funktion wird immer dann aufgerufen, wenn das Attribut image <\/b>eines Ribbon-Elements den Namen eines Bildes enth\u00e4lt, also zum Beispiel close<\/b>.<\/p>\n Die Funktion loadImage<\/b> finden Sie im Modul mdlRibbon<\/b>, wo wir gleich auch weitere Callback-Funktionen eintragen, die etwa das Anklicken eines Ribbon-Elements ausl\u00f6st.<\/p>\n Au\u00dferdem ben\u00f6tigen Sie einen Verweis auf die Bibliothek Microsoft Office x.0 Object Library <\/b>f\u00fcr die Verwendung einiger VBA-Elemente f\u00fcr den Zugriff auf das Ribbon.<\/p>\n Wenn Sie eine Ribbon-Definition erstellen, die formular-abh\u00e4ngige Elemente enth\u00e4lt, m\u00fcssen Sie einfach nur den Namen der in der Tabelle USysRibbons <\/b>gespeicherten Definition als Wert der Eigenschaft Name des Men\u00fcbands <\/b>f\u00fcr das Formular hinterlegen. Wenn Sie dann noch das Attribut startFromScratch <\/b>des Elements customUI <\/b>auf True <\/b>einstellen, blendet die Ribbon-Definition alle eingebauten Ribbon-Elemente aus und zeigt nur noch die benutzerdefinierten Elemente an.<\/p>\n Dies sieht dann beispielsweise wie in Bild 3 aus. Das Ribbon mit der Schaltfl\u00e4che Formular schlie\u00dfen <\/b>als einzigem Element wird eingeblendet, wenn der Benutzer das Formular frmFormularMitEigenerDefinition <\/b>\u00f6ffnet.<\/p>\n Bild 3: Beispiel f\u00fcr ein Ribbon-Tab, das zusammen mit einem Formular eingeblendet wird<\/span><\/b><\/p>\n Die Ribbon-Definition f\u00fcr dieses Beispiel finden Sie in Listing 1. Hier beginnen wir mit dem Element customUI<\/b>, das f\u00fcr das Attribut loadImage <\/b>den Wert loadImage <\/b>enth\u00e4lt. Dies ist wichtig, damit Access sp\u00e4ter auftauchende image<\/b>-Attribute so verarbeitet, dass es die Funktion loadImage <\/b>im Modul mdlRibbon <\/b>aufruft und so die Bilddatei aus der Tabelle USysResources <\/b>einliest und im Ribbon anzeigt.<\/p>\n Listing 1: Ribbon-Definition f\u00fcr ein Access Ribbon, das bei Anzeige seines Formulars alle anderen Elemente ausblendet<\/span><\/b><\/p>\n Das ribbon<\/b>-Element enth\u00e4lt das Attribut startFromScratch <\/b>mit dem Wert true<\/b>, was daf\u00fcr sorgt, dass alle eingebauten Elemente des Ribbons verschwinden.<\/p>\n Das tabs<\/b>-Element fasst ein oder mehrere tab<\/b>-Elemente zusammen, die den Registerreitern im Ribbon entsprechen. Das einzige tab<\/b>-Element ist dann auch das mit der Beschriftung Formulartab<\/b> aus der Abbildung. Gleiches gilt f\u00fcr das group<\/b>-Element, das im Wesentlichen die Benennung der Gruppe beisteuert.<\/p>\n Fehlt noch die Schaltfl\u00e4che mit dem Wert btnFormularSchliessen <\/b>f\u00fcr das Attribut id<\/b>. Der Wert close <\/b>f\u00fcr das Attribut image <\/b>sorgt daf\u00fcr, dass das Bild namens close <\/b>aus der Tabelle USysResources <\/b>geladen wird. Dieses wird nach dem Laden gro\u00df dargestellt, also mit einer Aufl\u00f6sung von 32×32 Pixeln (size=“large“<\/b>). Schlie\u00dflich soll ein Klick auf die Schaltfl\u00e4che die VBA-Funktion onAction <\/b>ausl\u00f6sen (onAction=“onAction“<\/b>). Diese Funktion sieht so aus:<\/p>\n Die Callback-Funktion enth\u00e4lt eine Select Case<\/b>-Bedingung, weil verschiedene Schaltfl\u00e4chen die Callback-Funktion aufrufen. In unserem Fall soll diese standardm\u00e4\u00dfig das aktuelle Formular schlie\u00dfen, was die Anweisung DoCmd.Close acForm, Screen.ActiveForm.Name <\/b>zuverl\u00e4ssig erledigt.<\/p>\n Sie k\u00f6nnen auch, wie es etwa bei der Datenblattansicht der Fall ist, einfach ein zus\u00e4tzliches Tab einf\u00fcgen, das speziell gekennzeichnet und direkt im Vordergrund angezeigt wird – ein sogenanntes kontextabh\u00e4ngiges tab<\/b>-Element.<\/p>\n Dies sieht dann beispielsweise wie in Bild 4 aus.<\/p>\n Bild 4: Beispiel f\u00fcr ein kontextabh\u00e4ngiges Ribbon-Tab<\/span><\/b><\/p>\n Die notwendige Ribbon-Definition finden Sie in Listing 2. Statt des tabs<\/b>-Elements verwenden wir hier das contextualTabs<\/b>-Element, dem wiederum ein tabSet<\/b>-Element untergeordnet ist.<\/p>\n Listing 2: Ribbon-Definition f\u00fcr ein Ribbon, das mit einem Formular eingeblendet wird<\/span><\/b><\/p>\n Erst darunter geht es wie gewohnt weiter – und zwar mit dem tab<\/b>-Element, dem group<\/b>-Element und dem button<\/b>-Element (und weiteren Elementen, je nach Ihren Anforderungen). Das tabSet<\/b>-Element m\u00fcssen Sie unbedingt mit dem Wert TabSetFormReportExtensibility <\/b>f\u00fcr das Attribut idMso <\/b>ausstatten. Dies gibt an, dass danach benutzerdefinierte Elemente folgen, die beim Aktivieren eines Formulars oder Berichts erscheinen, dessen Eigenschaft Name des Men\u00fcbands <\/b>auf den Namen der Ribbon-Definition eingestellt ist.<\/p>\n Dummerweise wird das zus\u00e4tzliche Tab nur dann direkt in den Vordergrund geholt, wenn Sie das Formular zum ersten Mal \u00f6ffnen. Au\u00dferdem st\u00f6rt noch etwas die \u00fcbergeordnete Beschriftung, die sich scheinbar nach dem Formularnamen richtet (hier FRMFORMULARMITZUSATZTAB<\/b>).<\/p>\n Dies l\u00e4sst sich leicht \u00e4ndern: Wir tragen einfach den Wert Formular mit Zusatztab <\/b>in die Eigenschaft Beschriftung <\/b>des Formulars frmFormularMitZusatztab <\/b>ein, um die \u00dcberschrift zu \u00e4ndern.<\/p>\n Fehlt allerdings noch die direkte Aktivierung auch nach dem ersten \u00d6ffnen des Formulars. Dazu ist ein kleiner Trick erforderlich: Sie m\u00fcssen die Ribbon-Definition beim Erstellen mit einer entsprechenden VBA-Objektvariable referenzieren und k\u00f6nnen das gew\u00fcnschte tab<\/b>-Element dann nach \u00f6ffnen des Formulars zuverl\u00e4ssig in den Vordergrund holen – auch nach dem ersten \u00f6ffnen des Formulars, wo dies automatisch geschieht.<\/p>\n Dazu sind folgende Schritte n\u00f6tig:<\/p>\n <\/p>\n Die Access Ribbon-Definition passen Sie wie folgt an und erg\u00e4nzen dabei das Attribut onLoad <\/b>des customUI<\/b>-Elements mit dem Wert OnLoad_Formularribbon<\/b>:<\/p>\n Die Deklaration der Variablen sieht wie folgt aus:<\/p>\n Die Prozedur, die durch das Ereignis onLoad <\/b>der Ribbon-Anpassung ausgel\u00f6st wird, sieht so aus:<\/p>\n Sie speichert lediglich den mit dem Parameter ribbon <\/b>gelieferten Verweis auf die Ribbon-Anpassung in der Variablen objRibbon_Formularribbon<\/b>.<\/p>\n Nun m\u00fcssen wir noch daf\u00fcr sorgen, dass unser gew\u00fcnschtes tab<\/b>-Element beim \u00d6ffnen des Formulars aktiviert wird.<\/p>\n In einem ersten Versuch w\u00fcrden wir dazu die folgende Prozedur nutzen, die durch das Ereignis Beim Laden <\/b>des Formulars ausgel\u00f6st wird und mit der Methode ActivateTab <\/b>das tab<\/b>-Element namens tabForm <\/b>aktivieren soll:<\/p>\n Dies gelingt allerdings nicht: Anscheinend ist das tab<\/b>-Element zu diesem Zeitpunkt noch gar nicht geladen, also liefert der Zugriff auf die Variable objRibbon_Formularribbon <\/b>eine Fehlermeldung. Also probieren wir es mit ein wenig Verz\u00f6gerung. Dazu stellen Sie die Eigenschaft Zeitgeberintervall <\/b>des Formulars auf den Wert 100 <\/b>ein. Dies l\u00f6st im Abstand von 100 Millisekunden die f\u00fcr die Ereigniseigenschaft Bei Zeitgeber <\/b>hinterlegte Ereignisprozedur aus. Damit dies nur einmal geschieht, stellen wir in dieser Prozedur gleich das Zeitgeberintervall auf den Wert 0 <\/b>ein – neben dem Aktivieren des tab<\/b>-Elements nat\u00fcrlich:<\/p>\n Auf diese Weise erhalten Sie zuverl\u00e4ssig direkt mit dem \u00f6ffnen des Formulars auch Zugriff auf die gew\u00fcnschten Ribbon-Befehle.<\/p>\n Wenn Sie nicht m\u00f6chten, dass beispielsweise beim Anzeigen eines Formulars in der Datenblattansicht auch die Befehle zum Bearbeiten des Datenblatts erscheinen (s. Bild 5), k\u00f6nnen Sie diese ebenfalls deaktivieren.<\/p>\n Bild 5: Eingebaute kontextabh\u00e4ngige Ribbon-Tabs<\/span><\/b><\/p>\n Dazu greifen Sie nicht wie \u00fcblich \u00fcber die Struktur customUI|ribbon|tabs|tab <\/b>auf das tab<\/b>-Element zu und stellen seine Eigenschaft visible <\/b>auf false <\/b>ein, sondern \u00fcber customUI|ribbon|contextualTabs|tabSet<\/b>.<\/p>\n Folgendes w\u00fcrde beispielsweise daf\u00fcr sorgen, dass das in der Abbildung darstellte tab<\/b>-Element beim Aktivieren eines Formulars in der Datenblattansicht ausgeblendet wird:<\/p>\n Damit Sie, wenn Sie einmal ein kontextabh\u00e4ngiges Element ausblenden m\u00f6chten, nicht lange suchen m\u00fcssen, finden Sie hier eine Liste der m\u00f6glichen Elemente:<\/p>\n Sollten Sie eine Konstellation aus Haupt- und Unterformular nutzen, wobei beispielsweise das Unterformular Daten in der Datenblattansicht anzeigt, m\u00f6chten Sie vielleicht verhindern, dass immer beim Aktivieren der Datenblattansicht der Ribbonbereich Formulartools|Datenblatt <\/b>eingeblendet wird.<\/p>\n Das haben wir doch weiter oben besprochen, denken Sie nun vielleicht. Stimmt: Allerdings haben wir dort das Ribbon mit dem Namen KontextTabsDeaktivieren <\/b>f\u00fcr die Eigenschaft Name des Men\u00fcbands <\/b>des Hauptformulars ausgew\u00e4hlt.<\/p>\n Wenn der Benutzer dann allerdings den Fokus auf das Unterformular verschiebt, gelten die Ribbon-Definitionen f\u00fcr das Hauptformular nicht mehr, sondern die des Unterformulars. Und dort haben wir zu diesem Zeitpunkt ja noch gar keine Einstellung der Eigenschaft Name des Men\u00fcbands <\/b>vorgenommen.<\/p>\n Dies holen wir wie in Bild 6 nach: Markieren Sie das Unterformular und w\u00e4hlen Sie f\u00fcr Name des Men\u00fcbands <\/b>den Wert KontextTabsDeaktivieren <\/b>aus. Nun k\u00f6nnen Sie in die Formularansicht wechseln und den Fokus auf das Unterformular verschieben – die Anzeige des Ribbon-Bereichs Formulartools|Datenblatt <\/b>bleibt aus.<\/p>\n Bild 6: Ribbon f\u00fcr das Unterformular festlegen<\/span><\/b><\/p>\n Manchmal m\u00f6chten Sie vielleicht Steuerelemente im Ribbon abh\u00e4ngig vom jeweils aktiven Formular aktivieren oder deaktivieren. Wie dies gelingt, zeigen wir im folgenden Beispiel. Dabei f\u00fcgen wir dem Ribbon drei Schaltfl\u00e4chen hinzu, die jeweils in Zusammenhang mit jeweils einem ge\u00f6ffneten Formular aktiviert werden sollen – und deaktiviert, wenn das Formular gerade geschlossen ist oder nicht den Fokus besitzt.<\/p>\n Dies soll im Endergebnis etwa wie in Bild 7 aussehen.<\/p>\n Bild 7: Ribbon-Schaltfl\u00e4chen abh\u00e4ngig vom aktiven Formular aktivieren oder deaktivieren<\/span><\/b><\/p>\n Um dies zu realisieren, erstellen wir f\u00fcr das Beispiel drei Formulare namens frmFormular1<\/b>, frmFormular2 <\/b>und frmFormular3<\/b>.<\/p>\n F\u00fcgen Sie dann die Access Ribbon-Definition aus Listing 3 zur Tabelle tblUSysRibbons <\/b>hinzu und geben Sie als Name FormularabhaengigeSchaltflaechen <\/b>an. Die Ribbon-Definition enth\u00e4lt drei button<\/b>-Elemente, deren Besonderheit darin liegt, dass sie den Wert getEnabled <\/b>f\u00fcr das Attribut getEnabled <\/b>enthalten. Dabei handelt es sich wiederum um ein Callback-Attribut, was bedeutet, dass wir genau wie weiter oben beim Attribut onAction <\/b>eine entsprechende Callback-Funktion in einem Standardmodul anlegen m\u00fcssen.<\/p>\n Listing 3: Ribbon-Definition f\u00fcr ein Ribbon, dessen Schaltfl\u00e4chen je nach aktivem Formular aktiviert werden<\/span><\/b><\/p>\n Im Gegensatz zu onAction <\/b>wird getEnabled <\/b>immer dann ausgel\u00f6st, wenn das entsprechende Element des Access Ribbons neu gezeichnet wird – oder wenn der Aufruf mit der Methode Invalidate <\/b>oder InvalidateControl <\/b>einer entsprechenden Objektvariablen des Typs RibbonUI <\/b>ausgel\u00f6st wird.<\/p>\n Dabei l\u00f6st Invalidate <\/b>alle get…<\/b>-Callback-Funktionen aus und InvalidateControl <\/b>erwartet den Namen des Steuerelements, das neu konfiguriert werden soll.<\/p>\n Diese speichern wir in diesem Fall in der wie folgt deklarierten Variablen:<\/p>\n Damit diese beim Erstellen der Ribbon-Erweiterung gef\u00fcllt wird, hinterlegen wir in der Ribbon-Definition wiederum das Attribut onLoad <\/b>mit dem Wert onLoad_FormularabhaengigeSchaltflaechen <\/b>f\u00fcr das Element customUI<\/b>.<\/p>\n Die dadurch ausgel\u00f6ste Callback-Funktion soll wie folgt aussehen.<\/p>\n Die beim Aktualisieren des Ribbons (und somit auch beim ersten Anzeigen) ausgel\u00f6ste Callback-Funktion getEnabled <\/b>definieren wir im Modul mdlRibbons <\/b>wie in Listing 4.<\/p>\n Listing 4: Diese Callback-Funktion aktualisiert die enabled-Eigenschaft der button-Elemente.<\/span><\/b><\/p>\n Die Funktion pr\u00fcft zun\u00e4chst, wie das aufrufende Steuerelement hei\u00dft, in diesem Fall also btnFrm1<\/b>, btnFrm2 <\/b>oder btnFrm3<\/b>. Davon abh\u00e4ngig steuert es einen der Zweige der Select Case<\/b>-Bedingung an, die im \u00fcbrigen eine Meldung wie getEnabled ist f\u00fcr ““ nicht implementiert. <\/b>ausgibt, wenn das mit control <\/b>gelieferte Steuerelement in keinem der vorherigen Zweige behandelt wurde.<\/p>\n Im Falle eines der ersten drei Zweige der Select Case<\/b>-Bedingung jedoch stellt die Funktion den R\u00fcckgabeparameter enabled <\/b>auf einen Boolean<\/b>-Wert ein, der das Ergebnis des Vergleichs des Namens des aktiven Formulars und eines der Werte frmFormular1<\/b>, frmFormular2 <\/b>oder frmFormular3 <\/b>liefert.<\/p>\n Dabei ermittelt die Funktion AktivesFormular<\/b> den Namen des aktuell im Fokus befindlichen Formulars:<\/p>\n Screen.ActiveForm <\/b>liefert dabei einen Verweis auf das entsprechende Form<\/b>-Objekt, aber nur, wenn \u00fcberhaupt ein Formular den Fokus besitzt. Anderenfalls l\u00f6st der Zugriff auf Screen.ActiveForm <\/b>einen Fehler aus, weshalb die entsprechende Anweisung auch bei deaktivierter Fehlerbehandlung ausgef\u00fchrt wird.<\/p>\n Nun m\u00fcssen wir nur noch daf\u00fcr sorgen, dass beim Fokus-erhalt eines der drei Formulare die getEnabled<\/b>-Funktion ausgel\u00f6st wird – und ebenso nat\u00fcrlich auch beim Fokusverlust, denn dann soll die entsprechende Schaltfl\u00e4che ja auch wieder deaktiviert werden.<\/p>\n Dies erledigen wir dabei mit der Methode Invalidate <\/b>des Objekts objRibbonFormularabhaengigeSchaltflaechen<\/b>, und zwar in den Prozeduren, die durch die Ereignisse Bei Fokuserhalt <\/b>und Bei Fokusverlust <\/b>der drei Formulare ausgel\u00f6st werden (s. Bild 8). Die Prozeduren sehen in allen drei Formularen gleich aus:<\/p>\n Bild 8: Ereignisprozeduren beim Fokuserhalt und Fokusverlust anlegen<\/span><\/b><\/p>\n Microsoft hat bei der Entwicklung des Access Ribbons einige wichtige Ereignisse vergessen – so zum Beispiel eines, das beim Anklicken eines bestimmten Ribbon-Tabs ausgel\u00f6st wird. Mit ein wenig Bastelarbeit k\u00f6nnen Sie ein solches Ereignis jedoch nachbauen.<\/p>\n Der Hintergrund dieser L\u00f6sung ist, dass jedes Tab wohl mindestens ein group<\/b>-Element enthalten wird. Und ein group<\/b>-Element kann, wenn es sichtbar wird, eine getEnabled<\/b>-Callback-Funktion aufrufen, um sein Label zu erfragen.<\/p>\n Dies nutzen wir aus, indem wir in dieser Callbackfunktion gleichzeitig eine Verbindung zum \u00fcbergeordneten tab<\/b>-Element herstellen und den gew\u00fcnschten Code ausf\u00fchren.<\/p>\n Im Beispiel soll ein Klick auf tab1 <\/b>im Formular frmTabs <\/b>den Namen des aktuellen Tabs ausgeben, ein Klick auf tab2 <\/b>ebenfalls.<\/p>\n Die Access Ribbon-Definition sieht so aus:<\/p>\n Die Access Ribbon-Definition ruft beim Laden eine Callback-Funktion auf, die einen Verweis auf das Ribbon-Objekt in einer Variablen speichert:<\/p>\n Dies ist notwendig, damit die getLabel<\/b>-Funktion das aktuell nicht sichtbare group<\/b>-Element beim Wechseln des Tabs „invalidieren“ kann und dieses beim n\u00e4chsten Erscheinen ebenfalls wieder die getEnabled<\/b>-Funktion aufruft.<\/p>\n Diese Funktion sieht wie folgt aus und erledigt in Abh\u00e4ngigkeit vom aufrufenden group<\/b>-Element nur zwei Dinge – die Anzeige des Namens des \u00fcbergeordneten tab<\/b>-Elements im Formulartextfeld und das „Invalidate“ des group<\/b>-Element im jeweils anderen tab<\/b>-Element:<\/p>\n Wenn mehr als ein tab<\/b>-Element im Spiel ist, braucht man nat\u00fcrlich entsprechend mehr Case<\/b>-Zweige und es m\u00fcssen in jedem Case<\/b>-Zweig alle gerade nicht sichtbaren group<\/b>-Elemente „invalidiert“ werden.<\/p>\n<\/p>\n Enthaltene Beispieldateien:<\/p>\n TippsUndTricksRibbon.accdb<\/p>\n Download<\/a><\/p>\n Accessweites Ribbon mit VB6<\/a><\/p>\n Dynamische Ribbons<\/a><\/p>\n Auswahlfelder im Ribbon<\/a><\/p>\n Ribbon-Guide, Teil I: Rund um das tab-Element <\/a><\/p>\n Ribbons und Formulare<\/a><\/p>\n Globale Ribbon-Anpassung<\/a><\/p>\n Dynamische Formular-Ribbons<\/a><\/p>\n Eigene Ribbons ohne Code<\/a><\/p>\n Ribbonklassen<\/a><\/p>\n Ribbon für das Ticketsystem<\/a><\/p>\n Kundenverwaltung mit Ribbon, Teil I<\/a><\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2016_01\/pic_1024_003.png\")
<\/p>\nAccess Ribbon-Definition mit Formular einblenden<\/h2>\n
![\"Beispiel](\"..\/fileadmin\/_temp_\/2016_01\/pic_1024_004.png\")
<\/p>\n<xml version=\"1.0\">\n<customUI xmlns=\"http:\/\/schemas.microsoft.com\/office\/2009\/07\/customui\" loadImage=\"loadImage\">\n <ribbon startFromScratch=\"true\">\n <tabs>\n <tab id=\"tab1\" label=\"Formulartab\">\n <group id=\"grp1\" label=\"Formulargruppe\">\n <button id=\"btnFormularSchliessen\" image=\"close\" label=\"Formular schlie\u00dfen\" onAction=\"onAction\" size=\"large\"\/>\n <\/group>\n <\/tab>\n <\/tabs>\n <\/ribbon>\n<\/customUI><\/pre>\n
startFromScratch f\u00fcr ein leeres Access Ribbon<\/h2>\n
Sub <\/span>onAction(control As <\/span>IRibbonControl)\n Select Case control.ID\n Case Else<\/span>\n DoCmd.Close acForm, Screen.ActiveForm.Name\n End Select<\/span>\nEnd Sub<\/span><\/pre>\nRibbon-Tab mit Formular einblenden<\/h2>\n
![\"Beispiel](\"..\/fileadmin\/_temp_\/2016_01\/pic_1024_001.png\")
<\/p>\n<xml version=\"1.0\">\n<customUI xmlns=\"http:\/\/schemas.microsoft.com\/office\/2009\/07\/customui\" loadImage=\"loadImage\">\n <ribbon>\n <contextualTabs>\n <tabSet<\/span> idMso=\"TabSetFormReportExtensibility\">\n <tab id=\"tab1\" label=\"Formulartab\">\n <group id=\"grp1\" label=\"Formulargruppe\">\n <button image=\"close\" label=\"Formular schlie\u00dfen\" id=\"btnFormularSchliessen\" onAction=\"onAction\" \n size=\"large\"\/>\n <\/group>\n <\/tab>\n <\/tabSet>\n <\/contextualTabs>\n <\/ribbon>\n<\/customUI><\/pre>\nAktivierung beim \u00d6ffnen des Formulars<\/h2>\n
\n
<xml version=\"1.0\">\n<customUI xmlns=\"...\" onLoad=\"OnLoad_Formularribbon\"\n loadImage=\"loadImage\">\n <ribbon>\n <contextualTabs>\n ...\n <\/contextualTabs>\n <\/ribbon>\n<\/customUI><\/pre>\n<\/p>\n
Public <\/span>objRibbon_Formularribbon As <\/span>IRibbonUI<\/pre>\nSub <\/span>onLoad_Formularribbon(ribbon As <\/span>IRibbonUI)\n Set<\/span> objRibbon_Formularribbon = ribbon\nEnd Sub<\/span><\/pre>\nAccess Ribbon beim \u00d6ffnen des Formulars anzeigen<\/h2>\n
Private Sub <\/span>Form_Load()\n objRibbon_Formularribbon.ActivateTab \"tabForm\"\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Timer()\n objRibbon_Formularribbon.ActivateTab \"tabForm\"\n Me.TimerInterval = 0\nEnd Sub<\/span><\/pre>\nVerhindern, dass eingebaute kontextabh\u00e4ngige Ribbon-Tabs erscheinen<\/h2>\n
![\"Eingebaute](\"..\/fileadmin\/_temp_\/2016_01\/pic_1024_005.png\")
<\/p>\n<xml version=\"1.0\">\n<customUI xmlns=\"...\">\n <ribbon>\n <contextualTabs>\n <tabSet<\/span> idMso=\"TabSetFormDatasheet\" visible=\"false\"\/>\n <\/contextualTabs>\n <\/ribbon>\n<\/customUI><\/pre>\n\n
Kontextabh\u00e4ngige tab-Elemente f\u00fcr Unterformulare<\/h2>\n
![\"Ribbon](\"..\/fileadmin\/_temp_\/2016_01\/pic_1024_006.png\")
<\/p>\nSteuerelemente abh\u00e4ngig von ge\u00f6ffneten Formularen aktivieren und deaktivieren<\/h2>\n
![\"Ribbon-Schaltfl\u00e4chen](\"..\/fileadmin\/_temp_\/2016_01\/pic_1024_007.png\")
<\/p>\n<xml version=\"1.0\">\n<customUI xmlns=\"http:\/\/schemas.microsoft.com\/office\/2009\/07\/customui\" onLoad=\"OnLoad_FormularabhaengigeSchaltflaechen\" \n loadImage=\"loadImage\">\n <ribbon>\n <tabs>\n <tab id=\"tab33063\" label=\"Formularabh\u00e4ngige Schaltfl\u00e4chen\">\n <group id=\"grp33064\" label=\"Formularabh\u00e4ngige Schaltfl\u00e4chen\">\n <button image=\"keyboard_key_1\" getEnabled=\"getEnabled\" label=\"Formular 1\" id=\"btnFrm1\" onAction=\"onAction\"\n size=\"large\"\/>\n <button image=\"keyboard_key_2\" getEnabled=\"getEnabled\" label=\"Formular 2\" id=\"btnFrm2\" onAction=\"onAction\" \n size=\"large\"\/>\n <button image=\"keyboard_key_3\" getEnabled=\"getEnabled\" label=\"Formular 3\" id=\"btnFrm3\" onAction=\"onAction\" \n size=\"large\"\/>\n <\/group>\n <\/tab>\n <\/tabs>\n <\/ribbon>\n<\/customUI><\/pre>\n
getEnabled vs. onAction<\/h2>\n
Public <\/span>objRibbon_FormularabhaengigeSchaltflaechen As <\/span>IRibbonUI<\/pre>\nSub <\/span>onLoad_FormularabhaengigeSchaltflaechen( ribbon As <\/span>IRibbonUI)\n Set<\/span> objRibbon_FormularabhaengigeSchaltflaechen = ribbon\nEnd Sub<\/span><\/pre>\nSub <\/span>getEnabled(control As <\/span>IRibbonControl, ByRef enabled)\n Select Case control.ID\n Case <\/span>\"btnFrm1\"\n enabled = (AktivesFormular = \"frmFormular1\")\n Case <\/span>\"btnFrm2\"\n enabled = (AktivesFormular = \"frmFormular2\")\n Case <\/span>\"btnFrm3\"\n enabled = (AktivesFormular = \"frmFormular3\")\n Case Else<\/span>\n Debug.Print<\/span> \"getEnabled ist f\u00fcr ''\" & control.ID & \"'' nicht implementiert.\"\n End Select<\/span>\nEnd Sub<\/span><\/pre>\nSteuerelementname ermitteln<\/h2>\n
Public Function <\/span>AktivesFormular() As String<\/span>\n Dim <\/span>strTemp As String<\/span>\n On Error Resume Next<\/span>\n strTemp = Screen.ActiveForm.Name\n On Error GoTo<\/span> 0\n AktivesFormular = strTemp\nEnd Function<\/span><\/pre>\n![\"Ereignisprozeduren](\"..\/fileadmin\/_temp_\/2016_01\/pic_1024_008.png\")
<\/p>\nPrivate Sub <\/span>Form_GotFocus()\n objRibbon_FormularabhaengigeSchaltflaechen.Invalidate\nEnd Sub<\/span>\nPrivate Sub <\/span>Form_LostFocus()\n objRibbon_FormularabhaengigeSchaltflaechen.Invalidate\nEnd Sub<\/span><\/pre>\nAuf Tabwechsel im Access Ribbon reagieren<\/h2>\n
Aus getLabel mach clickTab<\/h2>\n
<xml version=\"1.0\">\n<customUI xmlns=\"http:\/\/schemas.microsoft.com\/office\/2006\/01\/customui\" onLoad=\"OnLoad_NeuesRibbon\">\n <ribbon startFromScratch=\"true\">\n <tabs>\n <tab id=\"tab1\" label=\"tab1\">\n <group id=\"grp1\" tag=\"group 1\" getLabel=\"getLabel\"\/>\n <\/tab>\n <tab id=\"tab2\" label=\"tab2\">\n <group id=\"grp2\" tag=\"group 2\" getLabel=\"getLabel\"\/>\n <\/tab>\n <\/tabs>\n <\/ribbon>\n<\/customUI><\/pre>\n
Dim <\/span>objRibbon_NeuesRibbon As <\/span>IRibbonUI\nSub <\/span>onLoad_NeuesRibbon(ribbon As <\/span>IRibbonUI)\n Set<\/span> objRibbon_NeuesRibbon = ribbon\nEnd Sub<\/span><\/pre>\ngetEnabled nach dem Aktualisieren<\/h2>\n
Sub <\/span>getLabel(control As <\/span>IRibbonControl, ByRef label)\n Select Case control.Id\n Case <\/span>\"grp1\"\n DoCmd.OpenForm \"frmTabs\"\n Forms!frmTabs!txtTab = \"Tab 1\"\n objRibbon_NeuesRibbon.InvalidateControl \"grp2\"\n Case <\/span>\"grp2\"\n DoCmd.OpenForm \"frmTabs\"\n Forms!frmTabs!txtTab = \"Tab 2\"\n objRibbon_NeuesRibbon.InvalidateControl \"grp1\"\n End Select<\/span>\n label = control.Tag\nEnd Sub<\/span><\/pre>\nDownloads zu diesem Beitrag<\/h2>\n
Weitere interessante Artikel zu diesem Thema<\/h2>\n