<\/p>\n
\n
Domänenfunktionen wie DomWert (DLookup), DomMax (DMax) oder DomAnzahl (DCount) sind praktische Helfer, wenn es um das schnelle Zugreifen auf verschiedene Informationen einer Datenbank geht. Wir können damit den Wert eines oder mehrerer Felder aus einem Datensatz mit einem bestimmten Kriterium ermitteln, die Gesamtanzahl von Datensätzen einer Tabelle mit oder ohne Kriterium oder auch Minimal- oder Maximalwerte. Der Assistent, den wir in diesem Beitrag vorstellen, hilft dabei auf verschiedene Arten. Die erste ist, dass Sie ihn einfach aufrufen können, um schnell die Werte für eine Domänenfunktion einzutippen und das Ergebnis auszulesen. Aber der Assistent kann noch mehr: Sie können ihn auch von Eigenschaftsfeldern heraus aufrufen, um die gewählte Domänenfunktion direkt dort einzutragen.<\/b><\/p>\n
Damit Sie sich direkt einen Eindruck davon machen können, wie der fertige Assistent aussieht, schauen Sie sich Bild 1 an. Hier finden Sie im oberen Bereich die Eingabefelder für die Parameter der Domänenfunktionen. Wir haben die Reihenfolge im Vergleich zur Funktion etwas umgestellt, sodass die Auswahl der Domäne der erste Schritt ist. Das hat den Hintergrund, dass wir nach der Auswahl der Tabelle oder Abfrage, aus der die zu ermittelnden Daten stammen sollen, die darin enthaltenen Felder per Kontextmenü zum Einfügen in die folgenden beiden Textfelder bereithalten wollen.<\/p>\n
![\"Der](\"..\/fileadmin\/_temp_\/2024_01\/pic_1485_001.png\")
<\/p>\n
Bild 1: Der Domänenfunktions-Assistent in Aktion<\/span><\/b><\/p>\n Nachdem wir beispielsweise eine Tabelle wie tblAutoren <\/b>ausgewählt haben, liefert ein Rechtsklick auf eines der Textfelder für den Ausdruck oder das Kriterium die Liste der Felder dieser Tabelle (siehe Bild 2).<\/p>\n Bild 2: Auswahl der Felder per Kontextmenü<\/span><\/b><\/p>\n Der untere Bereich enthält jeweils eine Zeile für alle zwölf verfügbaren Domänenfunktionen. Hier sehen wir zuerst die deutsche und in Klammern die englische Bezeichnung, daneben folgt das Ergebnis für die Domänenfunktion mit den oben angegebenen Parametern.<\/p>\n Rechts davon finden wir den aktuellen Ausdruck für den Aufruf dieser Domänenfunktion, der die oben angegebenen Parameter berücksichtigt. Mit den Schaltflächen rechts daneben können wir die aktuelle Funktion in die Zwischenablage kopieren.<\/p>\n Da der Assistent die Domänenfunktionen in der deutschen Fassung (für die Benutzeroberfläche der deutschen Version von Access) sowie in der englischen Fassung (für VBA) bereitstellen soll, haben wir im oberen Bereich noch eine Option hinzugefügt, mit der wir wählen können, ob die Funktion als Ausdruck oder als VBA-Funktion angezeigt werden soll.<\/p>\n In der Entwurfsansicht sieht das Formular wie in Bild 3 aus. Die oberen drei Steuerelemente heißen cboDomaene<\/b>, txtAusdruck<\/b> und txtKriterium<\/b>. Das Kombinationsfeld cboDomaene <\/b>wird beim Laden des Formulars durch das Ereignis aus Listing 1 gefüllt. Hier öffnen wir mit OpenRecordset <\/b>ein Recordset auf Basis der Tabelle MSysObjects<\/b>. Diese enthält alle Objekte einer Access-Datenbank. Wir benötigen nur die mit den Typen 1<\/b>, 4<\/b>, 5 <\/b>und 6<\/b>. 1<\/b>, 4 <\/b>und 6 <\/b>liefern die verschiedenen Tabellenarten (lokale Tabelle, verknüpfte Tabelle und ODBC-Tabelle) und 5 <\/b>die Abfragen. Außerdem wollen wir Systemtabellen und ähnliche Objekte ausschließen, die nicht vom Benutzer angelegt wurden und legen dazu entsprechende Kriterien fest.<\/p>\n Bild 3: Entwurfsansicht des Formulars frmDomaenenfunktionen<\/span><\/b><\/p>\n Listing 1: Prozedur, die beim Laden des Formulars aufgerufen wird<\/span><\/b><\/p>\n Das Kombinationsfeld cboDomaene <\/b>soll eine Wertliste als Datensatzherkunft erhalten, deshalb stellen wir die Eigenschaft Herkunftsart <\/b>auf Wertliste <\/b>ein. Um den Rest kümmern sich die folgenden Zeilen der Prozedur Form_Load<\/b>. Hier durchlaufen wir alle Datensätze des Recordsets. In einer Select Case<\/b>-Bedingung prüfen wir den Typ, also ob es sich um eine Tabelle oder um eine Abfrage handelt. Warum ist das nötig? Weil es vorkommen kann, dass eine Abfrage Parameter enthält. In diesem Fall können wir nicht per Domänenfunktion darauf zugreifen, daher wollen wir solche Einträge direkt auslassen. Um festzulegen, ob eine Domäne Parameter enthält, verwenden wir die Variable bolHinzufuegen<\/b>. Diese wird bei Tabellen immer auf True <\/b>eingestellt. Bei einer Abfrage erstellt die Prozedur ein QueryDef<\/b>-Objekt und weist diesem die aktuell untersuchte Abfrage zu. Für dieses können wir mit der Eigenschaft Parameters.Count <\/b>ermitteln, ob die Abfrage Parameter enthält. Ist das nicht der Fall, stellen wir bolHinzufuegen <\/b>auf True <\/b>ein, sonst auf False<\/b>.<\/p>\n Diesen Vorgang haben wir auch noch bei deaktivierter eingebauter Fehlerbehandlung ausgeführt, da dieser Zugriff bei einigen weiteren Abfragen zu Fehlern führte. Ist dies der Fall, stellen wir ebenfalls bolHinzufuegen <\/b>auf False <\/b>ein.<\/p>\n Hat bolHinzufuegen <\/b>danach den Wert True<\/b>, können wir die Tabelle oder Abfrage zur Liste der Domänen in strDomaenen <\/b>hinzufügen. Der Variablen strAusdruck <\/b>weisen wir den Namen des ersten Feldes der Tabelle oder Abfrage zu, denn wir wollen das Kombinationsfeld mit dem ersten Eintrag vorbelegen und das Textfeld txtAusdruck <\/b>mit dem ersten Feld dieser Tabelle oder Abfrage – so sieht der Benutzer direkt Beispiele für die anzugebenden Werte. Den Namen des ersten Feldes lesen wir wieder in einer Select Case<\/b>-Bedingung ein, in der wir testen, ob es sich um eine Tabelle oder Abfrage handelt. Abhängig davon öffnen wir ein TableDef<\/b>– oder QueryDef<\/b>-Objekt, dem wir dann den Namen des ersten Feldes entnehmen.<\/p>\n Nach dem Durchlaufen aller Recordsets stellen wir die Eigenschaft Datensatzherkunft <\/b>(RowSource<\/b>) auf die Liste aus strDomaenen <\/b>ein und setzen den Wert des Kombinationsfeldes auf den ersten verfügbaren Eintrag.<\/p>\n Dann füllen wir das Textfeld txtAusdruck <\/b>mit dem Wert aus strAusdruck<\/b>, also dem ersten Feld der gewählten Tabelle oder Abfrage. txtKriterium <\/b>leeren wir hingegen. Schließlich stellen wir noch die Optionsgruppe zum Auswählen der auszugebenden Ausdrücke auf 1 <\/b>ein, damit zunächst die deutschen Versionen der Domänenfunktionen erscheinen.<\/p>\n Danach folgt Arbeit für das Add-In – wir rufen die Prozedur UpdateControls <\/b>auf, welche die übrigen Steuerelemente des Formulars aktualisiert. Dabei übergeben wir die Werte der drei Steuerelemente cboDomaene<\/b>, txtAusdruck <\/b>und txtKriterien <\/b>als Parameter.<\/p>\n Die Prozedur UpdateControls <\/b>erwartet die Werte der drei Steuerelemente cboDomaene<\/b>, txtAusdruck <\/b>und txtKriterien <\/b>als Parameter. Sie füllt zunächst die Textfelder mit den Ergebnissen der jeweiligen Domänenfunktion (siehe Listing 2). Dies erledigen wir jeweils unter Deaktivierung der eingebauten Fehlerbehandlung. Somit verhindern wir eine bei einem Fehler ausgegebene Fehlermeldung von Access selbst und können stattdessen einfach den Wert #Fehler <\/b>in das jeweilige Textfeld schreiben – genau so, wie es auch bei einer als Ausdruck verwendeten Domänenfunktion geschehen würde. Der Ablauf sieht für alle zwölf Domänenfunktionen ähnlich aus:<\/p>\n [<\/p>\n Listing 2: Prozedur, welche die Parameter in Ergebnisse umwandelt<\/span><\/b><\/p>\n Anschließend folgt eine Select Case<\/b>-Bedingung, die prüft, ob der deutsche Ausdruck oder die englische VBA-Funktion ausgegeben werden soll. Der erste Teil weist jeweils dem rechten Textfeld die Funktion zu. Diese setzen wir aus dem Funktionsaufruf und den in Klammern eingefassten Parametern zusammen, die wir den drei Steuerelementen cboDomaene<\/b>, txtAusdruck <\/b>und txtKriterium <\/b>entnehmen – hier am Beispiel der Funktion DomAnzahl <\/b>(DCount<\/b>):<\/p>\n Für die VBA-Funktion sieht der zusammengestellte Ausdruck nur wenig anders aus.<\/p>\n Die beiden Unterschiede sind die englische statt der deutschen Bezeichnung und die Verwendung des Kommas statt des Semikolons als Trennzeichen:<\/p>\n Nach dem Laden sehen die Werte der drei oberen Steuerelemente wie in Bild 4 aus.<\/p>\n Bild 4: Anzeige nach dem Laden des Assistenten<\/span><\/b><\/p>\n Nach dem Initialisieren zeigt das Formular also die erste Abfrage oder Tabelle nach alphabetischer Sortierung an sowie die Ergebnisse der einzelnen Domänenfunktionen samt Definition.<\/p>\n Die Ergebnisse und Definitionen sollen nun direkt bei Änderung durch den Benutzer aktualisiert werden, unmittelbar nach der Eingabe eines jeden Zeichens. Dazu nutzen wir das Ereignis Bei Änderung <\/b>der verschiedenen Steuerelemente.<\/p>\n Für das Textfeld txtAusdruck <\/b>fügen wir folgende Prozedur hinzu, welche wieder die Prozedur UpdateControls <\/b>aufruft. Um den aktuell im Textfeld angezeigten Text mit dem ersten Parameter zu übergeben, verwenden wir dessen Text<\/b>-Eigenschaft. Anderenfalls würde nämlich nur der gespeicherte Wert übergeben, aber wir wollen ja den aktuell eingegebenen Wert:<\/p>\n Eine ähnliche Ereignisprozedur hinterlegen wir für das Textfeld txtKriterium<\/b>. Der Unterschied ist, dass wir hier die Text<\/b>-Eigenschaft von txtKriterium <\/b>als dritten Wert übergeben und den Wert von txtAusdruck <\/b>als ersten:<\/p>\n Für das Kombinationsfeld zur Eingabe der Tabelle oder Abfrage hinterlegen wir gleich zwei Ereignisprozeduren.<\/p>\n Die erste wird ebenfalls bei Änderungen am enthaltenen Text ausgelöst:<\/p>\n Die zweite wird aufgerufen, wenn der Benutzer einen neuen Eintrag im Kombinationsfeld auswählt. Sie ist etwas umfangreicher, da wir hier erneut auch das erste Feld dieser Tabelle oder Abfrage auslesen, um dieses direkt im Textfeld txtAusdruck<\/b> anzuzeigen (siehe Listing 3).<\/p>\n Listing 3: Prozedur, die nach dem Auswählen einer neuen Tabelle oder Abfrage ausgewählt wird<\/span><\/b><\/p>\n Schließlich aktualisieren wir den Inhalt noch, wenn der Benutzer zwischen den Zielen Ausdruck <\/b>und VBA <\/b>wechselt:<\/p>\n Wenn man schon einen Assistenten zum Zusammenstellen von Domänenfunktionen nutzt, hat man vielleicht nicht alle Feldnamen, die man im Ausdruck und im Kriterium einsetzen möchte, im Kopf und möchte diese auch nicht nachschlagen.<\/p>\n Also fügen wir noch eine Funktion hinzu, mit der wir ein Kontextmenü anzeigen können, wenn der Benutzer mit der rechten Maustaste in eines der Textfelder txtAusdruck <\/b>oder txtKriterium <\/b>klickt.<\/p>\n Dazu nutzen wir das Ereignis Bei Maustaste ab <\/b>der beiden Textfelder, die wir mit dem Aufruf der gleichen Funktion füllen. Dabei übergeben wir als ersten Parameter den Wert des Parameters Button<\/b> und als zweiten den Namen des aufrufenden Textfeldes. Der Parameter Button <\/b>enthält einen Wert, der angibt, welche Maustaste der Benutzer angeklickt hat:<\/p>\n Die hier aufgerufene Prozedur Kontextmenue <\/b>erwartet genau diese beiden Parameter (siehe Listing 4).<\/p>\n![\"Auswahl](\"..\/fileadmin\/_temp_\/2024_01\/pic_1485_002.png\")
<\/p>\nProgrammierung des Formulars<\/h2>\n
![\"Entwurfsansicht](\"..\/fileadmin\/_temp_\/2024_01\/pic_1485_003.png\")
<\/p>\nPrivate Sub <\/span>Form_Load()\r\n Dim <\/span>db As <\/span>DAO.Database, rstDomaene As <\/span>DAO.Recordset\r\n Dim <\/span>strDomaenen As String<\/span>, strAusdruck As String<\/span>\r\n Dim <\/span>bolHinzufuegen As Boolean<\/span>\r\n Dim <\/span>qdf As <\/span>DAO.QueryDef, tdf As <\/span>DAO.TableDef\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rstDomaene = db.OpenRecordset(\"SELECT Name, Type FROM MSysObjects WHERE Type IN (1,4,5,6) AND NOT Name \" _\r\n & \"LIKE ''f_*'' AND NOT Name LIKE ''MSys*'' AND NOT Name LIKE ''USys*'' AND NOT Name LIKE ''~*'' ORDER BY Name\", _\r\n dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rstDomaene.EOF\r\n Select Case rstDomaene!Type\r\n Case <\/span>1, 4, 6\r\n bolHinzufuegen = True<\/span>\r\n Case <\/span>5\r\n Set<\/span> qdf = db.QueryDefs(rstDomaene!Name)\r\n On Error Resume Next<\/span>\r\n If <\/span>qdf.Parameters.Count = 0 Then<\/span>\r\n bolHinzufuegen = True<\/span>\r\n Else<\/span>\r\n bolHinzufuegen = False<\/span>\r\n End If<\/span>\r\n If <\/span>Not<\/span> Err.Number = 0 Then<\/span>\r\n bolHinzufuegen = False<\/span>\r\n End If<\/span>\r\n On Error GoTo<\/span> 0\r\n End Select<\/span>\r\n If <\/span>bolHinzufuegen Then<\/span>\r\n If <\/span>Len<\/span>(strAusdruck) = 0 Then<\/span>\r\n Select Case rstDomaene!Type\r\n Case <\/span>1, 4, 6\r\n Set<\/span> tdf = db.TableDefs(rstDomaene.Fields(0))\r\n strAusdruck = tdf.Fields(0).Name\r\n Case <\/span>5\r\n Set<\/span> qdf = db.QueryDefs(rstDomaene.Fields(0))\r\n strAusdruck = qdf.Fields(0).Name\r\n End Select<\/span>\r\n End If<\/span>\r\n strDomaenen = strDomaenen & \"\"\"\" & rstDomaene!Name & \"\"\";\"\r\n End If<\/span>\r\n rstDomaene.MoveNext<\/span>\r\n Loop<\/span>\r\n Me!cboDomaene.RowSource = strDomaenen\r\n Me!cboDomaene = Me.cboDomaene.ItemData(0)\r\n Me!txtAusdruck = \"[\" & strAusdruck & \"]\"\r\n Me!txtKriterium = \"\"\r\n Me!ogrZiel = 1\r\n UpdateControls Nz(Me!txtAusdruck, \"\"), Nz(Me!cboDomaene, \"\"), Nz(Me!txtKriterium, \"\")\r\nEnd Sub<\/span><\/pre>\nAktualisieren der Steuerelemente<\/h2>\n
Private Sub <\/span>UpdateControls(strAusdruck As String<\/span>, strDomaene As String<\/span>, strKriterium As String<\/span>)\r\n On Error Resume Next<\/span>\r\n Me!txtDCount = DCount(strAusdruck, strDomaene, strKriterium)\r\n If <\/span>Not<\/span> Err.Number = 0 Then<\/span>\r\n Me!txtDCount = \"#Fehler\"\r\n End If<\/span>\r\n ...\r\n Me!txtDLookup = DLookup(strAusdruck, strDomaene, strKriterium)\r\n If <\/span>Not<\/span> Err.Number = 0 Then<\/span>\r\n Me!txtDLookup = \"#Fehler\"\r\n End If<\/span>\r\n On Error GoTo<\/span> 0\r\n Select Case ogrZiel\r\n Case <\/span>1\r\n Me!txtDCountCall<\/span> = \"=DomAnzahl(\"\"\" & strAusdruck & \"\"\";\"\"\" & strDomaene & _\r\n IIf(Len<\/span>(strKriterium) = 0, \"\", \"\"\";\"\"\" & strKriterium) & \"\"\")\"\r\n Me!txtDFirstCall<\/span> = \"=DomErsterWert(\"\"\" & strAusdruck & \"\"\";\"\"\" & strDomaene & _\r\n IIf(Len<\/span>(strKriterium) = 0, \"\", \"\"\";\"\"\" & strKriterium) & \"\"\")\"\r\n Me!txtDLastCall<\/span> = \"=DomLetzterWert(\"\"\" & strAusdruck & \"\"\";\"\"\" & strDomaene & _\r\n IIf(Len<\/span>(strKriterium) = 0, \"\", \"\"\";\"\"\" & strKriterium) & \"\"\")\"\r\n Me!txtDMaxCall<\/span> = \"=DomMax(\"\"\" & strAusdruck & \"\"\";\"\"\" & strDomaene & _\r\n IIf(Len<\/span>(strKriterium) = 0, \"\", \"\"\";\"\"\" & strKriterium) & \"\"\")\"\r\n Me!txtDMinCall<\/span> = \"=DomMin(\"\"\" & strAusdruck & \"\"\";\"\"\" & strDomaene & _\r\n IIf(Len<\/span>(strKriterium) = 0, \"\", \"\"\";\"\"\" & strKriterium) & \"\"\")\"\r\n Me!txtDAvgCall<\/span> = \"=DomMittelwert(\"\"\" & strAusdruck & \"\"\";\"\"\" & strDomaene & _\r\n IIf(Len<\/span>(strKriterium) = 0, \"\", \"\"\";\"\"\" & strKriterium) & \"\"\")\"\r\n ...\r\n Me!txtDLookupCall<\/span> = \"=DomWert(\"\"\" & strAusdruck & \"\"\";\"\"\" & strDomaene & _\r\n IIf(Len<\/span>(strKriterium) = 0, \"\", \"\"\";\"\"\" & strKriterium) & \"\"\")\"\r\n Case <\/span>2\r\n Me!txtDCountCall<\/span> = \"DCount(\"\"\" & strAusdruck & \"\"\",\"\"\" & strDomaene & _\r\n IIf(Len<\/span>(strKriterium) = 0, \"\", \"\"\",\"\"\" & strKriterium) & \"\"\")\"\r\n Me!txtDFirstCall<\/span> = \"DFirst(\"\"\" & strAusdruck & \"\"\",\"\"\" & strDomaene & _\r\n IIf(Len<\/span>(strKriterium) = 0, \"\", \"\"\",\"\"\" & strKriterium) & \"\"\")\"\r\n Me!txtDLastCall<\/span> = \"DLast(\"\"\" & strAusdruck & \"\"\",\"\"\" & strDomaene & _\r\n IIf(Len<\/span>(strKriterium) = 0, \"\", \"\"\",\"\"\" & strKriterium) & \"\"\")\"\r\n Me!txtDMaxCall<\/span> = \"DMax(\"\"\" & strAusdruck & \"\"\",\"\"\" & strDomaene & _\r\n IIf(Len<\/span>(strKriterium) = 0, \"\", \"\"\",\"\"\" & strKriterium) & \"\"\")\"\r\n Me!txtDMinCall<\/span> = \"DMin(\"\"\" & strAusdruck & \"\"\",\"\"\" & strDomaene & _\r\n IIf(Len<\/span>(strKriterium) = 0, \"\", \"\"\",\"\"\" & strKriterium) & \"\"\")\"\r\n Me!txtDAvgCall<\/span> = \"DAvg(\"\"\" & strAusdruck & \"\"\",\"\"\" & strDomaene & _\r\n IIf(Len<\/span>(strKriterium) = 0, \"\", \"\"\",\"\"\" & strKriterium) & \"\"\")\"\r\n ...\r\n Me!txtDLookupCall<\/span> = \"DLookup(\"\"\" & strAusdruck & \"\"\",\"\"\" & strDomaene _\r\n & IIf(Len<\/span>(strKriterium) = 0, \"\", \"\"\",\"\"\" & strKriterium) & \"\"\")\"\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nMe!txtDCount = DCount(strAusdruck, strDomaene, strKriterium)\r\nIf <\/span>Not<\/span> Err.Number = 0 Then<\/span>\r\n Me!txtDCount = \"#Fehler\"\r\nEnd If<\/span><\/pre>\nMe!txtDCountCall<\/span> = \"DomAnzahl(\" & strAusdruck & \";\" _\r\n & strDomaene & IIf(Len<\/span>(strKriterium) = 0, \"\", \";\" _\r\n & strKriterium) & \")\"<\/pre>\nMe!txtDCountCall<\/span> = \"DCount(\" & strAusdruck & \",\" _\r\n & strDomaene & IIf(Len<\/span>(strKriterium) = 0, \"\", \",\" _\r\n & strKriterium) & \")\"<\/pre>\n![\"Anzeige](\"..\/fileadmin\/_temp_\/2024_01\/pic_1485_004.png\")
<\/p>\nAktualisieren der Funktionen bei Eingabe<\/h2>\n
Private Sub <\/span>txtAusdruck_Change()\r\n UpdateControls Me!txtAusdruck.Text, _\r\n Nz(Me!cboDomaene, \"\"), Nz(Me!txtKriterium, \"\")\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>txtKriterium_Change()\r\n UpdateCalls Nz(Me!txtAusdruck, \"\"), _\r\n Nz(Me!cboDomaene, \"\"), Me!txtKriterium.Text\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cboDomaene_Change()\r\n UpdateControls Me!txtAusdruck, Me!cboDomaene.Text, _\r\n Nz(Me!txtKriterium, \"\")\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cboDomaene_AfterUpdate()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>qdf As <\/span>DAO.QueryDef\r\n Dim <\/span>tdf As <\/span>DAO.TableDef\r\n Dim <\/span>rstDomaene As <\/span>DAO.Recordset\r\n Dim <\/span>strAusdruck As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rstDomaene = db.OpenRecordset(\"SELECT Name, Type FROM MSysObjects WHERE Name = ''\" & Me!cboDomaene & \"''\", _\r\n dbOpenDynaset)\r\n Select Case rstDomaene!Type\r\n Case <\/span>1, 4, 6\r\n Set<\/span> tdf = db.TableDefs(rstDomaene.Fields(0))\r\n strAusdruck = tdf.Fields(0).Name\r\n Case <\/span>5\r\n Set<\/span> qdf = db.QueryDefs(rstDomaene.Fields(0))\r\n strAusdruck = qdf.Fields(0).Name\r\n End Select<\/span>\r\n Me!txtAusdruck = strAusdruck\r\n UpdateControls Me!txtAusdruck, Nz(Me!cboDomaene, \"\"), Nz(Me!txtKriterium, \"\")\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>ogrZiel_AfterUpdate()\r\n UpdateControls Nz(Me!txtAusdruck, \"\"), _\r\n Nz(Me!cboDomaene, \"\"), Nz(Me!txtKriterium, \"\")\r\nEnd Sub<\/span><\/pre>\nFelder per Kontextmenü einfügen<\/h2>\n
Private Sub <\/span>txtAusdruck_MouseDown(Button As Integer<\/span>, _\r\n Shift As Integer<\/span>, X As Single<\/span>, Y As Single<\/span>)\r\n Kontextmenue Button, \"txtAusdruck\"\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>txtKriterium_MouseDown(Button As Integer<\/span>, _\r\n Shift As Integer<\/span>, X As Single<\/span>, Y As Single<\/span>)\r\n Kontextmenue Button, \"txtKriterium\"\r\nEnd Sub<\/span><\/pre>\nPublic Sub <\/span>Kontextmenue(Button As Integer<\/span>, strSteuerelement As String<\/span>)\r\n Dim <\/span>cbr As <\/span>CommandBar\r\n Dim <\/span>cbb As <\/span>CommandBarButton\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>fld As <\/span>DAO.Field\r\n Dim <\/span>tdf As <\/span>DAO.TableDef\r\n Dim <\/span>qdf As <\/span>DAO.QueryDef\r\n Dim <\/span>strDomaene As String<\/span>\r\n Dim <\/span>lngSelStart As Long<\/span>\r\n Dim <\/span>lngSelLength As Long<\/span>\r\n Dim <\/span>lngIndex As Long<\/span>\r\n If <\/span>Button = acRightButton Then<\/span>\r\n strDomaene = Nz(Me!cboDomaene, \"\")\r\n Set<\/span> db = CurrentDb\r\n lngSelStart = Me.Controls(strSteuerelement).SelStart\r\n lngSelLength = Me.Controls(strSteuerelement).SelLength\r\n If db.OpenRecordset(\"SELECT Name FROM MSysObjects WHERE Type IN (1,4,6) AND Name = ''\" _\r\n & strDomaene & \"''\").RecordCount = 1 Then\r\n Set<\/span> tdf = db.TableDefs(strDomaene)\r\n Set<\/span> cbr = CommandBars(\"Form View Control\")\r\n cbr.Reset\r\n For Each fld In tdf.Fields\r\n lngIndex = lngIndex + 1\r\n Set<\/span> cbb = cbr.Controls.Add(msoControlButton, , , lngIndex, True<\/span>)\r\n With<\/span> cbb\r\n .Caption = \"[\" & fld.Name & \"]\"\r\n .OnAction = \"=FeldEinfuegen(\"\"\" & strSteuerelement & \"\"\", \"\"[\" & fld.Name & \"]\"\", \" & lngSelStart _\r\n & \", \" & lngSelLength & \")\"\r\n End With<\/span>\r\n Next<\/span> fld\r\n Else<\/span>If db.OpenRecordset(\"SELECT Name FROM MSysObjects WHERE Type IN (5) AND Name = ''\" & strDomaene _\r\n & \"''\").RecordCount = 1 Then\r\n Set<\/span> qdf = db.QueryDefs(strDomaene)\r\n Set<\/span> cbr = CommandBars(\"Form View Control\")\r\n cbr.Reset\r\n For Each fld In qdf.Fields\r\n lngIndex = lngIndex + 1\r\n Set<\/span> cbb = cbr.Controls.Add(msoControlButton, , , lngIndex, True<\/span>)\r\n With<\/span> cbb\r\n .Caption = \"[\" & fld.Name & \"]\"\r\n .OnAction = \"=FeldEinfuegen(\"\"\" & strSteuerelement & \"\"\", \"\"[\" & fld.Name & \"]\"\", \" & lngSelStart _\r\n & \", \" & lngSelLength & \")\"\r\n End With<\/span>\r\n Next<\/span> fld\r\n End If<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n