{"id":55000220,"date":"2014-08-01T00:00:00","date_gmt":"2020-01-24T15:59:01","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=220"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Kontextmenues","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Kontextmenues.html","title":{"rendered":"Kontextmenüs"},"content":{"rendered":"

Mit Access 2007 hat Microsoft das Ribbon eingeführt und Access seiner Werkzeuge beraubt, Menüleisten und Kontextmenüs über die Benutzeroberfläche zu erstellen. Nun gut: Menüleisten gibt es nicht mehr, aber Kontextmenüs können in professionellen Anwendung doch sehr hilfreich und vor allem ergonomisch sein. Dieser Artikel zeigt den alternativen Weg zur Erstellung von Kontextmenüs – den über VBA.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1310_Kontextmenues.mdb<\/b>.<\/p>\n

Kontextmenüs<\/h2>\n

In Access 2003 und jünger konnten Sie nicht nur Kontextmenüs, sondern auch andere Menüs zusammenklicken. Wenn Sie jedoch einmal dynamisch generierte Kontextmenüs benötigten, mussten Sie auch dort zu VBA greifen – beispielsweise, um verschiedene Werte einer Tabelle per Kontextmenü zur Auswahl anzubieten. Dementsprechend können Sie die in diesem Artikel vorgestellten Techniken auch in Datenbanken einsetzen, die mit Access älteren Jahrgangs als 2007 erstellt wurden.<\/p>\n

Sollte Ihnen der Begriff Kontextmenü fremd sein: Das sind diejenigen Menüs, die aufgeklappt werden, wenn Sie mit der rechten Maustaste auf ein Objekt klicken (zum Beispiel auf eine Datei oder einen Ordner im Windows Explorer). Diese Kontextmenüs können Sie auch für Ihre eigenen Anwendungen anlegen und an den entsprechenden Stellen anbieten.<\/p>\n

Einsatzbereiche<\/h2>\n

Access selbst bietet ja bereits eine ganze Reihe eingebauter Kontextmenüs für die verschiedenen Objekte an – für die Spaltenköpfe oder die Felder der Datenblattansicht, für Steuerelemente in Formularen, für Formulare selbst et cetera (siehe Bild 1). Warum sollten Sie also eigene Kontextmenüs hinzufügen Oder sogar die vorhandenen Kontextmenüs ersetzen Ganz einfach: Wenn Sie eine eigene Anwendung erstellen, dann enthält diese auch die von Ihnen definierte Benutzeroberfläche – und dieser können Sie neben den üblichen Ribbons, Formularen und Steuerelementen auch Kontextmenüs hinzufügen.<\/p>\n

\"Beispiel<\/a><\/p>\n

Bild 1: Beispiel für ein eingebautes Kontextmenü<\/p>\n

Sehr sinnvoll sind Kontextmenüs beispielsweise in Zusammenhang mit TreeView-Steuerelementen, da Sie so leicht Funktionen zu den angezeigten Elementen hinzufügen können – etwa zum Bearbeiten des angeklickten Eintrags, zum Löschen des Beitrags oder auch zum Anlegen neuer Einträge.<\/p>\n

Vielleicht möchten Sie auch nur eingebaute Steuerelemente anpassen, indem Sie vorhandene Einträge ausblenden oder deaktivieren oder eigene Einträge hinzufügen. So könnten Sie zum Beispiel das Kontextmenü eines Textfeldes um den Kopieren- oder den Ausschneiden-Befehl erleichtern, wenn Sie nicht möchten, dass der Benutzer auf einfache Weise die Inhalte des Textfeldes in die Zwischenablage einfügt. Für all diese Zwecke müssen wir zunächst einen Blick auf die VBA-Objekte zum Steuern des Aussehens von Kontextmenüs werfen.<\/p>\n

Kontextmenüs per VBA<\/h2>\n

Dazu müssen Sie zunächst wissen, dass die Kontextmenüs keine Access-interne Komponente sind, sondern dass die notwendigen Objekte in der Office-Bibliothek enthalten sind. Und da diese einem VBA-Projekt standardmäßig nicht zugewiesen ist, fügen Sie den entsprechenden Verweis nun zunächst hinzu. Dazu öffnen Sie den VBA-Editor (zum Beispiel mit Strg + G<\/b>) und betätigen den Menübefehl Extras|Verweise<\/b>. Fügen Sie dort den Eintrag Microsoft Office x.0 Object Library <\/b>hinzu (siehe Bild 2).<\/p>\n

\"Verweis<\/a><\/p>\n

Bild 2: Verweis auf die Office-Bibliothek<\/p>\n

Anschließend können Sie im Code-Fenster auf die Objekte dieser Bibliothek zugreifen. Zu Testzwecken wollen wir zunächst eine Liste aller aktuell in der Datenbankdatei enthaltenen Kontextmenüs im Direktfenster ausgeben. Dabei lernen Sie dann gleich einige Objekte und Eigenschaften der Kontextmenüs unter VBA kennen. Der dazu notwendige Code steckt in der Prozedur AlleMenues <\/b>und sieht wie folgt aus:<\/p>\n

Public Sub <\/span>AlleMenues()\r\n     Dim <\/span>cbr As <\/span>Office.CommandBar\r\n     For Each cbr In                 Application.CommandBars\r\n         Debug.Print<\/span> cbr.Name\r\n     Next<\/span> cbr\r\nEnd Sub<\/span><\/pre>\n
Die Prozedur deklariert eine Variable des Typs CommandBar<\/b>, was einer Menüleiste, einer Symbolleiste oder einem Kontextmenü entspricht. Mithilfe dieser Variablen durchläuft die Prozedur in einer For Each<\/b>-Schleife alle Elemente der CommandBars<\/b>-Auflistung des Application<\/b>-Objekts, was der aktuellen Instanz von Access entspricht. Sie gibt dann über die Eigenschaft Name <\/b>den Namen des aktuellen CommandBar<\/b>-Objekts aus.<\/p>\n
Wenn Sie diese Prozedur eingeben und starten, rauschen eine ganze Reihe Einträge durch den Direktbereich. Wieviele waren das Das finden Sie durch Absetzen der folgenden Anweisung im Direktfenster heraus:<\/p>\n
  Commandbars.Count\r\n 209<\/pre>\n
Unter Access 2010 etwa gibt es also über 200 Menüs! Allerdings sind dies nicht alles Kontextmenüs. Informationen über die Art des Menüs liefert die Eigenschaft Type<\/b>. Wollen wir die Namen der Menüs mit Typ ausgeben, erweitern Sie die Debug.Print<\/b>-Zeile der obigen Prozedur wie folgt:<\/p>\n
Debug.Print<\/span> cbr.Name, cbr.Type<\/pre>\n
Eingebaut oder nicht<\/h2>\n
Eine weitere interessante Eigenschaft des CommandBar<\/b>-Objekts heißt BuiltIn<\/b>. Diese Eigenschaft gibt den Wert True <\/b>zurück, wenn es sich um ein benutzerdefiniertes Menü handelt, also eines, dass durch den Code der Anwendung, durch Import oder durch Erstellen mit den Tools von Access 2003 und älter erstellt wurde. Wenn Sie also beispielsweise einmal alle eingebauten Kontextmenüs entfernen möchten, liefert die Eigenschaft Builtin <\/b>alle notwendigen Informationen.<\/p>\n
Arten von Menüleisten<\/h2>\n
Um herauszufinden, welche der CommandBar<\/b>-Objekte Kontextmenüs repräsentieren, müssen wir zunächst ermitteln, was die Zahlenwerte 0<\/b>, 1 <\/b>und 2 <\/b>bedeuten. Dazu bemühen wir den Objekt-Explorer (F2<\/b>), siehe Bild 3. Dort filtern wir zunächst nach der Bibliothek, in der sich die entsprechenden Konstanten befinden könnten, also Office <\/b>(für Microsoft Office x.0 Object Library<\/b>).<\/p>\n
\"Ermitteln<\/a><\/p>\n
Bild 3: Ermitteln der Bedeutung der Type-Werte von CommandBar-Objekten<\/p>\n
Dann suchen wir nach dem Namen der Eigenschaft, hier Type<\/b>. Darüber gelangen wir an die Type<\/b>-Eigenschaft des CommandBar<\/b>-Objekts. Wählen Sie diese aus, erhalten Sie unten weitere Informationen – nämlich den Namen der Enumeration, welche die Konstanten für die Eigenschaft Type <\/b>enthält (Sie hätten auch direkt den Weg über das CommandBar<\/b>-Objekt gehen und dann nach der Eigenschaft Type <\/b>suchen können). Klicken Sie dort auf die Enumeration msoBarType<\/b>, finden Sie schnell die möglichen Werte:<\/p>\n