![\"Die](\"..\/fileadmin\/_temp_\/2022_03\/pic_1373_001.png\")
<\/p>\n<\/p>\n
Bild 1: Die in diesem Formular zuletzt angezeigten Datensätze sollen auch per Ribbon angezeigt werden.<\/span><\/b><\/p>\n Im Beitrag „Zuletzt verwendete Datensätze per Listenfeld“ zeige wir, wie Sie die zuletzt in einem Formular angezeigten Kundendatensätze in einem Listenfeld aufführen können, um diese schnell wieder zu öffnen. Vielleicht haben Sie im Formular zur Kundenverwaltung aber keinen Platz für diese Liste oder Sie möchten diese einfach immer verfügbar haben. Dann bietet sich das Ribbon als Ort für diese Liste an. Im vorliegenden Beitrag zeigen wir, wie Sie das Ribbon um ein Steuerelement zur Anzeige und Auswahl der zuletzt verwendeten Datensätze erweitern.<\/b><\/p>\n Als Formular zur Anzeige der Kundendaten verwenden wir das gleiche Formular, das wir im Artikel Zuletzt verwendete Datensätze per Listenfeld <\/b>(www.access-im-unternehmen.de\/1365<\/b>) erstellt haben. Auf diese Weise können wir gleich abgleichen, ob das Ribbonsteuerelement die richtigen Datensätze anzeigt. Das Formular sieht wie in Bild 1 aus.<\/p>\n Bild 1: Die in diesem Formular zuletzt angezeigten Datensätze sollen auch per Ribbon angezeigt werden.<\/span><\/b><\/p>\n Als Erstes stellt sich die Frage, welches der Ribbonsteuer-elemente am besten für unsere Aufgabe geeignet ist. Eigentlich sind das alle Steuerelemente, die Listen von Einträgen anzeigen können, und dafür kommen die folgenden in Frage:<\/p>\n Und Sie können sogar, wenn Sie eine begrenzte Menge von zuletzt verwendeten Datensätzen anzeigen wollen, für jeden eine Schaltfläche anzeigen und so alle interessanten Datensätze gleichzeitig bereitstellen.<\/p>\n Wichtig ist nur, dass wir die Anzeige mit jedem neu im Formular verwendeten Datensatz aktualisieren, und das ist mit all diesen Elementen möglich. Also schauen wir uns anhand verschiedener Beispielen an, wie das gelingt.<\/p>\n Die beiden Steuerelemente comboBox<\/b> und dropDown <\/b>haben verschiedene Eigenschaften, die sie für verschiedene Aufgaben prädestinieren. Wenn es darum geht, nicht nur den im jeweiligen Element ausgewählten Text zu ermitteln, sondern auch noch einen weiteren Wert wie beispielsweise einen Index oder eine Id für diesen Wert, dann ist das dropDown<\/b>-Element die erste Wahl.<\/p>\n Also verwenden wir dieses als Erstes. Bevor wir es programmieren, benötigen wir jedoch noch eine Datensatzherkunft für die anzuzeigenden Elemente.<\/p>\n In der oben beschriebenen Lösung haben wir alle Datensätze der Tabelle tblKunden<\/b>, die im Formular frmKundenZuletzt <\/b>angezeigt wurden, in die Tabelle tblKundenZuletzt <\/b>eingetragen. Diese sah dann nach dem Durchlaufen einiger Datensätze wie in Bild 2 aus.<\/p>\n Bild 2: Tabelle mit den zuletzt angezeigten Datensätzen<\/span><\/b><\/p>\n Das Listenfeld, das die zehn zuletzt verwendeten Datensätze angezeigt hat, nutzt eine Abfrage, um diese in der richtigen Reihenfolge aus dieser Tabelle auszulesen, also in umgekehrter Reihenfolge zum Anlegezeitpunkt.<\/p>\n Außerdem hatte diese Abfrage ein Kriterium, das dafür gesorgt hat, dass der aktuell im Formular angezeigte Datensatz nicht in der Liste erscheint, denn dieser Datensatz ist ja schon sichtbar.<\/p>\n Diese Abfrage, die direkt für das Listenfeld hinterlegt war, kopieren wir nun in eine neue Abfrage namens qryKundeZuletzt<\/b> (siehe Bild 3). Danach entfernen wir das dort markierte Kriterium.<\/p>\n Bild 3: Abfrage zum Ermitteln der Datensätze in der richtigen Reihenfolge<\/span><\/b><\/p>\n Warum das Weil es sein kann, dass das Ribbon auch angezeigt wird, obwohl das Formular gar nicht sichtbar ist.<\/p>\n Dann ist es natürlich wichtig, dass auch der zuletzt angezeigte Eintrag zur Auswahl steht.<\/p>\n Um das Ribbon anzulegen, sind einige Schritte notwendig:<\/p>\n Die Ribbontabelle ist eine Tabelle namens USysRibbons<\/b>. Sie enthält die drei Felder RibbonID <\/b>(Primärschlüsselfeld mit Autowert), RibbonName <\/b>(Datentyp Kurzer Text<\/b>) und RibbonXML <\/b>(Datentyp Langer Text<\/b>).<\/p>\n Die Ribbondefinition fügen wir in einen neuen Datensatz dieser Tabelle ein, für den wir außerdem den Wert ZuletztVerwendete <\/b>im Feld RibbonName <\/b>festlegen. Die Tabelle sieht dann wie in Bild 4 aus.<\/p>\n Bild 4: Die Tabelle USysRibbons mit der Ribbondefinition für die Anzeige der zuletzt angezeigten Datensätze im dropDown-Element<\/span><\/b><\/p>\n Die Ribbondefinition sehen Sie im Detail in Listing 1. Die meisten Elemente dienen der Herstellung der Struktur aus tab<\/b>– und group<\/b>-Element. Interessant ist das dropDown<\/b>-Element mit den angegebenen Ereignisattributen. Hier legen wir die Prozeduren fest, die zum Füllen des dropDown<\/b>-Elements nötig sind.<\/p>\n Listing 1: Die Definition des dropDown-Elements zur Anzeige der zuletzt verwendeten Datensätze<\/span><\/b><\/p>\n Beim erstmaligen Anzeigen des Ribbons können wir das Ereignisattribut onLoad <\/b>nutzen, um eine Prozedur anzugeben, die beim Laden des Ribbons ausgelöst wird. Hier geben wir den Wert onLoad_ZuletztVerwendete <\/b>an.<\/p>\n Den Verweis auf die Ribbondefinition wollen wir in einer Variablen namens objRibbon_ZuletztVerwendete <\/b>mit dem Datentyp IRibbonUI <\/b>speichern. Dieser Datentyp ist in der Bibliothek Microsoft Office x.0 Object Library <\/b>enthalten, auf die wir daher einen Verweis zum VBA-Projekt hinzufügen. Dazu wählen Sie im VBA-Editor den Menübefehl Extras|Verweise <\/b>aus. Hier fügen Sie einen Verweis auf die genannte Bibliothek hinzu, sodass der Dialog anschließend wie in Bild 5 aussieht.<\/p>\n Bild 5: Hinzufügen eines Verweises auf die Office-Bibliothek<\/span><\/b><\/p>\n Nun können wir die Variable zum Referenzieren der Ribbondefinition zu einem neuen, leeren Modul namens mdlRibbons <\/b>hinzufügen:<\/p>\n Die beim Laden des Ribbons ausgeführte und in der Ribbondefinition für das Attribut onLoad <\/b>des Elements customUI <\/b>angegebene Prozedur definieren wir wie folgt:<\/p>\n Die Prozedur liefert mit dem Parameter ribbon <\/b>einen Verweis auf die Ribbondefinition, welche die Prozedur in objRibbon_ZuletztVerwendete <\/b>speichert.<\/p>\n Nun wird es interessant, denn wir wollen das dropDown<\/b>-Element mit den Daten aus der Abfrage qryKundenZuletzt <\/b>füllen. Dazu haben wir im dropDown<\/b>-Element drei Ereignisattribute mit entsprechenden VBA-Prozeduren definiert. In der ersten zählen wir die einzulesenden Elemente und tragen diese in ein Array ein, in der zweiten und dritten, die jeweils einmal für die ermittelte Anzahl aufgerufen werden, lesen wir die Daten aus dem Array aus und fügen die IDs und die Texte zum dropDown<\/b>-Element hinzu. Als Erstes benötigen wir eine Variable, in der wir die anzuzeigenden Informationen speichern:<\/p>\n <\/p>\n Danach folgt die Callbackprozedur, welche die Elemente zählt und im Array speichert. Diese füllt eine Recordset-Variable mit den Daten aus der Abfrage qryKundenZuletzt<\/b> und durchläuft die einzelnen Datensätze in einer Do While<\/b>-Schleife.<\/p>\n Dabei zählt sie die Elemente in der Variablen i<\/b> und trägt gleichzeitig die Inhalte der Felder KundeID<\/b> und Firma <\/b>in das Array strZuletzt <\/b>ein:<\/p>\n Die beiden folgenden Prozeduren werden danach für die mit count <\/b>zurückgegebene Anzahl jeweils einmal aufgerufen. Die erste Prozedur getItemID <\/b>liefert mit index <\/b>den Index des mit id <\/b>zurückzugebenden ID-Wertes, den wir aus der ersten Spalte des Arrays auslesen:<\/p>\n Die zweite Prozedur holt aus der zweiten Spalte des Arrays den anzuzeigenden Text für das Element:<\/p>\n Damit wird es Zeit für einen ersten Test. Also wählen wir das soeben definierte Ribbon als Anwendungsribbon aus. Dazu müssen wir die Datenbank zunächst schließen und erneut starten. Danach steht die Ribbondefinition unter dem Namen ZuletztVerwendete <\/b>in der Option Name des Menübands <\/b>in den Access-Optionen zur Verfügung, die Sie mit dem Ribboneintrag Datei|Optionen <\/b>öffnen.<\/p>\n Hier wechseln Sie zum Bereich Aktuelle Datenbank <\/b>und finden unterhalb von Menüband- und Symbolleistenoptionen <\/b>die passende Option vor (siehe Bild 6).<\/p>\n Bild 6: Einstellen des Ribbons in den Access-Optionen<\/span><\/b><\/p>\n Wenn Sie die Anwendung nun erneut schließen und wieder öffnen, wird das von uns definierte Ribbontab im Ribbon sichtbar. Klicken Sie dieses an und klappen dann das dropDown<\/b>-Element aus, sieht dieses wie in Bild 7 aus.<\/p>\n Bild 7: Das dropDown-Element mit den zuletzt angezeigten Kunden<\/span><\/b><\/p>\n Nun fehlen noch zwei Funktionen, und zwar zum Anzeigen des jeweiligen Kunden nach der Auswahl im dropDown<\/b>-Element und zum Aktualisieren der Einträge im dropDown<\/b>-Element, nachdem der Benutzer einen neuen Kunden im Formular frmKundenZuletzt <\/b>ausgewählt hat.<\/p>\n Diese beiden Funktionen schauen wir uns nun an.<\/p>\n Wenn der Benutzer einen der Einträge im dropDown<\/b>-Steuerelement selektiert, soll dieser gleich im Formular frmKundenZuletzt <\/b>angezeigt werden. Dazu haben wir für das Ereignisattribut onAction <\/b>die gleichnamige Prozedur onAction <\/b>angegeben. Beim Aufruf der Prozedur kann es sein, dass das Formular noch gar nicht geöffnet ist. Also müssen wir in der Prozedur onAction <\/b>zunächst prüfen, ob das Formular bereits geöffnet ist, was wir mit der Hilfsfunktion IstFormularGeoeffnet <\/b>prüfen, die im Modul mdlTools <\/b>hinterlegt ist (siehe Listing 2).<\/p>\n Listing 2: Anzeigen des gewählten Kunden aus dem dropDown-Menü<\/span><\/b><\/p>\n Liefert diese den Wert False <\/b>zurück, öffnen wir das Formular mit der DoCmd.OpenForm<\/b>-Methode erst noch. Anschließend suchen wir mit der FindFirst<\/b>-Methode des Recordsets des Formulars nach dem Datensatz, der im Feld KundeID <\/b>den mit dem Parameter selectedId <\/b>der Prozedur onAction <\/b>gelieferten Wert enthält. Das Ergebnis sieht anschließend wie in Bild 8 aus.<\/p>\n Bild 8: Anzeige der zuletzt aufgerufenen Datensätze im Ribbon<\/span><\/b><\/p>\n Wenn der Benutzer nun im Formular nacheinander verschiedene Datensätze anzeigt, muss noch die Liste im dropDown<\/b>-Element angepasst werden. Dazu müssen die drei Prozeduren für die Attribute getItemCount<\/b>, getItemLabel <\/b>und getItemID <\/b>erneut aufgerufen werden.<\/p>\n Das erreichen wir nur durch das sogenannte Invalidieren der Ribbondefinition beziehungsweise des jeweiligen Steuerelements. Die dazu notwendige Invalidate<\/b>-Methode ist eine Methode des IRibbonUI<\/b>-Elements, das wir weiter oben mit der Variablen objRibbon_ZuletztVerwendete <\/b>referenziert haben.<\/p>\n Für das Formular haben wir im Beitrag Zuletzt verwendete Datensätze per Listenfeld <\/b>(www.access-im-unternehmen.de\/1365<\/b>) eine Prozedur programmiert, welche nach der Auswahl eines neuen Datensatzes einen neuen Eintrag zur Tabelle tblKundenZuletzt <\/b>hinzufügt.<\/p>\n Diese heißt LetzteDatensaetzeAktualisieren <\/b>und wir brauchen dieser lediglich den Aufruf der Methode InvalidateControl <\/b>für das dropDown<\/b>-Element drpZuletztVerwendet <\/b>hinzuzufügen:<\/p>\n Damit zeigt die dropDown<\/b>-Liste nun jederzeit die aktuellen zuletzt gewählten Kunden-Datensätze an.<\/p>\n Weiter oben haben wir weitere mögliche Steuerelemente für die Anzeige der zuletzt verwendeten Datensätze erwähnt. Diese arbeiten teilweise ähnlich wie das dropDown<\/b>-Element, teilweise müssen sie auf andere Weise gefüllt werden. Da sie aber alle nur die grundlegende Funktion des hier verwendeten dropDown<\/b>-Elements kopieren würden, nämlich das Ausklappen einer Liste der zuletzt verwendeten Elemente, schauen wir uns eine Alternative an – die Anzeige mit button<\/b>-Elementen.<\/p>\n Wir wollen die letzten neun Kunden in einer Matrix von 3×3 button<\/b>-Elementen im zweiten group<\/b>-Element unseres Ribbons anzeigen. Die Programmierung ist etwas aufwendiger als beim Füllen des dropDown<\/b>-Elements, aber wir wollen zeigen, was möglich ist. Als Erstes schauen wir uns die Erweiterung der Ribbondefinition für dieses Beispiel an (siehe Listing 3).<\/p>\n Listing 3: Die Ribbondefinition zur Anzeige der zuletzt verwendeten Datensätze in neun button-Elementen<\/span><\/b><\/p>\n Hier finden Sie in einer neuen Gruppe neun button<\/b>-Elemente. Diese unterscheiden sich jeweils durch die Bezeichnung (btnZuletzt1 <\/b>bis btnZuletzt9<\/b>) sowie durch Werte für das Attribut tag <\/b>von 0 <\/b>bis 8<\/b>, also tag=“0″ <\/b>bis tag=“8″<\/b>. Darüber hinaus hat jedes button<\/b>-Element für das Ereignisattribut getLabel <\/b>den Namen der Prozedur getLabel <\/b>und für onAction <\/b>den Namen onActionButton<\/b>.<\/p>\n Für ein button<\/b>-Element können wir im Gegensatz zu den Einträgen im dropDown<\/b>-Element nicht jeweils eine Id hinterlegen. Daher gehen wir einen kleinen Umweg, indem wir auch hier jeweils ein Array anlegen, dass für die neun zuletzt angezeigten Kundendatensätze in der ersten Spalte den Wert des Feldes KundeID <\/b>und in der zweiten Spalte den Wert des Feldes Firma <\/b>enthält.<\/p>\n Dieses Array deklarieren wir wie folgt:<\/p>\n Das Array füllen wir in folgender Prozedur:<\/p>\n Wir durchlaufen also einfach die Datensätze der Abfrage qryKundenZuletzt <\/b>und tragen den Primärschlüsselwert in die erste Spalte und den Firmennamen in die zweite Spalte des Arrays strZuletztButton <\/b>ein.<\/p>\n Dieses Array müssen wir nun zu zwei Gelegenheiten füllen:<\/p>\n Der erste Fall ist schnell erledigt, diesen Aufruf können wir in der Prozedur unterbringen, die beim Laden des Ribbons ausgelöst wird:<\/p>\n Und wann im Formular ein neuer Kunde aufgerufen wird, macht sich durch das Aufrufen der Prozedur LetzteDatensaetzeAktualisieren <\/b>bemerkbar. Hier fügen wir unten noch den Aufruf der Prozedur ZuletztVerwendeteArrayFuellen <\/b>an, aber nicht ganz unten – sondern direkt vor der Anweisung, mit der wir das Auslesen der get…<\/b>-Attribute der Ribbondefinition neu starten:<\/p>\n Nun bleiben noch zwei Aufgaben. Die erste ist das Füllen der Beschriftung der button<\/b>-Elemente. Das erledigen wir nicht statisch durch das label<\/b>-Attribut, sondern mit getLabel<\/b>. Diese Prozedur wird nach dem Aufruf der Invalidate<\/b>-Methode für jedes button<\/b>-Element erneut ausgelöst. Hier kommen nun endlich die Werte für das tag<\/b>-Attribut zum Einsatz, das wir in der Ribbondefinition von 0 <\/b>bis 8 <\/b>durchnummeriert haben (tag=“0″<\/b>). getLabel wird also von allen neun button<\/b>-Elementen aufgerufen, die nacheinander die Werte von 0 <\/b>bis 8 <\/b>im tag<\/b>-Attribut enthalten. Und diesen Wert können wir mit der Tag<\/b>-Eigenschaft des mit dem Parameter control <\/b>gelieferten IRibbonControl<\/b>-Elements auslesen.<\/p>\n Den so ermittelten Wert nutzen wir dann, um den entsprechenden Wert aus der zweiten Spalte des Arrays strZuletztButton <\/b>auszulesen, was dem jeweiligen Wert des Feldes Firma <\/b>entspricht. Diesen geben wir schließlich mit dem Parameter label <\/b>zurück, damit er für das jeweilige button<\/b>-Element angezeigt werden kann:<\/p>\n Nun folgt die letzte Hürde. Wir haben zwar nun die button<\/b>-Elemente mit den passenden label<\/b>-Werten versehen. Aber was geschieht, wenn der Benutzer eines der button<\/b>-Elemente anklickt<\/p>\n Dies löst die Ereignisprozedur onActionButton <\/b>aus, die wiederum mit control <\/b>einen Verweis auf das entsprechende IRibbonControl<\/b>-Element liefert – und das enthält auch wieder den tag<\/b>-Wert. Damit lesen wir aus der ersten Spalte des Arrays strZuletztButton <\/b>diesmal nicht den Namen der Firma <\/b>für die Beschriftung aus, sondern den für das entsprechende Element hinterlegten Wert aus dem Feld KundeID<\/b>. Diesen speichern wir in der Variablen lngID <\/b>und prüfen dann wieder, ob das Formular frmKundenZuletzt <\/b>geöffnet ist und öffnen es gegebenenfalls.<\/p>\n<\/p>\nWelches Ribbonsteuerelement für die zuletzt verwendeten Datensätze<\/h2>\n
\n
comboBox oder dropDown<\/h2>\n
Abfrage für die zuletzt angezeigten Datensätze<\/h2>\n
![\"Tabelle](\"..\/fileadmin\/_temp_\/2022_03\/pic_1373_003.png\")
<\/p>\n![\"Abfrage](\"..\/fileadmin\/_temp_\/2022_03\/pic_1373_002.png\")
<\/p>\nAnlegen des Ribbons zur Anzeige des dropDowns<\/h2>\n
\n
Ribbontabelle mit Inhalt anlegen<\/h2>\n
Ribbondefinition für das dropDown-Element erstellen<\/h2>\n
![\"Die](\"..\/fileadmin\/_temp_\/2022_03\/pic_1373_004.png\")
<\/p>\n<xml version=\"1.0\">\r\n<customUI xmlns=\"http:\/\/schemas.microsoft.com\/office\/2009\/07\/customui\" onLoad=\"OnLoad_ZuletztVerwendete\">\r\n <ribbon>\r\n <tabs>\r\n <tab id=\"tabZuletztVerwendet\" label=\"Zuletzt verwendet\">\r\n <group id=\"grpZuletztDropDown\" label=\"Zuletzt verwendet DropDown\">\r\n <dropDown label=\"Zuletzt verwendet:\" id=\"drpZuletztVerwendet\" onAction=\"onAction\" getItemCount=\"getItemCount\" \r\n getItemLabel=\"getItemLabel\" getItemID=\"getItemID\"\/>\r\n <\/group>\r\n <\/tab>\r\n <\/tabs>\r\n <\/ribbon>\r\n<\/customUI><\/pre>\n
Ribbon-Verweis beim Laden speichern<\/h2>\n
![\"Hinzufügen](\"..\/fileadmin\/_temp_\/2022_03\/pic_1373_005.png\")
<\/p>\nPublic <\/span>objRibbon_ZuletztVerwendete As <\/span>IRibbonUI<\/pre>\nSub <\/span>onLoad_ZuletztVerwendete(ribbon As <\/span>IRibbonUI)\r\n Set<\/span> objRibbon_ZuletztVerwendete = ribbon\r\nEnd Sub<\/span><\/pre>\nHinzufügen der Callbackprozeduren für die Funktionalität des Ribbons<\/h2>\n
Private <\/span>strZuletzt() As String<\/span><\/pre>\nSub <\/span>getItemCount(control As <\/span>IRibbonControl, ByRef count)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>i As Integer<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM qryKundenZuletzt\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n ReDim Preserve strZuletzt(1, i) As String<\/span>\r\n strZuletzt(0, i) = rst!KundeID\r\n strZuletzt(1, i) = rst!Firma\r\n i = i + 1\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n count = i\r\nEnd Sub<\/span><\/pre>\nSub <\/span>getItemID(control As <\/span>IRibbonControl, index As Integer<\/span>, ByRef id)\r\n id = strZuletzt(0, index)\r\nEnd Sub<\/span><\/pre>\nSub <\/span>getItemLabel(control As <\/span>IRibbonControl, index As Integer<\/span>, ByRef label)\r\n label = strZuletzt(1, index)\r\nEnd Sub<\/span><\/pre>\nFestlegen der Ribbondefinition als Anwendungsribbon <\/h2>\n
![\"Einstellen](\"..\/fileadmin\/_temp_\/2022_03\/pic_1373_006.png\")
<\/p>\n![\"Das](\"..\/fileadmin\/_temp_\/2022_03\/pic_1373_007.png\")
<\/p>\nAnzeigen des im dropDown-Element gewählten Kunden<\/h2>\n
Sub <\/span>onAction(control As <\/span>IRibbonControl, selectedId As String<\/span>, selectedIndex As Long<\/span>)\r\n If <\/span>Not<\/span> IstFormularGeoeffnet(\"frmKundenZuletzt\") Then<\/span>\r\n DoCmd.OpenForm \"frmKundenZuletzt\"\r\n End If<\/span>\r\n Forms!frmKundenZuletzt.Recordset.FindFirst \"KundeID = \" & selectedId\r\nEnd Sub<\/span><\/pre>\n![\"Anzeige](\"..\/fileadmin\/_temp_\/2022_03\/pic_1373_008.png\")
<\/p>\nAktualisieren des DropDown nach Anzeige eines weiteren Kunden im Formular<\/h2>\n
Private Sub <\/span>LetzteDatensaetzeAktualisieren()\r\n ...\r\n objRibbon_ZuletztVerwendete.InvalidateControl \"drpZuletztVerwendet\"\r\nEnd Sub<\/span><\/pre>\nWeitere Auswahlsteuerelemente für die Anzeige der zuletzt verwendeten Datensätze<\/h2>\n
Die letzten neun Kunden immer anzeigen<\/h2>\n
<xml version=\"1.0\">\r\n<customUI xmlns=\"http:\/\/schemas.microsoft.com\/office\/2009\/07\/customui\" onLoad=\"OnLoad_ZuletztVerwendete\">\r\n <ribbon>\r\n <tabs>\r\n <tab id=\"tabZuletztVerwendet\" label=\"Zuletzt verwendet\">\r\n ... \r\n <group id=\"grpZuletztVerwendetButtons\" label=\"Zuletzt verwendet Buttons\">\r\n <button id=\"btnZuletzt1\" getLabel=\"getLabel\" onAction=\"onActionButton\" tag=\"0\"\/>\r\n <button id=\"btnZuletzt2\" getLabel=\"getLabel\" onAction=\"onActionButton\" tag=\"1\"\/>\r\n <button id=\"btnZuletzt3\" getLabel=\"getLabel\" onAction=\"onActionButton\" tag=\"2\"\/>\r\n <button id=\"btnZuletzt4\" getLabel=\"getLabel\" onAction=\"onActionButton\" tag=\"3\"\/>\r\n <button id=\"btnZuletzt5\" getLabel=\"getLabel\" onAction=\"onActionButton\" tag=\"4\"\/>\r\n <button id=\"btnZuletzt6\" getLabel=\"getLabel\" onAction=\"onActionButton\" tag=\"5\"\/>\r\n <button id=\"btnZuletzt7\" getLabel=\"getLabel\" onAction=\"onActionButton\" tag=\"6\"\/>\r\n <button id=\"btnZuletzt8\" getLabel=\"getLabel\" onAction=\"onActionButton\" tag=\"7\"\/>\r\n <button id=\"btnZuletzt9\" getLabel=\"getLabel\" onAction=\"onActionButton\" tag=\"8\"\/>\r\n <\/group>\r\n <\/tab>\r\n <\/tabs>\r\n <\/ribbon>\r\n<\/customUI><\/pre>\n
Private <\/span>strZuletztButton() As String<\/span><\/pre>\nPublic Sub <\/span>ZuletztVerwendeteArrayFuellen()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>i As Integer<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM qryKundenZuletzt\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n ReDim Preserve strZuletztButton(1, i)\r\n strZuletztButton(0, i) = rst!KundeID\r\n strZuletztButton(1, i) = rst!Firma\r\n i = i + 1\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\nEnd Sub<\/span><\/pre>\n\n
Sub <\/span>onLoad_ZuletztVerwendete(ribbon As <\/span>IRibbonUI)\r\n Set<\/span> objRibbon_ZuletztVerwendete = ribbon\r\n ZuletztVerwendeteArrayFuellen\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>LetzteDatensaetzeAktualisieren()\r\n ...\r\n ZuletztVerwendeteArrayFuellen\r\n objRibbon_ZuletztVerwendete.Invalidate\r\nEnd Sub<\/span><\/pre>\nSub <\/span>getLabel(control As <\/span>IRibbonControl, ByRef label)\r\n Dim <\/span>strLabel As String<\/span>\r\n strLabel = strZuletztButton(1, control.Tag)\r\n label = strLabel\r\nEnd Sub<\/span><\/pre>\nAnzeigen des jeweiligen Datensatzes beim Anklicken des button-Elements<\/h2>\n
![\"Auswahl](\"..\/fileadmin\/_temp_\/2022_03\/pic_1373_009.png\")
<\/p>\n