<\/p>\n
Klaus Giesen, Wuppertal<\/b><\/p>\n
Access verfügt wie allen anderen Office-Anwendungen auch über eine Reihe Standardmenü- und Symbolleisten. Bei individuellen Datenbankanwendungen ist es jedoch für den Anwender angenehmer und auch sicherer, wenn er für eine solche Anwendung auch über benutzerdefinierte Menü- und Symbolleisten verfügt. So können beispielsweise leicht individuelle Menü- und Symbolleisten in Abhängigkeit vom angemeldeten Benutzer erstellt werden.<\/b><\/p>\n
Zur Erstellungen eigener Menü- und Symbolleisten gibt es zwei Möglichkeiten.<\/p>\n
Die erste Möglichkeit erfolgt über das Dialogfenster Anpassen, das Sie mit dem Menübefehl Extras\/Anpassen oder durch Anklicken einer Leiste mit der rechten Maustaste und Auswahl des Eintrags Anpassen aufrufen können.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{69621857-3E59-4D48-B49C-63E08865ECDD}\/pic001.png\")
<\/p>\n
Bild 1: Das Dialogfenster Anpassen<\/span><\/b><\/p>\n Auf diese Art der Erstellung beziehungsweise Bearbeitung wird in diesem Beitrag jedoch nicht näher eingegangen. Wir beschäftigen uns hier ausschließlich mit der zweiten Möglichkeit, Menü- und Symbolleisten per VBA zu erstellen. Diese Methode hat einige Vorzüge, wie beispielsweise:<\/p>\n Bevor es losgeht, müssen Sie je nach verwendeter Access-Version die passenden Verweise erstellen.<\/p>\n Aufgrund des gemeinsamen Objektmodells müssen Sie vor der Programmierung von Befehlsleisten in Access abhängig von der benutzten Version entsprechende Verweise in Ihrer Datenbank einstellen.<\/p>\n Sie können theoretisch auch komplett ohne Verweise auskommen. Wie das funktioniert und welche Vor- und Nachteile das hat, erfahren Sie im Beitrag Verwendung von Objektvariablen in der vorliegenden Ausgabe von Access im Unternehmen. <\/p>\n In Access 97 stellen Sie einen Verweis auf die dieser Version entsprechenden Bibliothek Microsoft Office 8.0 Object Library ein. Wählen Sie dazu in der Entwurfsansicht eines Moduls aus dem Menü Extras den Befehl Verweise aus und aktivieren Sie das Kontrollkästchen vor dem entsprechenden Eintrag (siehe Bild 2).<\/p>\n Access 2000 erfordert einen Verweis auf die Microsoft Office 9.0 Object Library. Die Einstellung erfolgt genauso, wie eben beschrieben.<\/p>\n Die beiden Beispieldatenbanken zu diesem Beitrag enthalten jeweils den entsprechenden Verweis. Sie finden diese Beispieldatenbanken in den Versionen für Access 97 (Menus97.mdb) und Access 2000 (Menus00.mdb) auf der beiliegenden CD-ROM im Ordner mdb. <\/p>\n Bild 2: Das Dialogfenster Verweise in Access 97<\/span><\/b><\/p>\n Bild 3: Das Formular frmToolBarDemo_1<\/span><\/b><\/p>\n Bild 4: Befehlsleiste mit drei verschiedenen Elementen<\/span><\/b><\/p>\n Dieses erste Anwendungsbeispiel erstellt eine Befehlsleiste mit verschiedenen Elementen. Einige dieser Elemente führen dann Aktionen aus, so wie Sie es von Ihrer täglichen Arbeit mit Befehlsleisten her gewohnt sind. Ausgangspunkt ist das Formular frmToolBarDemo_1 der Beispieldatenbank (siehe Bild 3).<\/p>\n Ein Klick auf die Schaltfläche btnCreateToolBar erstellt eine Befehlsleiste mit drei verschiedenen Elementen (siehe Bild 4):<\/p>\n Die dabei ausgeführte Ereignisprozedur kann hier nur auszugsweise besprochen werden. Sie finden den vollständigen Code im Klassenmodul des Formulars in der Beispieldatenbank.<\/p>\n Der in Quellcode 1 abgedruckte Code legt die neue Befehlsleiste Test Toolbar an und verankert diese links oben.<\/p>\n In der Befehlsleiste wird eine Schaltfläche (msoControlButton) erstellt (s. Quellcode 2).<\/p>\n Die Zuweisung des angezeigten Schaltflächensymbols erfolgt über die Eigenschaft FaceID.<\/p>\n Der Klick auf eine Schaltfläche sollte natürlich irgendeine Aktion hervorrufen. Dies erfolgt mit der Eigenschaft OnAction, die bei diesem Beispiel das Makro macAttention ausführt. <\/p>\n Das nächste Objekt in der Befehlsleiste ist ein Kombinationsfeld (s. Quellcode 3).<\/p>\n <\/p>\n Quellcode 1<\/b><\/p>\n Quellcode 2<\/b><\/p>\n Quellcode 3<\/b><\/p>\n Quellcode 4 (Teil 1)<\/b><\/p>\n Die Listeneinträge werden bei diesem Beispiel dynamisch erzeugt und die Eigenschaft OnAction ruft eine Funktion auf.<\/p>\n Zum Abschluss kommen wir doch noch zu einem richtigen Menü in unserer Befehlsleiste (s. Quellcode 4). <\/p>\n Die eigentlichen Menüpunkte sind wieder vom Objekttyp msoControlButton, aufgerufen werden wieder entsprechende Funktionen.<\/p>\n Wenn Sie versuchen, eine bereits existierende Befehlsleiste noch einmal zu erstellen, löst Access den Laufzeitfehler 5 aus. Da Access bei dieser Gelegenheit dazu neigt, heftig abzustürzen, muss dieser unbedingt aufgefangen werden (s. Quellcode 5).<\/p>\n Damit sind wir beim Löschen von Befehlsleisten angekommen. Dies erledigt folgender Ausdruck:<\/p>\n Das zweite Anwendungsbeispiel erzeugt dynamisch eine Menüleiste in Abhängigkeit vom angemeldeten Benutzer.<\/p>\n Quellcode 4 (Fortsetzung)<\/b><\/p>\n Quellcode 5<\/b><\/p>\n <\/b><\/p>\n Bild 5: Die benutzerdefinierte Menüleiste<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 6: Das Formular frmAnmeldung<\/span><\/b><\/p>\n Eine solche Auslegung ist beispielsweise dann sinnvoll, wenn bestimmte Benutzergruppen von bestimmten Funktionen ferngehalten werden sollen. Typisches Beispiel:<\/p>\n Das übersichtsformular einer Datenbankanwendung: Die Menüpunkte zum Aufruf der Datenbankwartung und Benutzerverwaltung sind nur für den Administrator relevant. Allen anderen Benutzern brauchen sie nicht zur Verfügung zu stehen.<\/p>\n Das Merkmal dieser Menüleiste ist die Kombination von eingebauten und selbst erstellten Menüpunkten (siehe Bild 5).<\/p>\n Bei der Benutzer-Version des Menüs fehlt der letzte Menüpunkt Extras, womit die eingangs gestellte Anforderung erfüllt ist.<\/p>\n Die VBA-Prozedur zur Menüerstellung kann in diesem Beitrag aus Platzgründen nur auszugsweise vorgestellt werden. Sie finden den vollständigen Code der Prozedur CreateMenuAdmin im Modul Form_frmAnmel-dung. <\/p>\n Das Formular frmAnmeldung (siehe Bild 6) enthält ein Textfeld zur Eingabe eines Benutzernamens. <\/p>\n Quellcode 6<\/b><\/p>\n Quellcode 7<\/b><\/p>\n Die beim Klick auf die Schaltfläche btnOK aufgerufene Ereignisprozedur (s. Quellcode 6) vergleicht den eingegebenen Benutzernamen mit den in der Tabelle tblUser gespeicherten Benutzernamen und verzweigt jeweils zu einer Prozedur, die ein entsprechendes Menü erstellt.<\/p>\n Bei aktiviertem Sicherheitssystem von Access können Sie alternativ auch mit Hilfe der Funktion CurrentUser den jeweils angemeldeten Benutzer auslesen und entsprechende Befehlsleisten anlegen. <\/p>\n Der Zugriff auf den fest eingebauten Menübefehl Schließen im neu erstellten Menü Datei erfolgt über die dazugehörige ID 1567, die Sie in der schon erwähnten Tabelle tblCommandBarControlID finden können (s. Quellcode 7).<\/p>\n Zum Erstellen eines Untermenüs benötigen Sie zusätzlich zur Menüleiste die folgenden Objekte (s. Quellcode 8):<\/p>\n Bei letzterem Punkt können Sie wieder entweder eigene Menübefehle anlegen oder auf fest eingebaute Menübefehle zugreifen.<\/p>\n Falls Sie einen Trennstrich zwischen zwei Menüpunkten einfügen möchten, verwenden Sie die folgende Codezeile hinter dem Menüelement, vor dem der Trennstrich erscheinen soll:<\/p>\n <\/b><\/p>\n Bild 7: Das Formular frmToolBarDemo_2<\/span><\/b><\/p>\n Quellcode 8<\/b><\/p>\n Der weitere Ablauf ist rein beispielhaft zu sehen:<\/p>\n Je nach ausgewähltem Benutzer wird das Formular frmToolBarDemo_2 (siehe Bild 7) mit der passenden Menüleiste angezeigt.<\/p>\n Sie können dort:<\/p>\n Beim Schließen des Formulars wird auch die soeben erstellte benutzerdefinierte Menüleiste gelöscht.<\/p>\n","protected":false},"excerpt":{"rendered":" Access verfügt wie allen anderen Office-Anwendungen auch über eine Reihe Standardmenü- und Symbolleisten. Bei individuellen Datenbankanwendungen ist es jedoch für den Anwender angenehmer und auch sicherer, wenn er für eine solche Anwendung auch über benutzerdefinierte Menü- und Symbolleisten verfügt. So können beispielsweise leicht individuelle Menü- und Symbolleisten in Abhängigkeit vom angemeldeten Benutzer erstellt werden.<\/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,66062003,44000028],"tags":[],"class_list":["post-55000132","post","type-post","status-publish","format-standard","hentry","category-662003","category-66062003","category-Ergonomie_und_Benutzeroberflaeche"],"yoast_head":"\nVerweise<\/h2>\n
Hinweis<\/h3>\n
Access 97<\/h3>\n
Access 2000<\/h3>\n
Hinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{69621857-3E59-4D48-B49C-63E08865ECDD}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{69621857-3E59-4D48-B49C-63E08865ECDD}\/pic003.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{69621857-3E59-4D48-B49C-63E08865ECDD}\/pic004.png\")
<\/p>\nBefehlsleiste erstellen<\/h2>\n
Schaltfläche erstellen<\/h2>\n
Kombinationsfeld erstellen<\/h2>\n
Set CmdBar = Application.CommandBars.Add(Name:= _ \"Test Toolbar\", Position:=msoBarTop, temporary:=False)\r\nCmdBar.Enabled = True\r\nCmdBar.Visible = True<\/pre>\n
Set cmdBtn = CmdBar.Controls.Add(Type:=msoControlButton)\r\nWith cmdBtn\r\n .Style = msoButtonIcon\r\n .FaceId = 352\r\n .Caption = \"Achtung\"\r\n .Style = msoButtonIconAndCaption\r\n .Tag = \"Test Button\"\r\n .OnAction = \"macAttention\"\r\nEnd With<\/pre>\n
Set cmdComboBox = _ CmdBar.Controls.Add(msoControlComboBox)\r\nWith cmdComboBox\r\n .AddItem \"Torwart\", 1\r\n .AddItem \"Libero\", 2\r\n .AddItem \"Abwehr\", 3\r\n .AddItem \"Mittelfeld\", 4\r\n .AddItem \"Angriff\", 5\r\n .Caption = \"Auswahl Position\"\r\n .Tag = \"Test Combo Box\"\r\n .OnAction = \"SavePosition\"\r\n .Style = msoComboLabel\r\n .DropDownLines = 8\r\n .DropDownWidth = 75\r\nEnd With<\/pre>\n
Set cmdPopUp = mdBar.Controls.Add(Type:=msoControlPopup)\r\n With cmdPopUp\r\n .Caption = \"&Besprechung festlegen\"\r\n .Tag = \"Test PopUp\"\r\n Set cmdBtn1 = _ Controls.Add(Type:=msoControlButton)\r\n With cmdBtn1\r\n .Caption = \"&Heute\"\r\n .OnAction = \"FestlegenHeute\"\r\n .Style = msoButtonCaption\r\n End With<\/pre>\n
Menü erstellen<\/h2>\n
NotwendigeFehlerbehandlung<\/h2>\n
Befehlsleiste löschen<\/h2>\n
CommandBars(\"Test Toolbar\").Delete<\/pre>\n
Set cmdBtn2 = _ .Controls.Add(Type:=msoControlButton)\r\n With cmdBtn2\r\n .Caption = \"&Morgen\"\r\n .OnAction = \"FestlegenMorgen\"\r\n .Style = msoButtonCaption\r\n End With<\/pre>\n
btnCreateToolbar_Err:\r\n If Err.Number = 5 Then\r\n MsgBox \"Menüleiste bereits vorhanden - muss \" _ & \"vor Neuerstellung gelöscht werden!\"\r\n ElseIf Err.Number <> 0 Then\r\n MsgBox \"btnCreateToolbar_Error \" & _ Err.Number & \" \" & Err.Description\r\n End If<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{69621857-3E59-4D48-B49C-63E08865ECDD}\/pic005.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{69621857-3E59-4D48-B49C-63E08865ECDD}\/pic006.png\")
<\/p>\nAdmin-Version der Menüleiste<\/h2>\n
Hinweis<\/h3>\n
Auslesen des Benutzers<\/h2>\n
Private Sub btnOK_Click()\r\n Dim db As Database\r\n Dim rs As Recordset\r\n Set db = CurrentDb\r\n Set rs = db.OpenRecordset(\"SELECT * FROM tblUser \" _ \" WHERE User = ''\" & Me.User & \"''\", _ dbOpenDynaset)\r\n If rs.EOF Then\r\n MsgBox \"Bitte geben Sie als Benutzernamen \" _ & \"''Admin'' oder ''Benutzer'' ein! \", vbOKOnly\r\n Me.User.SetFocus\r\n Else\r\n Select Case User\r\n Case \"Admin\"\r\n CreateMenuAdmin\r\n DoCmd.OpenForm \"frmToolBarDemo_2\"\r\n DoCmd.Close acForm, Me.Name\r\n Case \"Benutzer\"\r\n CreateMenuUser\r\n DoCmd.OpenForm \"frmToolBarDemo_2\"\r\n DoCmd.Close acForm, Me.Name\r\n End Select\r\n End If\r\nEnd Sub<\/pre>\n
Set CmdBar = CommandBars.Add(\"MenuAdmin\", msoBarTop, _ True, True)\r\n CommandBars(\"MenuAdmin\").Visible = True\r\n '' 1. Menüpunkt Datei\r\n With CmdBar.Controls.Add(msoControlPopup)\r\n .Caption = \"&Datei\"\r\n .TooltipText = \"Menü Datei\"\r\n End With\r\n Set cmdBtn1 = _ CmdBar.Controls(\"Datei\").Controls.Add(Id:=1567)<\/pre>\n
Praxis-Tipp<\/h3>\n
Zugriff aufeingebaute Befehle<\/h2>\n
Das Untermenü<\/h2>\n
.BeginGroup = True<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{69621857-3E59-4D48-B49C-63E08865ECDD}\/pic007.png\")
<\/p>\nWeiterer Ablauf<\/h2>\n
With CmdBar.Controls.Add(msoControlPopup)\r\n .Caption = \"E&xtras\"\r\n .TooltipText = \"Menü Extras\"\r\nEnd With\r\nSet cmdBtn4 = CmdBar.Controls(\"Extras\").Controls.Add(Id:=2071)\r\n '' Nur Access 97:\r\n ''Set cmdBtn5 = CmdBar.Controls(\"Extras\").Controls.Add(Id:=2072)\r\nSet SubMenu = CmdBar.Controls(\"Extras\").Controls.Add(msoControlPopup)\r\nWith SubMenu\r\n .Caption = \"Sicherheit\"\r\n .BeginGroup = True\r\nEnd With\r\nSet cmdBtn6 = SubMenu.Controls.Add(Id:=1814)\r\nSet cmdBtn7 = SubMenu.Controls.Add(Id:=572)\r\ncmdBtn7.BeginGroup = True\r\nSet cmdBtn8 = SubMenu.Controls.Add(Id:=1816)<\/pre>\n