<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
Menüs sind – ergonomisch betrachtet – das Salz in der Suppe beim Benutzen von Softwareprodukten. Viele Anwendungen bieten mehrere Möglichkeiten, bestimmte Funktionen aufzurufen – innerhalb von Elementen der Benutzeroberfläche, per Tastatur oder eben in Menüs. Letztere haben einen Vorteil: Sie sind eigentlich immer präsent (wenn sie nicht gerade kontextsensitiv sind) und geben dem Anwender daher die Möglichkeit, sich gut an sie zu gewöhnen. Im vorliegenden Beitrag erfahren Sie, wie Sie Ihre mit Access erstellten Anwendungen mit benutzerdefinierten Menüs ausstatten. Dabei liegt der Schwerpunkt nicht auf dem Zusammensetzen von Menüs per Anpassen-Dialog oder per Makro, sondern auf der flexibelsten Art und Weise: mit VBA. <\/b><\/p>\n
Menüs sind eine Funktion von Office und nicht nur von Access. Sie können Menüs über die Benutzeroberfläche von Access hinzufügen, anpassen und wieder entfernen oder VBA verwenden.<\/p>\n
Die Anpassung eingebauter oder benutzerdefinierter Menüs unter Verwendung der Benutzeroberfläche wird im vorliegenden Beitrag nicht behandelt. Damit können Sie lediglich statisch für zusätzlichen Komfort sorgen, die Menüs würden sich aber nicht dynamisch an die jeweiligen Anforderungen anpassen. Daher lernen Sie im vorliegenden Beitrag, wie Sie Menüs mit VBA steuern können.<\/p>\n
Wie immer, wenn ein bestimmtes Vorhaben mit VBA erreicht werden soll, sind gewisse grundlegende Kenntnisse hilfreich. Auch wenn Sie noch nie mit Menüs gearbeitet haben, ist die diesbezügliche Lektüre der Onlinehilfe von Access sicher ein guter Ansatz.<\/p>\n
Zum Anzeigen und Steuern benutzerdefinierter Menüs enthält Office eine Bibliothek mit geeigneten Objekten, Methoden und Eigenschaften. Damit können Sie Menüs bei Bedarf anzeigen und wieder entfernen sowie einzelne Elemente aktivieren und deaktivieren.<\/p>\n
In den folgenden Kapiteln finden Sie zunächst einige grundlegende Informationen zu den in der Bibliothek enthaltenen Objekten. Anschließend erfahren Sie, welche Schritte zum Anlegen und Anpassen der einzelnen Menüelemente erforderlich sind. Dabei verwenden Sie spezielle Funktionen, die das Anlegen der Menüelemente vereinfachen.<\/p>\n
Der Schwerpunkt der vorgestellten Funktionen liegt darin, eine herkömmliche Access-Datenbank in eine Anwendung umzuwandeln, die menütechnisch völlig eigenständig ist und nur noch eines oder mehrere benutzerdefinierte Menüs für den Aufruf der benötigten Befehle zur Verfügung stellt.<\/p>\n
Schließlich möchten Sie den Endbenutzer nicht mit all den Access-spezifischen Menüs und Symbolleisten verwirren, sondern ihm nur die in Zusammenhang mit der Anwendung erforderlichen Elemente zur Verfügung stellen.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{73D2297A-0C39-4C4A-88D4-1B46392927A6}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Menüleiste für die Adressverwaltung<\/span><\/b><\/p>\n Als Beispiel für die Anwendung VBA-gesteuerter Menüs dient die Musterlösung Adressverwaltung mit Outlook-Schnittstelle der vorliegenden Ausgabe von Access im Unternehmen. Sie finden die hier vorgestellten Funktionen zum Steuern von Menüs in den entsprechenden Datenbanken in den Versionen für Access 97 (Adressverwaltung97.mdb) und Access 2000 (Adressverwaltung2000.mdb). <\/p>\n Die Beispielanwendung soll eine Menüleiste mit folgenden Funktionen erhalten:<\/p>\n Die fertige Menüleiste soll wie in Bild 1 aussehen. <\/p>\n Weitere Informationen zu den jeweiligen Funktionen zum Erstellen der Menüelemente erhalten Sie in Kapitel 5. <\/p>\n Im Englischen heißt der Oberbegriff für alle Menüleisten Command Bars. Dieser Begriff fasst die drei Arten von Menüleisten zusammen: Standard Menus (Menüleisten), Toolbars (Symbolleisten) und Shortcut Menus (Kontextmenüs).<\/p>\n Die Beschreibung des gesamten Objektmodells der Menüs würde vermutlich mehrere Hefte füllen. Daher werden nachfolgend nur Menüleisten beschrieben – die anderen Menüarten folgen ggf. in einer der nächsten Ausgaben von Access im Unternehmen. <\/p>\n Menüs lassen sich mit einem relativ einfachen Objektmodell beschreiben. Das Objektmodell umfasst zwei Auflistungen: CommandBars und CommandBarControls. Die Auflistung CommandBars enthält alle vorhandenen eingebauten und benutzerdefinierten Menüs. Jedes dieser CommandBar-Objekte enthält eine CommandBarControls-Auflistung mit den Elementen des jeweiligen Menüs.<\/p>\n Diese Elemente gibt es wiederum in drei Ausführungen:<\/p>\n Quellcode 1<\/b><\/p>\n Quellcode 2<\/b><\/p>\n Wenn Sie hierarchische Menüstrukturen verwenden möchten, benötigen Sie jeweils ein CommandBarControl des Typs CommandBarControlComboBox für jedes weitere Untermenü. Mit den folgenden Funktionen zum Anzeigen von Menüs und deren Einträgen lernen Sie die grundlegenden Objekte und einige ihrer Eigenschaften kennen.<\/p>\n Die Funktion aus Quellcode 1 listet alle aktuell vorhandenen Menüs auf. Dabei gibt sie die Eigenschaften Name, NameLocal, Type, Position und BuiltIn aus. Dazu verwendet sie ein Commandbar-Objekt namens cbr, dem sie in einer For Each-Schleife nacheinander alle Elemente der Commandbars-Auflistung der Anwendung zuweist. <\/p>\n Die in den Eigenschaften enthaltenen Informationen werden in Tab. 1 beschrieben.<\/p>\n Zur Anzeige aller Elemente eines Menüs verwenden Sie die beiden Funktionen aus Quellcode 2. Da bestimmte Elemente eines Menüs durchaus weitere Unterelemente enthalten können, verwenden Sie hier zwei Funktionen, von denen sich die eine bei Bedarf selbst aufruft und dadurch für eine rekursive Auflistung aller Menüelemente sorgt.<\/p>\n Die Auflistung erfolgt durch zwei ineinander verschachtelte For Each-Schleifen. Die äußere Schleife durchläuft alle CommandBar-Objekte der CommandBars-Auflistung, die innere alle CommandBarControl-Objekte der Controls-Auflistung des aktuellen CommandBar-Objektes.<\/p>\n Dabei kontrolliert die Funktion, ob die Eigenschaft Type des CommandBarControl-Objektes den Wert msoControlPopup hat. Falls ja, handelt es sich um ein Objekt, das weitere Elemente enthalten kann, und die rekursive Funktion ElementeAuflisten wird aufgerufen.<\/p>\n Quellcode 3<\/b><\/p>\n In jeder Ebene wird die Beschriftung der jeweiligen Steuerelemente ausgegeben, wobei die Ausgabe je Ebene um zwei Leerzeichen weiter eingerückt wird.<\/p>\n Eigenschaft<\/b><\/p>\n<\/td>\n Inhalt<\/b><\/p>\n<\/td>\n<\/tr>\n Name<\/p>\n<\/td>\n Englischer Name<\/p>\n<\/td>\n<\/tr>\n NameLocal<\/p>\n<\/td>\n Angezeigter Name, sprachabhängig<\/p>\n<\/td>\n<\/tr>\n Type<\/p>\n<\/td>\n Art des Menüs: msoBarTypeMenuBar, msoBarTypeNormal, msoBarTypeNormal<\/p>\n<\/td>\n<\/tr>\n Position<\/p>\n<\/td>\n Position des Menüs, Beispiele: msoBarMenuBar, msoBarPopup, msoBarTop, msoBarFloating<\/p>\n<\/td>\n<\/tr>\n BuiltIn<\/p>\n<\/td>\n True: eingebautes Menü, False: benutzerdefiniertes Menü<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 1: Eigenschaften und ihre Inhalte<\/b><\/p>\n Access speichert die Informationen über Menüs an verschiedenen Orten. Nimmt ein Benutzer änderungen an eingebauten Menüs vor, werden diese änderungen in der Registry gespeichert – und zwar in dem für diesen Benutzer vorgesehenen Bereich. Informationen über neue Menüs werden teils in der Datenbank und teils in der Registry gespeichert, Informationen über den Aufbau der benutzerdefinierten Menüs dagegen nur in der Datenbank. Lediglich Informationen über die Anzeigeart werden benutzerabhängig in der Registry abgelegt.<\/p>\n <\/p>\n Das Anlegen, Bearbeiten und Löschen von Menüs und Menüelementen per VBA ist eine Abfolge einiger weniger, immer wiederkehrender Operationen. So brauchen Sie beispielsweise zum Anlegen von Schaltflächen für einen Menüpunkt immer wieder die gleichen Anweisungen. Daher lernen Sie in den folgenden Abschnitten einige Funktionen kennen, die zur Durchführung der gewünschten Schritte dienen und die nur noch die übergabe der entsprechenden Parameter beim Funktionsaufruf erfordern.<\/p>\n Wenn sichergestellt ist, dass Ihre neu erstellte Menüleiste alle für die Anwendung der Datenbank notwendigen Befehle enthält, können Sie alle anderen Menüs ausblenden. Diese Aufgabe nimmt Ihnen die Funktion aus Quellcode 3 ab. Sie durchläuft alle Menüleisten der aktuellen Anwendung und stellt deren Eigenschaft Visible auf den Wert False. Die einzige Ausnahme ist die Menüleiste menu bar, die allerdings später durch die neu erstellte Menüleiste ersetzt wird.<\/p>\n Das Anlegen eines Menüs erfolgt mit der Methode Add der Commandbars-Auflistung. Den Aufruf dieser Methode vereinfacht die Funktion aus Quellcode 4, der Sie beim Aufruf drei Parameter übergeben: den Namen der zu erstellenden Menüleiste, die Startposition und die Angabe, ob das Menü als Menüleiste verwendet werden soll.<\/p>\n Die Funktion dient als so genannter Wrapper für den eigentlichen Befehl für das Anlegen eines neuen Menüs. Ein Wrapper ist eine Art Schnittstelle, mit der die eigentliche Funktion umhüllt und entweder deren Aufruf vereinfacht oder mit zusätzlichen Funktionen versehen wird. Hier wird dem Aufruf z. B. eine Fehlerbehandlung hinzugefügt. Die Funktion gibt beim Auftreten eines Fehlers den Wert False zurück.<\/p>\n Quellcode 4<\/b><\/p>\n Quellcode 5<\/b><\/p>\n Quellcode 6<\/b><\/p>\n Mit dem folgenden Aufruf der Funktion aus Quellcode 5 erstellen Sie beispielsweise eine neue Menüleiste namens Adressverwaltung, die anstelle der bisherigen Menüleiste angelegt wird.<\/p>\n Die Parameter für Methoden wie die Add-Methode der Commandbars-Auflistung und andere finden Sie z. B. im Objektkatalog von Access, weitere Informationen hierzu im Beitrag Tipps und Tricks zum Programmieren in der vorliegenden Ausgabe. Dort erhalten Sie außerdem eine Erläuterung der Funktion von Wrappern. <\/p>\n Zum Anlegen eines Steuerelements in einem Menü dient ebenfalls die Methode Add – allerdings nicht die der Commandbars-, sondern der CommandbarControls-Auflistung.<\/p>\n Die Add-Methode sowie die Zuweisung der benötigten Eigenschaften des Steuerelements werden wiederum durch einen Wrapper gekapselt.<\/p>\n Mit dem Parameter cbr übergeben Sie einen Verweis auf die Menüleiste, in der der Eintrag angelegt werden soll, z. B. mit folgendem Ausdruck:<\/p>\n Mit den Parametern Beschriftung und Bezeichnung übergeben Sie die jeweiligen Zeichenketten. Der Wert für Aktion gibt den Namen der beim Aktivieren des Steuerelements aufzurufenden Funktion an.<\/p>\n Mit NeueGruppe geben Sie an, ob der neue Eintrag durch einen Querstrich optisch von den vorhandenen Einträgen abgetrennt werden soll. Der Parameter kann die Werte True und False annehmen.<\/p>\n Quellcode 7<\/b><\/p>\n Quellcode 8<\/b><\/p>\n Quellcode 9<\/b><\/p>\n Wenn Sie bereits eine Menüleiste namens Adressverwaltung angelegt haben, können Sie der Menüleiste mit der folgenden Anweisung aus Quellcode 6 einen Eintrag hinzufügen.<\/p>\n<\/p>\n über ein Untermenü können Sie von der Menüleiste aus weitere Menüpunkte erreichen. Ein Untermenü kann selbst Menüeinträge, weitere Untermenüs und andere Steuerelemente beinhalten. Zum Anlegen eines Untermenüs verwenden Sie die Funktion aus Quellcode 7.<\/p>\n Die Parameter der Funktion wurden bereits alle bei der Beschreibung der Funktion MenueeintragErstellen beschrieben (s. Abschnitt 5.3). Die Funktion hat einige Parameter weniger als die dort beschriebene Funktion, da durch das Aufklappen eines Untermenüs beispielsweise keine Aktion ausgelöst wird und diese Menüs in der Regel auch keine Symbole verwenden.<\/p>\n Das Anlegen eines Untermenüs kann beispielsweise durch den Funktionsaufruf aus Quellcode 8 erfolgen. Der Aufruf aus Quellcode 10 legt in der Menüleiste ein Untermenü mit der Bezeichnung &Datei an.<\/p>\n Quellcode 10<\/b><\/p>\n Quellcode 11<\/b><\/p>\n Quellcode 12<\/b><\/p>\n Das Anlegen eines Eintrags in einem Untermenü (s. Quellcode 9) unterscheidet sich dadurch von dem gleichen Vorgang in der Menüleiste, dass hier unterschiedliche Stile und damit neben der eigentlichen Beschriftung auch Symbole verwendet werden können. Dementsprechend hat die Wrapperfunktion zwei zusätzliche Eigenschaften, nämlich Stil und Symbol.<\/p>\n Der Parameter Stil kann unter anderen die Werte aus Tab. 2 annehmen. Mit dem Parameter Symbol übergeben Sie der Funktion eine ID für eines der eingebauten Symbole.<\/p>\n Konstante<\/b><\/p>\n<\/td>\n Zahlenwert<\/b><\/p>\n<\/td>\n Beschreibung<\/b><\/p>\n<\/td>\n<\/tr>\n msoButtonCaption<\/p>\n<\/td>\n 1<\/p>\n<\/td>\n Nur Beschriftung<\/p>\n<\/td>\n<\/tr>\n msoButtonIcon<\/p>\n<\/td>\n 2<\/p>\n<\/td>\n Nur Symbol<\/p>\n<\/td>\n<\/tr>\n msoButtonIconAndCaption<\/p>\n<\/td>\n 3<\/p>\n<\/td>\n Beschriftung und Symbol<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 2: Werte der Eigenschaft Style<\/b><\/p>\n Wenn Sie die Datenbank Faces97.mdb bzw. Faces2000.mdb, die sich auf der Heft-CD befinden, öffnen, finden Sie eine übersicht über alle vorhandenen Symbole. Die ID des gewünschten Symbols erhalten Sie, wenn Sie mit dem Mauszeiger über das jeweilige Symbol fahren. <\/p>\n Den Aufruf der Funktion können Sie Quellcode 10 entnehmen. Er setzt voraus, dass bereits eine Menüleiste namens Adressverwaltung und ein Untermenü namens &Datei vorhanden sind.<\/p>\n Er legt einen Untermenüeintrag mit der Beschriftung D&rucken an, der beim Auslösen die Funktion Drucken aufruft.<\/p>\n Gelegentlich stehen Menüfunktionen nicht zur Verfügung. In der Beispielanwendung Adressverwaltung ist das z. B. beim Eintrag Datei ( Drucken der Fall. Dieser Befehl soll nur aktiviert sein, wenn der Bericht zur Ausgabe der Adressenliste aktiviert ist. Mit den beiden Funktionen aus Quellcode 11 aktivieren und deaktivieren Sie ein Element der Menüleiste.<\/p>\n Im Aufruf übergeben Sie einfach einen Verweis auf das betroffene Steuerelement. Im Falle des oben genannten Befehls sieht der Aufruf wie in Quellcode 12 aus.<\/p>\n Quellcode 13<\/b><\/p>\n Neben Untermenüs und Menüeinträgen zum Aufrufen von unterschiedlichen Funktionen ist noch ein weiteres Steuerelement interessant: das Kombinationsfeld.<\/p>\n Es sollte aus Anwendungen wie Word hinlänglich bekannt sein – dort dient es z. B. zur Auswahl von Eigenschaften wie Schriftart, Schriftgröße usw. Für das Beispiel der Adressverwaltung ist allerdings schon ein wenig konstruktives Denken erforderlich, um ein sinnvolles Einsatzgebiet für ein Kombinationsfeld in der Menüleiste zu finden.<\/p>\n Möglicherweise hilft aber dem einen oder anderen Anwender einer Adressverwaltung ein Kombinationsfeld, mit dem die letzten zehn angezeigten Adressen erneut aufgerufen werden können.<\/p>\n Eigentlich soll dieses Kapitel lediglich die Wrapperfunktion zum Anlegen eines Kombinationsfeldes beschreiben. Da Kombinationsfelder in Menüs aber einige Eigenheiten haben, sollen sie in einem eigenen Kapitel abgehandelt werden. <\/p>\n Kombinationsfelder in Menüs weisen einige Einschränkungen gegenüber denen in Formularen auf. Sie können nur ein Feld je Zeile anzeigen, haben nur eine Ereigniseigenschaft (OnAction) und auch deren Auswertung ist schwierig. Sie können einem Kombinationsfeld auch keine Datensatzherkunft im klassischen Sinne zuweisen, sondern müssen jeden Eintrag einzeln vornehmen.<\/p>\n Die Funktion aus Quellcode 13 legt ein Kombinationsfeld in der mit dem Parameter cbr übergebenen Menüleiste an.<\/p>\n Der Parameter Datensatzherkunft dient übergabe der Abfrage in Form eines SQL-Strings, deren Inhalt in dem Kombinationsfeld angezeigt werden soll. Für diese Abfrage gilt eine wichtige Regel: Das bzw. die anzuzeigenden Felder müssen in einem Feld namens Kombinationsfeldeintrag zusammengefasst werden. Wie das funktioniert, erfahren Sie im Beispiel weiter unten.<\/p>\n Quellcode 14<\/b><\/p>\n Die übrigen Parameter dienen weitgehend zur Beschreibung des Aussehens des Kombinationsfeldes. Die meisten kennen Sie schon von den anderen Menüelementen. Lediglich der Funktionsparameter Breite ist neu: Mit ihm übergeben Sie der Funktion einen Wert für die Breite des Kombinationsfeldes. Der Parameter Stil kann bei dieser Funktion zwei Werte annehmen: msoComboLabel und msoComboNormal. Damit können Sie das Kombinationsfeld mit oder ohne Beschriftungsfeld anlegen.<\/p>\n Die Funktion legt zunächst das Kombinationsfeld an und stellt dann wie üblich die Eigenschaften ein. Zum Füllen des Kombinationsfeldes mit Daten weist die Funktion den per Zeichenkette übergebenen SQL-Ausdruck einer neuen Datensatzgruppe zu. In einer Do While-Schleife werden alle Datensätze der Datensatzgruppe durchlaufen und der jeweils in dem Feld Kombinationsfeldeintrag gespeicherte Wert als neuer Eintrag des Kombinationsfeldes angelegt.<\/p>\n Sind die Namen neuer Unternehmen oder neuer Personen anzulegen oder zu entfernen, muss das Kombinationsfeld aktualisiert werden. Dazu benötigen Sie eine abgespeckte Variante der zuvor beschriebenen Funktion (s. Quellcode 14). Diese Funktion erwartet neben dem Verweis auf das Kombinationsfeldsteuerelement die übergabe der gewünschten SQL-Zeichenkette. Mit der Methode Clear des Steuerelements werden die aktuellen Datensätze gelöscht. Die neuen Datensätze werden mit der bekannten Methode angelegt.<\/p>\n Mit den in den beiden vorherigen Kapiteln beschriebenen Wrapperfunktionen können Sie mit wenigen Zeilen Code eine komplette Menüleiste mit beliebig vielen Steuerelementen erstellen.<\/p>\n Die Erstellung der Menüleiste aus Bild 1 erfolgt beispielsweise durch die Funktion aus Quellcode 15.<\/p>\n Nach der Erstellung müssen Sie die Menüleiste noch mit Leben füllen. Die mit dem Quellcode aus Kapitel 7 erstellte Menüleiste beinhaltet zwar bereits alle Funktionsaufrufe, die aber in der aktuellen Fassung allesamt ins Leere laufen, da keine geeigneten Funktionen vorhanden sind. Sie müssen also noch die entsprechenden Funktionen zum Drucken von Berichten, Beenden der Anwendung, Anzeigen der unterschiedlichen Formulare usw. anlegen.<\/p>\n Diese Funktionen werden im zweiten Teil des Beitrags Adressverwaltung mit Outlook-Schnittstelle in der kommenden Ausgabe von Access im Unternehmen genau erläutert. Dort erfahren Sie auch, was nach der Auswahl eines Eintrags des Kombinationsfeldes geschehen soll und wann der Drucken-Befehl aktiviert und deaktiviert wird.<\/p>\n Da das Thema Menüs in Zusammenhang mit VBA sehr umfangreich ist, enthält dieser Beitrag natürlich nur die grundlegendsten Informationen und wichtigsten Tricks und Kniffe.<\/p>\n Die hier vorgestellten Grundlagen und Funktionen sind die wesentlichsten Voraussetzungen für die Erstellung von dynamischen Menüleisten.<\/p>\n Quellcode 15<\/b><\/p>\n Die Wrapperfunktionen aus Kapitel 5 und 6 helfen Ihnen, schnell die gewünschten Menüelemente zu erstellen. Mit den Möglichkeiten, in Menüs Informationen per Kombinationsfeld zur Auswahl anzubieten und Steuerelemente an- und auszuschalten, können Sie die Benutzeroberfläche Ihrer Anwendungen erheblich ergonomischer gestalten. Sie haben mit Menüleisten eine Möglichkeit, dem Benutzer bestimmte Befehle ständig anzubieten – egal, mit welchem Formular oder Bericht er sich gerade beschäftigt.<\/p>\n","protected":false},"excerpt":{"rendered":" Menüs sind – ergonomisch betrachtet – das Salz in der Suppe beim Benutzen von Softwareprodukten. Viele Anwendungen bieten mehrere Möglichkeiten, bestimmte Funktionen aufzurufen – innerhalb von Elementen der Benutzeroberfläche, per Tastatur oder eben in Menüs. Letztere haben einen Vorteil: Sie sind eigentlich immer präsent (wenn sie nicht gerade kontextsensitiv sind) und geben dem Anwender daher die Möglichkeit, sich gut an sie zu gewöhnen. Im vorliegenden Beitrag erfahren Sie, wie Sie Ihre mit Access erstellten Anwendungen mit benutzerdefinierten Menüs ausstatten. Dabei liegt der Schwerpunkt nicht auf dem Zusammensetzen von Menüs per Anpassen-Dialog oder per Makro, sondern auf der flexibelsten Art und Weise: mit VBA.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662003,66042003,44000028,44000025],"tags":[],"class_list":["post-55000116","post","type-post","status-publish","format-standard","hentry","category-662003","category-66042003","category-Ergonomie_und_Benutzeroberflaeche","category-VBA_und_Programmiertechniken"],"yoast_head":"\nHinweis<\/h3>\n
Hinweis<\/h3>\n
Hinweis<\/h3>\n
Public Function MenuesAuflisten()\r\n Dim cbr As CommandBar\r\n For Each cbr In Application.CommandBars\r\n Debug.Print cbr.Name, cbr.NameLocal, cbr.Type, _ cbr.Position, cbr.BuiltIn\r\n Next cbr\r\nEnd Function<\/pre>\n
Public Function MenuesUndElementeAuflisten()\r\n Dim cbr As CommandBar\r\n Dim cbc As CommandBarControl\r\n For Each cbr In Application.CommandBars\r\n Debug.Print cbr.NameLocal\r\n For Each cbc In cbr.Controls\r\n Debug.Print cbc.Caption\r\n If cbc.Type = msoControlPopup Then\r\n ElementeAuflisten cbc, 1, \" \"\r\n End If\r\n Next cbc\r\n Next cbr\r\nEnd Function\r\nPublic Function ElementeAuflisten(cbp As _ CommandBarPopup, Ebene As Integer, _ Leerraum As String)\r\n Dim cbc As CommandBarControl\r\n For Each cbc In cbp.CommandBar.Controls\r\n Debug.Print Leerraum & cbc.Caption\r\n If cbc.Type = msoControlPopup Then\r\n ElementeAuflisten cbc.Control, _ Ebene + 1, Leerraum & \" \"\r\n End If\r\n Next cbc\r\nEnd Function<\/pre>\n
Anzeigen aller Menüs<\/h2>\n
Anzeigen aller Elemente eines Menüs<\/h2>\n
Public Sub AlleMenueleistenAusblenden()\r\n Dim cbr As Object\r\n For Each cbr In Application.CommandBars\r\n If cbr.Visible = True And _ cbr.Name <> \"menu bar\" Then\r\n cbr.Visible = False\r\n End If\r\n Next cbr\r\nEnd Sub<\/pre>\n
\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n Menüs ausblenden<\/h2>\n
Anlegen eines Menüs<\/h2>\n
Public Function MenueleisteErstellen(Menueleistenname _ As String, Menueposition As Integer, _ Menueleiste As Boolean)\r\n On Error Resume Next\r\n Dim cbr As CommandBar\r\n Set cbr = CommandBars.Add(Menueleistenname, _ Position:=Menueposition, MenuBar:=Menueleiste)\r\n If Err.Number > 0 Then\r\n MenueleisteErstellen = False\r\n End If\r\nEnd Function<\/pre>\n
Public Function MenueeintragErstellen(cbr As _ CommandBar, Beschriftung As String, Bezeichnung _ As String, Aktion As String, NeueGruppe As Boolean)\r\n Dim cbc As CommandBarControl\r\n Set cbc = cbr.Controls.Add(Type:=1)\r\n cbc.Style = 2\r\n cbc.Caption = Beschriftung\r\n cbc.OnAction = Aktion\r\n cbc.Tag = Bezeichnung\r\n cbc.BeginGroup = NeueGruppe\r\nEnd Function<\/pre>\n
MenueeintragErstellen _ Application.Commandbars(\"Adressverwaltung\"), _ \"&Detailsuche\", \"Detailsuche\", \"=Detailsuche()\", _ False<\/pre>\n
MenueleisteErstellen _ \"Adressverwaltung\", msoBarTop, True<\/pre>\n
Praxis-Tipp<\/h3>\n
Anlegen eines Eintrags in der Menüleiste<\/h2>\n
Application.Commandbars(<Menüname>)<\/pre>\n
Public Function UntermenueErstellen(cbr As CommandBar, Beschriftung As String, _ Bezeichnung As String, NeueGruppe As Boolean)\r\n Dim cbc As CommandBarControl\r\n Set cbc = cbr.Controls.Add(Type:=msoControlPopup)\r\n cbc.Caption = Beschriftung\r\n cbc.Tag = Bezeichnung\r\n cbc.BeginGroup = NeueGruppe\r\nEnd Function<\/pre>\n
UntermenueErstellen Application.Commandbars(\"Adressverwaltung\"), \"&Datei\", _ \"Datei\", False<\/pre>\n
Public Function UntermenueeintragErstellen(cbr As CommandBarControl, Stil As _ Integer, Beschriftung As String, Bezeichnung As String, Aktion As String, _ NeueGruppe As Boolean, Optional Symbol As Variant)\r\n Dim cbc As CommandBarControl\r\n Set cbc = cbr.Controls.Add(Type:=msoControlButton)\r\n cbc.Caption = Beschriftung\r\n cbc.OnAction = Aktion\r\n cbc.Tag = Bezeichnung\r\n cbc.BeginGroup = NeueGruppe\r\n If Not IsMissing(Symbol) Then\r\n cbc.FaceId = Symbol\r\n cbc.Style = Stil\r\n Else\r\n cbc.Style = msoButtonCaption\r\n End If\r\nEnd Function<\/pre>\n
Anlegen eines Untermenüs<\/h2>\n
UntermenueeintragErstellen Application.Commandbars(\"Adressverwaltung\"). _ Controls(\"&Datei\"), msoButtonIconAndCaption, \"D&rucken\", \"Drucken\", _ \"=Drucken()\", False, 4<\/pre>\n
Public Function MenuepunktAktivieren(cbc As CommandBarControl)\r\n cbc.Enabled = True\r\nEnd Function\r\nPublic Function MenuepunktDeaktivieren(cbc As CommandBarControl)\r\n cbc.Enabled = False\r\nEnd Function<\/pre>\n
MenuepunktAktivieren Application.Commandbars(\"Adressverwaltung\"). _ Controls(\"&Datei\").Controls(\"D&rucken\")<\/pre>\n
Anlegen eines Eintrags in einem Untermenü<\/h2>\n
\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n Hinweis<\/h3>\n
Aktivieren und Deaktivieren von Menüelementen<\/h2>\n
Public Function KombinationsfeldErstellen(cbr As _ CommandBar, Datensatzherkunft As String, _ Beschreibung As String, Bezeichnung As String, _ Breite As Integer, Aktion As String, Stil As _ Integer)\r\n Dim cbcb As CommandBarComboBox\r\n Dim db As Database\r\n Dim rst As Recordset\r\n Set db = CurrentDb\r\n Set rst = db.OpenRecordset(Datensatzherkunft, _ dbOpenDynaset)\r\n Set cbcb = cbr.Controls.Add(Type:=4)\r\n cbcb.BeginGroup = True\r\n cbcb.Tag = Bezeichnung\r\n cbcb.Caption = Beschreibung\r\n cbcb.Width = Breite\r\n cbcb.Style = 1\r\n cbcb.DropDownWidth = -1\r\n cbcb.OnAction = Aktion\r\n cbcb.Style = Stil\r\n If Not rst.EOF Then\r\n Do While Not rst.EOF\r\n cbcb.AddItem rst!Kombinationsfeldeintrag\r\n rst.MoveNext\r\n Loop\r\n cbcb.ListIndex = 1\r\n End If\r\nEnd Function<\/pre>\n
Hinweis<\/h3>\n
Einschränkungen<\/h2>\n
Funktion zum Anlegen von Kombinationsfeldern in Menüleisten<\/h2>\n
Public Function AktualisiereKombinationsfeld(cbc As _ CommandBarControl, Datensatzherkunft)\r\n Dim db As Database\r\n Dim rst As Recordset\r\n Set db = CurrentDb\r\n Set rst = db.OpenRecordset(Datensatzherkunft, _ dbOpenDynaset)\r\n cbc.Clear\r\n If Not rst.EOF Then\r\n Do While Not rst.EOF\r\n cbc.AddItem rst!Kombinationsfeldeintrag\r\n rst.MoveNext\r\n Loop\r\n cbc.ListIndex = 2\r\n End If\r\nEnd Function<\/pre>\n
Aktualisieren des Kombinationsfeldes<\/h2>\n
Public Sub MenueErstellen()\r\n Dim cbr As CommandBar\r\n Dim subcbr As CommandBarControl\r\n MenueleisteLoeschen \"Adressverwaltung\"\r\n MenueleisteErstellen \"Adressverwaltung\", msoBarTop, True\r\n Set cbr = CommandBars(\"Adressverwaltung\")\r\n cbr.Visible = True\r\n UntermenueErstellen cbr, \"&Datei\", \"Datei\", False\r\n UntermenueeintragErstellen cbr.Controls(\"&Datei\"), _ msoButtonIconAndCaption, \"D&rucken\", \"Drucken\", \"=Drucken()\", _ False, 4\r\n UntermenueeintragErstellen cbr.Controls(\"&Datei\"), msoButtonCaption, _ \"&Import von Outlook\", \"Import\", \"=ImportOutlook()\", True, 4\r\n UntermenueeintragErstellen cbr.Controls(\"&Datei\"), msoButtonCaption, _ \"&Export nach Outlook\", \"Export\", \"=ExportOutlook()\", False, 4\r\n UntermenueeintragErstellen cbr.Controls(\"&Datei\"), msoButtonCaption, _\r\n \"&Beenden\", \"Beenden\", \"=Beenden()\", True, 4\r\n UntermenueErstellen cbr, \"&Stammdaten\", \"Stammdaten\", False\r\n UntermenueeintragErstellen cbr.Controls(\"&Stammdaten\"), _ msoButtonIconAndCaption, \"&Personen\", \"Personen\", _ \"=StammdatenPersonen()\", False, 2131\r\n UntermenueeintragErstellen cbr.Controls(\"&Stammdaten\"), _ msoButtonIconAndCaption, \"&Unternehmen\", \"Unternehmen\", _ \"=StammdatenUnternehmen()\", False, 1016\r\n MenueeintragErstellen cbr, \"&Detailsuche\", \"Detailsuche\", _ \"=Detailsuche()\", False\r\n KombinationsfeldErstellen cbr, \"SELECT ''<Person oder Unternehmen \" _ & \"auswählen>'' AS Kombinationsfeldeintrag FROM qryAdressen \" _ & \"UNION SELECT Bezeichnung & \"\", \"\" & Typbezeichnung AS \" _ & \"Kombinationsfeldeintrag FROM qryAdressenTopTen\", \"&TopTen\", _ \"TopTen\", 300, \"=TopTenAuswahl()\", msoComboNormal\r\n MenueeintragErstellen cbr, \"&\", \"Hilfe\", \"=Hilfe()\", True\r\n MenuepunktDeaktivieren cbr.Controls(\"&Datei\").Controls(\"D&rucken\")\r\nEnd Sub<\/pre>\n