<\/p>\n
Manche Lösung scheint auf den ersten Blick kein besonders großes Einsatzgebiet zu haben, aber wenn man erst einmal darüber nachdenkt … Ein Beispiel dafür ist das Einfügen von Platzhaltern in Textfelder, wobei die Platzhalter den Feldnamen der Tabelle entsprechen, aus denen sie stammen. Ursprünglich wurde die Technik für ein eBay-Tool entwickelt, wobei der als Titel anzuzeigende Text aus Tabellenfeldern wie Artikelbezeichnung, Farbe, Größe und so weiter zusammengesetzt wurde.<\/b><\/p>\n
Beim Einstellen von Artikeln las das Tool dann die benötigten Informationen aus der Tabelle aus und fügte sie zum Artikeltitel zusammen. Das hätte man aber auch über ein Feld einer einfachen Abfrage erledigen können, oder Stimmt: Aber erstens sollte der Titeltext flexibel einstellbar sein, um eine möglichst zugkräftige Beschreibung zu liefern und zweitens sollte das Tool von Mitarbeitern bedient werden, die anderes zu tun haben, als sich mit Access-Abfragen herumzuschlagen.<\/p>\n
Nun ist es einfach, eine Routine zu schreiben, die beim Abarbeiten eines Datensatzes einen Ausdruck wie den folgenden mit den Inhalten der entsprechenden Felder eines Datensatzes füllt:<\/p>\n
[Artikelnummer] [Bezeichnung] [Farbe] [Hersteller] [Groesse]<\/pre>\nDer Clou ist es, dem Benutzer eine einfache Möglichkeit an die Hand zu geben, die in eckigen Klammern stehenden Platzhalter zum gewünschten Ausdruck zusammenzustellen, ohne dass er jeden einzelnen Feldnamen der zugrunde liegenden Tabelle kennen muss.<\/p>\n
Beschreibung der Technik<\/b><\/p>\n
Wir müssen dem Benutzer also irgendwie Zugriff auf die Feldnamen der Tabelle verschaffen und ihm erlauben, diese möglichst einfach in das Zieltextfeld einzutragen. Dazu gibt es mehrere Möglichkeiten: So könnte man etwa eine Liste mit allen verfügbaren Feldern in das Formular integrieren, welches auch das Zielfeld enthält, oder man erstellt ein eigenes Popup-Formular, das nur dem Zuweisen der Platzhalter dient. Am einfachsten ist es jedoch, wenn Sie einfach ein Kontextmenü erstellen, das der Benutzer per Rechtsklick auf das Zielfeld öffnet und aus dem er die gewünschten Platzhalter auswählen kann. Der Platzhalter wird dann genau an der Position der Einfügemarke hinzugefügt. Sollte gerade ein Bereich des Zielfeldes markiert sein, soll dieser einfach durch den Platzhalter überschrieben werden. Auf diese Weise kann der Benutzer Platzhalter für Platzhalter hinzufügen.<\/p>\n
Weitere Einsatzmöglichkeiten<\/b><\/p>\n
Damit auch Leser etwas von dieser Lösung profitieren, die diese nicht gerade zum Zusammensetzen der Titeltexte von eBay-Versteigerungen benötigen, hier noch einige Anregungen für weitere Anwendungsfälle:<\/p>\n
Beispiel<\/b><\/p>\n
Zu Beispielzwecken hält wieder einmal die Südsturm-Datenbank her, unsere optimierte Version der Nordwind-Datenbank. Dabei soll der Benutzer beliebige Felder aus der Artikeltabelle zum Positionstext in einer Bestellung zusammensetzen können. Vergessen Sie den Hintergrund nicht: Wir möchten dem Benutzer die Möglichkeit geben, Inhalt etwa von Berichten flexibel aus der Datenherkunft zusammenzusetzen, ohne dass er sich selbst mit Abfragen und weiteren Access-Spezialitäten auseinandersetzen muss.<\/p>\n
Das Beispielformular enthält im Wesentlichen ein Textfeld namens txtPositionstext<\/b>, das der Zusammenstellung der Platzhalter für den Positionstext eines Artikels dient. Für Beispielzwecke ist das Formular an die Abfrage qryArtikelPlatzhalter <\/b>gebunden und zeigt all seine Felder an – so lässt sich leicht prüfen, ob die Platzhalter wie gewünscht gefüllt werden.<\/p>\n
Doch eins nach dem anderen: Zunächst einmal brauchen Sie eine Abfrage, die alle infrage kommenden Felder liefert. Diese heißt in unserem Beispiel qryArtikelPlatzhalter <\/b>und sieht wie in Bild 1 aus. Diese Beispielabfrage zeigt gleich einen praktischen Nutzen: Wenn der Benutzer selbst eine Abfrage für das Zusammenstellen des Positionstextes erstellen müsste, käme er noch nicht einmal mit einer einfachen Abfrage über eine Tabelle aus, sondern müsste die Bezeichnung der Kategorie und des Lieferanten aus weiteren verknüpften Tabellen hinzufügen – dies erledigen wir an dieser Stelle für den Benutzer.<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2010_01\/PlatzhalterKontextmenues-web-images\/pic001_opt.jpeg\")
<\/p>\n
Bild 1: Diese Abfrage dient als Datenherkunft für die Auswahl der Platzhalter.<\/span><\/b><\/p>\n Kontextmenü, selbst gebaut<\/b><\/p>\n Wenn der Benutzer nun mit der rechten Maustaste auf das Textfeld txtPositionstext <\/b>klickt, soll ein Kontextmenü erscheinen, das alle Feldnamen der Abfrage qryArtikelPlatzhalter <\/b>enthält. Zur Verdeutlichung, dass es sich dabei um Platzhalter handelt, klammern wir die Einträge des Kontextmenüs außerdem in eckige Klammern ein, sodass sich etwa das Bild aus Bild 2 ergibt.<\/p>\n Bild 2: So soll das Kontextmenü zum Einfügen der Platzhalter aussehen.<\/span><\/b><\/p>\n <\/p>\n Damit das Kontextmenü erscheint, sind zwei Schritte nötig:<\/p>\n Nach der Auswahl des Eintrags, der zum Textfeld hinzugefügt werden soll, muss außerdem noch eine entsprechende Funktion ausgelöst werden.<\/p>\n Schauen wir uns erstmal an, wie das Kontextmenü zusammengestellt und angezeigt wird. Dazu fangen wir die Mausgeste, die normalerweise für die Anzeige von Kontextmenüs verantwortlich ist, ab. Wenn Sie selbst einmal ausprobieren, wann das Kontextmenü erscheint, stellen Sie fest, dass dies beim Loslassen der rechten Maustaste und nicht etwa beim Drücken geschieht.<\/p>\n Also machen wir uns das Ereignis Bei Maustaste auf <\/b>des Textfelds zunutze und fügen diesem die Ereignisprozedur aus Listing 1 hinzu.<\/p>\n Listing 1: Diese Ereignisprozedur wird durch das Loslassen der Maustaste über dem Textfeld txtPositionstext ausgelöst.<\/p>\n Die Routine verwendet zwei Objekte der Office-Objektbibliothek, weshalb Sie über den Verweise-Dialog (Menüeintrag Extras|Verweise <\/b>im VBA-Editor) einen Verweis auf die Bibliothek Microsoft Office x.0 Object Library <\/b>hinzufügen müssen.<\/p>\n Nach der Deklaration der benötigten Variablen prüft die Prozedur den Wert des im Prozedurkopf übergebenen Parameters Button<\/b>. Wenn der Benutzer die rechte Maustaste gedrückt hat, liefert Button <\/b>den Wert 2 <\/b>– nur hier müssen wir tätig werden.<\/p>\n Die Objektvariable db <\/b>wird mit einem Verweis auf das Database<\/b>-Objekt der aktuellen Datenbank gefüllt – wir kommen später darauf zurück.<\/p>\n Innerhalb der folgenden drei Anweisungen wird die Fehlerbehandlung ausgeschaltet, eine eventuell bestehende Symbolleiste namens cbrPlatzhalter <\/b>gelöscht und die Fehlerbehandlung wieder eingeschaltet. So sparen wir das umständliche Prüfen, ob die Symbolleiste eventuell bereits erzeugt wurde (das Löschen einer Symbolleiste, die nicht vorhanden ist, löst einen Fehler aus).<\/p>\n Dann erzeugt die Prozedur ein neues CommandBars<\/b>-Objekt namens cbrPlatzhalter <\/b>als temporäre Symbolleiste des Typs msoBarPopup<\/b>, was auf gut deutsch Kontextmenü <\/b>bedeutet. Die Variable qdf <\/b>wird mit einem Verweis auf die Definition der Abfrage qryArtikelPlatzhalter <\/b>gefüllt, deren Felder in der folgenden For Each<\/b>-Schleife durchlaufen werden. Innerhalb dieser Schleife fügt die Prozedur für jedes Feld ein CommandBarControl <\/b>zur Kontextmenüleiste hinzu.<\/p>\n Dabei werden neben dem Typ und der Haltbarkeit (Temporary:=True<\/b>) nur noch die Beschriftung und der Name der beim Anklicken dieser Schaltfläche aufzurufenden Funktion angegeben.<\/p>\n Dass dieser Funktionsaufruf einen Parameter besitzt, der jeweils dem in eckige Klammern eingefassten Namen des Platzhalters entspricht, rundet das Bild ab. Der Funktionsaufruf für den Kontextmenüeintrag [ArtikelID] <\/b>lautet somit =PlatzhalterHinzufuegen("[ArtikelID"])<\/b>. Die Methode ShowPopup <\/b>des CommandBar<\/b>-Objekts zeigt das frisch erzeugte Kontextmenü anschließend an.<\/p>\n Eingebautes Kontextmenü verhindern<\/b><\/p>\n Wenn Sie den Code bis hierhin ausprobieren, stellen Sie fest, dass das offensichtliche Fehlen der Funktion PlatzhalterErsetzen <\/b>zwar keinen Fehler auslöst, im Anschluss an das Anklicken eines Kontextmenüeintrags aber auch noch das eingebaute Kontextmenü auftaucht.<\/p>\n Dies lässt sich prinzipiell nur unterbinden, indem Sie die Eigenschaft Kontextmenü <\/b>des Formulars im Eigenschaftsfenster auf den Wert Nein<\/b> einstellen. Im VBA-Code erledigen Sie dies mit der folgenden Zeile:<\/p>\n Wenn Sie dem Benutzer die eingebauten Kontextmenüs ohnehin nicht anbieten möchten, schalten Sie diese einfach für das komplette Formular aus. Falls doch, können Sie es durch Einstellen von ShortcutMenu <\/b>auf True <\/b>wieder aktivieren:<\/p>\n Dummerweise prüft Access den Wert dieser Eigenschaft erst nach der kompletten Abhandlung des benutzerdefinierten Kontextmenüs, sodass es keine Möglichkeit gibt, die eingebauten Kontextmenüs nach Anzeige unseres eigenen Exemplars wieder zu aktivieren, ohne dass dieses unmittelbar im Anschluss ebenfalls erscheint. Eine mit vertretbarem Aufwand realisierbare Lösung zum Deaktivieren und Aktivieren der eingebauten Kontextmenüs eines Formulars im Rahmen der Anzeige eines benutzerdefinierten Kontextmenüs gibt es nicht.<\/p>\n Platzhalter einfügen<\/b><\/p>\n Fehlt noch der Aufruf der Funktion PlatzhalterHinzufuegen<\/b>, die wie in Listing 2 aussieht. Normalerweise platziert man Funktionen, die durch Menüeinträge ausgelöst werden, in einem Standardmodul. Allerdings durchsucht Access beim Aufruf der unter OnAction <\/b>angegebenen Funktion zuerst das Klassenmodul des – soweit vorhanden – aktuell geöffneten und im Fokus befindlichen Formulars. Die Funktion muss hier noch nicht einmal als Public <\/b>deklariert sein – die Deklaration mit dem Schlüsselwort Private <\/b>reicht aus und verhindert außerdem, dass die entsprechende Funktion von außen verfügbar ist (wenn sowohl das aktuell geöffnete Formular als auch ein Standardmodul eine Funktion mit dem unter OnAction <\/b>angegebenen Namen enthalten, ruft Access die im Klassenmodul befindliche Funktion auf – erst, wenn das Formular nicht den Fokus besitzt, würde die Funktion aus dem Standardmodul berücksichtigt).<\/p>\n Sie können die Funktion aus Listing 2 also einfach im Klassenmodul des Formulars unterbringen, welches das Kontextmenü anzeigt.<\/p>\n Die Funktion PlatzhalterHinzufuegen <\/b>ermittelt zunächst die Position und die Größe des mit der Einfügemarke markierten Bereichs im Textfeld txtPositionstext<\/b>. Dann speichert sie den aktuellen Inhalt des Textfelds in der String<\/b>-Variablen str<\/b>. Die nächste Anweisung erledigt die Hauptarbeit: Sie ersetzt den markierten Teil des Textfelds mit dem im Kontextmenü ausgewählten Ausdruck, also beispielsweise [Artikelname]<\/b> – fertig!<\/p>\n Platzhalter umsetzen<\/b><\/p>\n Jetzt fehlt nur noch eine kleine Routine, welche die Platzhalter im Text durch die Inhalte der eigentlichen Datensätze ersetzt. Sie können diese Routine auf zweierlei Arten aufrufen:<\/p>\n Die Schaltfläche cmdPlatzhalterErsetzen <\/b>löst eine Beispielprozedur aus, welche alle Felder der Abfrage qryArtikelPlatzhalter<\/b> durchläuft und die Werte für den aktuellen Datensatz anstelle der Platzhalter einsetzt.<\/p>\n Der wesentliche Teil dieser Prozedur sieht so aus, das Ergebnis wie in Bild 3:<\/p>\n![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2010_01\/PlatzhalterKontextmenues-web-images\/pic002_opt.jpeg\")
<\/p>\n\n
Private Sub txtPositionstext_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)\r\n Dim db As DAO.Database\r\n Dim cbr As Office.CommandBar\r\n Dim cbc As Office.CommandBarControl\r\n Dim qdf As DAO.QueryDef\r\n Dim fld As DAO.Field\r\n If Button = 2 Then\r\n Me.ShortcutMenu = False\r\n Set db = CurrentDb\r\n On Error Resume Next\r\n CommandBars("cbrPlatzhalter").Delete\r\n On Error GoTo 0\r\n Set cbr = CommandBars.Add("cbrPlatzhalter", msoBarPopup, , True)\r\n Set qdf = db.QueryDefs("qryArtikelPlatzhalter")\r\n For Each fld In qdf.Fields\r\n Set cbc = cbr.Controls.Add(1, , , , True)\r\n cbc.Caption = "[" & fld.Name & "]"\r\n cbc.OnAction = "=PlatzhalterHinzufuegen(""[" & fld.Name & "]"")"\r\n Next fld\r\n cbr.ShowPopup\r\n End If\r\n End Sub<\/pre>\nMe.ShortcutMenu = False<\/pre>\n
Me.ShortcutMenu = True<\/pre>\n
\n
![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2010_01\/PlatzhalterKontextmenues-web-images\/pic003_opt.jpeg\")
<\/p>\n