<\/p>\n
Normalerweise legen ein Textfeld an, in das Sie einen Suchbegriff eingeben und die Daten dann in einem oder mehreren Feldern nach diesem Suchbegriff durchsuchen. Oder Sie haben mehrere Suchfelder etwa für Vorname, Nachname et cetera. Dieser Beitrag stellt ein Suchsteuerelement vor, mit dem Sie gezielt nach den Inhalten verschiedener Felder gleichzeitig suchen können. Dabei gibt es mehrere Vorlagen, die vorab festgelegt werden und die der Benutzer dann einstellt, um die Suchbegriffe einzugeben.<\/b><\/p>\nVorbereitung<\/h2>\n
Als Vorbereitung statten wir eine Beispieldatenbank mit den Tabellen der Datenbank Suedsturm <\/b>aus, von der wir vor allem die Tabelle tblKunden <\/b>benötigen.<\/p>\n
Danach erstellen wir ein Unterformular namens sfmKunden<\/b>, dessen Eigenschaften Datensatzquelle <\/b>wir mit der Tabelle tblKunden <\/b>füllen. Danach ziehen wir alle Felder dieser Tabelle aus der Feldliste in den Detailbereich der Entwurfsansicht. Stellen Sie die Eigenschaft Standardansicht <\/b>auf den Wert Datenblatt <\/b>ein und speichern und schließen Sie das Formular.<\/p>\n
Anschließend erstellen wir ein weiteres Formular namens frmKundenEinfacheSuche<\/b>. Diesem fügen wir ein Kombinationsfeld namens cboEinfacheSuche <\/b>hinzu. Darunter fügen wir das Unterformular ein, indem wir das Formular sfmKunden <\/b>aus dem Navigationsbereich in den Formularentwurf ziehen. Für dieses Steuer-element stellen wir die beiden Eigenschaften Horizontaler Anker <\/b>und Vertikaler Anker <\/b>auf den Wert Beide <\/b>ein. Das Ergebnis sieht wie in Bild 1 aus.<\/p>\n
![\"Suchkombinationsfeld](\"..\/fileadmin\/_temp_\/2019_01\/pic_1178_001.png\")
<\/p>\n
Bild 1: Suchkombinationsfeld und Unterformular<\/span><\/b><\/p>\n Zum Warmwerden bauen wir eine einfache Suchfunktion ein, die nur die Datensätze des Feldes Firma <\/b>nach dem eingegebenen Begriff durchsucht. Diese soll durch das Betätigen der Eingabetaste nach der Eingabe des Suchbegriffs beziehungsweise beim Verlassen des Kombinationsfeldes cboEinfacheSuche <\/b>ausgelöst werden. Dafür ist das Ereignis Nach Aktualisierung <\/b>verantwortlich, für das wir die folgende Ereignisprozedur hinterlegen:<\/p>\n Diese einfache Suche liest den Inhalt des Kombinationsfeldes in die Variable strVergleichs-ausdruck <\/b>ein, wobei der Benutzer Platzhalter wie das Sternchen (*<\/b>) selbst eingeben muss. Dann prüft die Prozedur, ob die Länge des in strVergleichsausdruck <\/b>enthaltenen Strings größer als 0 <\/b>ist. Falls ja, wird dieser zu einem Filterausdruck wie Firma LIKE ““ Bild 2: Die einfache Suche in Aktion<\/span><\/b><\/p>\n Nun wollen wir uns dem gewünschten Ergebnis annähern. Wir wollen ja Vergleichsausdrücke für mehrere Felder gleichzeitig eingeben können. Dazu fügen wir dem Formular ein weiteres Kombinationsfeld namens cboFirmaUndKontaktpersonFiltern <\/b>hinzu.<\/p>\n Das Ergebnis nun soll sein, dass wir zwei durch Komma getrennte Vergleichswerte für das Feld Firma <\/b>und das Feld Kontaktperson <\/b>eingeben können und dass die beiden Felder dann nach diesen beiden Ausdrücken gefiltert werden. Das Ergebnis soll dann etwa wie in aussehen, wo wir alle Kunden ermitteln wollen, bei denen sowohl die Firma als auch der Name der Kontaktperson mit A <\/b>beginnt (siehe Bild 3).<\/p>\n Bild 3: Suche nach zwei Begriffen in zwei Feldern<\/span><\/b><\/p>\n Wie sieht nun die Prozedur aus, die durch das Ereignis Nach Aktualisierung <\/b>des Kombinationsfeldes cboFirmaUndKontaktpersonFiltern <\/b>ausgelöst wird Diese beginnt ähnlich wie die vorherige Prozedur – mit der Ausnahme, dass wir ein paar weitere Variablen deklarieren:<\/p>\n Enthält die Variable strVergleichsausdruck <\/b>einen Wert, weisen wir der Variablen strFirma <\/b>den Teil aus strVergleichsausdruck <\/b>bis zum ersten Leerzeichen zu und stellen den ersten Teil des Filterausdrucks in strFilter <\/b>zusammen:<\/p>\n Dann prüfen wir in einer If<\/b>-Bedingung, ob strVergleichsausdruck <\/b>noch einen zweiten Vergleichswert enthält. Dazu schauen wir, ob sich darin ein Leerzeichen befindet. Ist das der Fall, können wir auf den zweiten Wert des mit der Split<\/b>-Funktion ermittelten Arrays zugreifen und diesen in der Variablen strKontaktperson <\/b>speichern:<\/p>\n Danach aktivieren wir wie gehabt den Filter für diesen Filterausdruck:<\/p>\n Nun weiß der Benutzer im Gegensatz zu uns allerdings nicht, wie man die Suchbegriffe in das Textfeld eingeben muss, damit es das gewünschte Ergebnis liefert. Deshalb fügen wir nun eine Vorlage zum Kombinationsfeld hinzu, anhand derer der Benutzer erkennen kann, welche Daten er dort eingeben kann. Dazu stellen wir das Kombinationsfeld mit dem Wert Wertliste <\/b>für die Eigenschaft Herkunftsart <\/b>auf die Anzeige einer Wertliste um. Diese geben wir wie folgt für die Eigenschaft Datensatzherkunft <\/b>an:<\/p>\n Damit das Kombinationsfeld diesen Eintrag nun auch anzeigt, wählen wir gleich beim Laden des Formulars den ersten Eintrag des Kombinationsfeldes aus. Dazu hinterlegen wir die folgende Anweisung für das Ereignis Beim Laden <\/b>des Formulars:<\/p>\n Wenn der Benutzer den Fokus auf das Kombinationsfeld verschiebt, soll der Inhalt komplett angezeigt werden. Auf diese Weise kann der Benutzer dann gleich mit der Eingabe des Suchbegriffs beziehungsweise der Suchbegriffe beginnen. Dazu stellen wir den Wert der Eigenschaft SelStart <\/b>des Kombinationsfeldes auf 0 <\/b>ein und den Wert der Eigenschaft SelLength <\/b>auf 999<\/b>. Das erledigen wir in der Ereignisprozedur, die durch das Ereignis Bei Fokuserhalt <\/b>des Kombinationsfeldes ausgelöst wird:<\/p>\n Das Ergebnis beim Anzeigen des Formulars sieht nun wie in Bild 4 aus.<\/p>\n Bild 4: Anzeige des Schemas für den Suchbegriff<\/span><\/b><\/p>\n Wenn wir nun die zwei gewünschten Suchbegriffe eingeben, erhalten wir das gleiche Ergebnis wie im vorherigen Beispiel.<\/p>\n Nun möchte der Benutzer sicher nicht nur nach der Kombination aus Firma <\/b>und Kontaktperson <\/b>suchen, sondern vielleicht auch einmal nach Kunden-Code <\/b>und Firma <\/b>oder Kunden-Code <\/b>und Kontaktperson<\/b>. Damit wird die Lösung nun interessant, denn wir müssen uns überlegen, wie wir mehrere Varianten behandeln.<\/p>\n Die grundlegende Idee ist, dass wir die verschiedenen Kombinationen alle im Kombinationsfeld zur Auswahl anbieten und dass der gewünschte Eintrag einfach per Nach oben<\/b>– und Nach unten<\/b>-Taste angesteuert werden kann. Außerdem wollen wir nicht für jede neue Kombination die Eigenschaft Datensatzherkunft <\/b>des Kombinationsfeldes ändern und schon gar nicht jedes Mal den Code für die neue Kombination anpassen.<\/p>\n Also überlegen wir uns, wie wir das Ganze etwas flexibler handhaben können. Die erste Idee ist, die verschiedenen Kombinationen plus die beteiligten Felder in einer Tabelle zu hinterlegen, aus der das Kombinationsfeld dann seine Daten zur Auswahl bezieht.<\/p>\n Diese Tabelle könnte im Entwurf etwa wie in Bild 5 aussehen.<\/p>\n Bild 5: Entwurf der Tabelle für die Kombinationen<\/span><\/b><\/p>\n Das Feld Kombination <\/b>nimmt den anzuzeigenden Platzhalter an, also etwa [Firma] [Kontaktperson]<\/b>. Die Felder Feld1<\/b>, Feld2 <\/b>und Feld3 <\/b>nehmen die einzelnen Namen der Felder, die durchsucht werden sollen, auf. Damit ist auch klar, dass wir die Anzahl der zu durchsuchenden Felder auf drei begrenzen wollen.<\/p>\n Das Feld Formularname <\/b>soll den Namen des Formulars aufnehmen, in dem diese Kombination zum Einsatz kommt. Auf diese Weise können wir Kombinationen für verschiedene Formulare speichern. Für die beiden Felder Kombination und Formularname haben wir einen eindeutigen, zusammengesetzten Index hinterlegt, damit jede Kombination nur einmal je Formular angezeigt werden kann.<\/p>\n Wir hinterlegen zunächst einige Kombinationen wie in Bild 6 in der Tabelle tblKombinationen<\/b>.<\/p>\n Bild 6: Beispielkombinationen in der Tabelle tblKombinationen<\/span><\/b><\/p>\n Nun fügen wir dem Formular ein neues Kombinationsfeld namens cboSuchkombinationen <\/b>hinzu.<\/p>\n Diese verwendet als Herkunftstyp <\/b>wieder Tabelle\/Abfrage <\/b>und zwar eine Abfrage, die wie in Bild 7 aussieht und alle Felder der Tabelle tblKombinationen <\/b>enthält. Für das Feld Kombination <\/b>legen wir eine aufsteigende Reihenfolge fest, für das Feld Formularname <\/b>den Namen unseres Formulars als Parameter. Wir wollen wieder in der Ereignisprozedur für das Ereignis Beim Laden <\/b>des Formulars das Kombinationsfeld auf den ersten Eintrag einstellen:<\/p>\n Bild 7: Datensatzherkunft des Formulars zur Eingabe der Suchkombinationen<\/span><\/b><\/p>\n Wenn wir das Formular nun öffnen und das Kombinationsfeld aufklappen, sieht dies wie in Bild 8 aus.<\/p>\n Bild 8: Kombinationsfeld mit Suchkombinationen<\/span><\/b><\/p>\n Wir wollen nun zunächst die Auswahl nur über das Aufklappen uns Selektieren eines Eintrags erledigen – um das Auswählen mit der Nach oben<\/b>– und der Nach unten<\/b>-Taste kümmern wir uns später.<\/p>\n Das erste Problem, dem wir uns ausgesetzt sehen, ist die Meldung, die beim Eingeben eines neuen Wertes in das Kombinationsfeld erscheint und die wie in Bild 9 aussieht.<\/p>\n Bild 9: Meldung nach Bestätigung der Eingabe des Suchbegriffs<\/span><\/b><\/p>\n Die Meldung ist logisch: Wenn wir in ein Kombinationsfeld, das an eine Datensatzherkunft gebunden ist, einen neuen Wert eingeben und die Eingabe abschließen, prüft Access, ob der eingegebene Eintrag bereits vorhanden ist.<\/p>\n Um diese Meldung zu umgehen, nutzen wir das Ereignis Bei nicht in Liste<\/b>. Hier wollen wir einfach dafür sorgen, dass die Meldung nicht angezeigt wird, was wir durch Einstellen des Wertes acDataErrAdded<\/b> für den Parameter Response <\/b>erledigen:<\/p>\n Dies führt aber auch nicht zu einem zufriedenstellenden Ergebnis, wie Bild 10 zeigt – wir können keinen neuen Wert eingeben und das Kombinationsfeld verlassen.<\/p>\n Bild 10: Der neue Eintrag kann nicht ohne weiteres eingegeben werden.<\/span><\/b><\/p>\n Beim vorherigen Beispiel, bei dem wir die Vorlage für die Suche als Element einer Wertliste zum Kombinationsfeld hinzugefügt haben, war dies jedoch problemlos möglich. Also kehren wir doch zum Ansatz mit der Wertliste zurück. Allerdings füllen wir diese Wertliste beim Anzeigen des Formulars per VBA-Code. Zunächst stellen wir jedoch den Wert der Eigenschaft Herkunftsart <\/b>wieder auf Wertliste <\/b>ein. Danach erweitern wir die Ereignisprozedur, die durch das Ereignis Beim Laden <\/b>des Formulars ausgelöst wird, wie in Listing 1. Hier erstellen wir einen Verweis auf das aktuelle Database<\/b>-Objekt und öffnen ein Recordset auf Basis der Tabelle tblKombinationen<\/b>, wobei wir wieder nur die Einträge berücksichtigen, die zum aktuell geöffneten Formular gehören. Dann durchlaufen wir alle Datensätze dieses Recordsets und fügen für jeden durch Semikola separiert die Werte der Felder KombinationID<\/b>, Kombination<\/b>, Feld1<\/b>, Feld2 <\/b>und Feld3 <\/b>hinzu. Falls die Zeichenkette nicht leer ist, schneiden wir dann das führende Semikolon ab, sodass eine Zeichenkette wie folgt entsteht:<\/p>\n <\/p>\n Listing 1: Zusammenstellen der Suchkombinationen beim Laden des Formulars<\/span><\/b><\/p>\n Diesen Ausdruck weisen wir nun der Eigenschaft RowSource <\/b>des Kombinationsfeldes zu. Die Eigenschaft Spaltenanzahl <\/b>des Kombinationsfeldes stellen wir auf den Wert 5 <\/b>ein, die Eigenschaft Spaltenbreiten <\/b>auf 0cm;;0cm;0cm;0cm<\/b>. Dadurch werden alle Spalten mit Ausnahme der Spalte mit der Kombination mit der Breite 0cm <\/b>angezeigt beziehungsweise ausgeblendet.<\/p>\n Das Ergebnis nach der Eingabe eines Suchbegriffs statt des Platzhalters ist noch immer nicht befriedigend. Nun erscheint nämlich der Dialog Listenelemente bearbeiten <\/b>aus Bild 11. Warum aber hat es im vorherigen Kombinationsfeld einfach so geklappt Der Grund ist einfach: Weil wir dort die erste Spalte angezeigt und auch bearbeitet haben. In der aktuellen Version jedoch haben wir, genauso wie wir es bei einem gebundenen Kombinationsfeld machen würden, die erste Spalte mit dem Primärschlüsselwert ausgeblendet und die zweite Spalte angezeigt. Wir müssen also die anzuzeigenden Werte in die erste Spalte verlegen, dann gelingt es. Dazu verschieben wir die Spalte mit dem Primärschlüsselwert der Tabelle tblKombinationen <\/b>an die letzte Stelle der Wertliste. Damit die nun in die erste Spalte gerutschte Vorlage für die Kombination auch angezeigt wird, ändern wir den Wert der Eigenschaft Spaltenbreiten <\/b>wie folgt:<\/p>\n Bild 11: Beim Versuch, einen Suchbegriff einzugeben, erscheint dieser Dialog.<\/span><\/b><\/p>\n Auf diese Weise nimmt die erste Spalte die gesamte Breite ein. Außerdem passen wir die Reihenfolge in der Prozedur Form_Load <\/b>wie folgt an:<\/p>\n Dadurch landet die Spalte mit dem Primärschlüsselwert in der letzten Spalte des Listenfeldes. Durch diese änderung können wir die Ereignisprozedur für das Ereignis Bei nicht in Liste <\/b>wieder entfernen. Wir verwenden nun das Ereignis Nach Aktualisierung <\/b>des Kombinationsfeldes, um den Inhalt des Unterformulars entsprechend den angegebenen Filterkriterien zu filtern.<\/p>\n Wenn der Benutzer den oder die Suchbegriffe eingegeben hat, wollen wir folgendes tun:<\/p>\n Der erste Teil ist schon schwierig, denn: Sobald der Benutzer die Suchbegriffe in das Kombinationsfeld eingegeben hat und die Eingabe bestätigt, haben wir einen neuen Eintrag im Kombinationsfeld und können nicht mehr auf die Daten zugreifen, die zuvor ausgewählt waren. Wir müssen also bereits zuvor die benötigten Daten speichern – und nach jeder erneuten Auswahl einer der Kombinationen. Für welche Ereignisse müssen wir dies also durchführen Zum ersten Mal, wenn das Formular geöffnet wird, also etwa beim Ereignis Beim Laden<\/b>, und jedes weitere Mal, wenn der Benutzer eine der Suchkombinationen aus dem Formular auswählt, also für das Ereignis Nach Aktualisierung <\/b>des Kombinationsfeldes. Hier müssen wir dann prüfen, ob die Spalte mit dem Wert des Primärschlüsselfeldes einen Wert enthält – anderenfalls erfolgte die Aktualisierung durch die Eingabe eines oder mehrerer Suchbegriffe.<\/p>\n Beim öffnen des Formulars oder nach dem Aktualisieren des Kombinationsfeldes wollen wir die Inhalte der zweiten bis vierten Spalte in einigen Variablen speichern, die wir wie folgt im Kopf des Klassenmoduls deklarieren:<\/p>\n In der Funktion FelderEinlesen <\/b>wollen wir prüfen, ob das Kombinationsfeld cboSuchkombinationen <\/b>gerade einen der Einträge der Wertliste enthält oder die durch den Benutzer eingegebenen Suchbegriffe. Ersteres ist der Fall, wenn die vierte Spalte einen Wert enthält. Bei einer Benutzereingabe enthält diese Spalte den Wert Null<\/b>. In diesem Fall füllt die Nz<\/b>-Funktion die Variable lngKombinationID <\/b>mit dem Wert 0<\/b>, anderenfalls landet dort der Primärschlüsselwert des jeweiligen Eintrags. Ist lngKombinationID <\/b>danach nicht 0<\/b>, werden die Variablen strFeld1<\/b>, strFeld2 <\/b>und strFeld3 <\/b>mit den Werten der zweiten, dritten und vierten Spalte der Wertliste des Kombinationsfeldes gefüllt:<\/p>\n Den Aufruf dieser Funktion fügen wir an zwei Stellen ein. Als Erstes in der Ereignisprozedur Form_Load<\/b>:<\/p>\n Und dann in der Ereignisprozedur, die nach dem Aktualisieren des Kombinationsfeldes ausgelöst wird. Hier prüfen wir, ob der Benutzer gerade einen der Einträge mit den Kombinationen ausgewählt oder ob er Suchbegriffe eingegeben hat. Liefert die Funktion FelderEinlesen <\/b>den Wert 0<\/b>, handelt es sich um Suchbegriffe:<\/p>\n Dieses werden wir allerdings noch weiter aufbohren, indem wir die Stelle mit den drei Punkten (…) noch mit der Formulierung des Filters füllen.<\/p>\n Die Filterkriterien werden in der Prozedur zusammengestellt, die durch das Ereignis Nach Aktualisierung <\/b>des Kombinationsfeldes ausgelöst werden (siehe Listing 2). Hier deklarieren wir zunächst ein Array namens strVergleichswerte <\/b>sowie zwei weitere String<\/b>-Variablen.<\/p>\n Listing 2: Zusammenstellen des Filterausdrucks für flexible Suchfelder<\/span><\/b><\/p>\n Dann rufen wir, wie bereits oben gesehen, die Funktion FelderEinlesen <\/b>auf. Nur wenn diese den Wert 0 <\/b>zurückliefert, hat der Benutzer die Filterkriterien eingegeben. In diesem Fall tragen wir den Inhalt des Kombinationsfeldes in das Array Einfache Suchfunktion<\/h2>\n
Private Sub <\/span>cboEinfacheSuche_AfterUpdate()\r\n Dim <\/span>strFilter As String<\/span>\r\n Dim <\/span>strVergleichsausdruck As String<\/span>\r\n strVergleichsausdruck = Nz(Me!cboEinfacheSuche, \"\")\r\n If <\/span>Len<\/span>(strVergleichsausdruck) > 0 Then<\/span>\r\n strFilter = \"Firma LIKE ''''\" _\r\n & strVergleichsausdruck & \"''''\"\r\n End If<\/span>\r\n With<\/span> Me!sfmKunden.Form\r\n .Filter = strFilter\r\n .FilterOn = True<\/span>\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Die](\"..\/fileadmin\/_temp_\/2019_01\/pic_1178_002.png\")
<\/p>\nZwei Vergleichsausdrücke für zwei Felder gleichzeitig<\/h2>\n
![\"Suche](\"..\/fileadmin\/_temp_\/2019_01\/pic_1178_003.png\")
<\/p>\nPrivate Sub <\/span>cboFirmaUndKontaktpersonFiltern_AfterUpdate()\r\n Dim <\/span>strFilter As String<\/span>\r\n Dim <\/span>strVergleichsausdruck As String<\/span>\r\n Dim <\/span>strFirma As String<\/span>\r\n Dim <\/span>strKontaktperson As String<\/span>\r\n strVergleichsausdruck = Nz(Me!cboFirmaUndKontaktpersonFiltern, \"\")<\/pre>\n If <\/span>Not<\/span> Len<\/span>(strVergleichsausdruck) = 0 Then<\/span>\r\n strFirma = Split<\/span>(strVergleichsausdruck, \" \")(0)\r\n strFilter = \"Firma LIKE ''''\" & strFirma & \"''''\"<\/pre>\n If <\/span>InStr<\/span>(1, strVergleichsausdruck, \" \") > 0 Then<\/span>\r\n strKontaktperson = Split<\/span>(strVergleichsausdruck, \" \")(1)\r\n strFilter = strFilter & \" AND Kontaktperson LIKE ''''\" & strKontaktperson & \"''''\"\r\n End If<\/span>\r\n End If<\/span><\/pre>\n With<\/span> Me!sfmKunden.Form\r\n .Filter = strFilter\r\n .FilterOn = True<\/span>\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\n\"[Firma] [Ansprechpartner]\"<\/pre>\n
Private Sub <\/span>Form_Load()\r\n Me!cboFirmaUndKontaktpersonFiltern = _\r\n Me!cboFirmaUndKontaktpersonFiltern.ItemData(0)\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cboFirmaUndKontaktpersonFiltern_GotFocus()\r\n Me!cboFirmaUndKontaktpersonFiltern.SelStart = 0\r\n Me!cboFirmaUndKontaktpersonFiltern.SelLength = 999\r\nEnd Sub<\/span><\/pre>\n![\"Anzeige](\"..\/fileadmin\/_temp_\/2019_01\/pic_1178_004.png\")
<\/p>\nVerschiedene Kombinationen für Suchbegriffe <\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2019_01\/pic_1178_005.png\")
<\/p>\n![\"Beispielkombinationen](\"..\/fileadmin\/_temp_\/2019_01\/pic_1178_006.png\")
<\/p>\nKombinationen im Kombinationsfeld anzeigen<\/h2>\n
![\"Datensatzherkunft](\"..\/fileadmin\/_temp_\/2019_01\/pic_1178_007.png\")
<\/p>\nPrivate Sub <\/span>Form_Load()\r\n Me!cboSuchkombinationen = _\r\n Me!cboSuchkombinationen.ItemData(0)\r\nEnd Sub<\/span><\/pre>\n![\"Kombinationsfeld](\"..\/fileadmin\/_temp_\/2019_01\/pic_1178_008.png\")
<\/p>\n![\"Meldung](\"..\/fileadmin\/_temp_\/2019_01\/pic_1178_009.png\")
<\/p>\nPrivate Sub <\/span>cboSuchkombinationen_NotInList( _\r\n NewData As String<\/span>, Response As Integer<\/span>)\r\n Response = acDataErrAdded\r\nEnd Sub<\/span><\/pre>\n![\"Der](\"..\/fileadmin\/_temp_\/2019_01\/pic_1178_010.png\")
<\/p>\nInhalt der Tabelle tblKombinationen in Wertliste einlesen<\/h2>\n
Private Sub <\/span>Form_Load()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>strRowSource As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblKombinationen WHERE Formularname = ''''\" & Me.Name _\r\n & \"'''' ORDER BY Kombination\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n strRowSource = strRowSource & \";\" & rst!KombinationID\r\n strRowSource = strRowSource & \";\" & rst!Kombination\r\n strRowSource = strRowSource & \";\" & rst!Feld1\r\n strRowSource = strRowSource & \";\" & rst!Feld2\r\n strRowSource = strRowSource & \";\" & rst!Feld3\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n If <\/span>Len<\/span>(strRowSource) > 0 Then<\/span>\r\n strRowSource = Mid<\/span>(strRowSource, 2)\r\n End If<\/span>\r\n Me!cboSuchkombinationen.RowSource = strRowSource\r\n Me!cboFirmaUndKontaktpersonFiltern = Me!cboFirmaUndKontaktpersonFiltern.ItemData(0)\r\n Me!cboSuchkombinationen = Me!cboSuchkombinationen.ItemData(0)\r\nEnd Sub<\/span><\/pre>\n5;[Firma];Firma;;;6;[Firma] [Kontaktperson];Firma;Kontaktperson;;7;[Kontaktperson];Kontaktperson;;;1;[KundenCode];KundenCode;;;2;[KundenCode] [Firma];KundenCode;Firma;;4;[KundenCode] [Firma] [Kontaktperson];KundenCode;Firma;Kontaktperson;3;[KundenCode] [Kontaktperson];KundenCode;Kontaktperson;<\/pre>\n
![\"Beim](\"..\/fileadmin\/_temp_\/2019_01\/pic_1178_011.png\")
<\/p>\n;0cm;0cm;0cm;0cm<\/pre>\n
...\r\nstrRowSource = strRowSource & \";\" & rst!Kombination\r\nstrRowSource = strRowSource & \";\" & rst!Feld1\r\nstrRowSource = strRowSource & \";\" & rst!Feld2\r\nstrRowSource = strRowSource & \";\" & rst!Feld3\r\nstrRowSource = strRowSource & \";\" & rst!KombinationID\r\n...<\/pre>\n
Vorbereitungen zum Zusammenstellen des Filters<\/h2>\n
\n
Dim <\/span>strFeld1 As String<\/span>\r\nDim <\/span>strFeld2 As String<\/span>\r\nDim <\/span>strFeld3 As String<\/span><\/pre>\nPrivate Function <\/span>FelderEinlesen() As Long<\/span>\r\n Dim <\/span>lngKombinationID As Long<\/span>\r\n lngKombinationID = _\r\n Nz(Me!cboSuchkombinationen.Column(4), 0)\r\n If <\/span>lngKombinationID > 0 Then<\/span>\r\n strFeld1 = Nz(Me!cboSuchkombinationen.Column(1), \"\")\r\n strFeld2 = Nz(Me!cboSuchkombinationen.Column(2), \"\")\r\n strFeld3 = Nz(Me!cboSuchkombinationen.Column(3), \"\")\r\n End If<\/span>\r\n FelderEinlesen = lngKombinationID\r\nEnd Function<\/span><\/pre>\nPrivate Sub <\/span>Form_Load()\r\n ...\r\n FelderEinlesen\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cboSuchkombinationen_AfterUpdate()\r\n If <\/span>FelderEinlesen = 0 Then<\/span>\r\n ...\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nFilterkriterien zusammenstellen<\/h2>\n
Private Sub <\/span>cboSuchkombinationen_AfterUpdate()\r\n Dim <\/span>strVergleichswerte() As String<\/span>\r\n Dim <\/span>intVergleichswerte As Integer<\/span>\r\n Dim <\/span>strFilter As String<\/span>\r\n If <\/span>FelderEinlesen = 0 Then<\/span>\r\n strVergleichswerte = Split<\/span>(Me!cboSuchkombinationen, \" \")\r\n intVergleichswerte = UBound<\/span>(strVergleichswerte) - LBound<\/span>(strVergleichswerte) + 1\r\n If <\/span>Len<\/span>(strFeld1) > 0 And intVergleichswerte > 0 Then<\/span>\r\n strFilter = strFeld1 & \" LIKE ''''\" & strVergleichswerte(0) & \"''''\"\r\n If <\/span>Len<\/span>(strFeld2) > 0 And intVergleichswerte > 1 Then<\/span>\r\n strFilter = strFilter & \" AND \" & strFeld2 & \" LIKE ''''\" & strVergleichswerte(1) & \"''''\"\r\n If <\/span>Len<\/span>(strFeld3) > 0 And intVergleichswerte > 2 Then<\/span>\r\n strFilter = strFilter & \" AND \" & strFeld3 & \" LIKE ''''\" & strVergleichswerte(2) & \"''''\"\r\n End If<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\n Me!lblInformationen.Caption = strFilter\r\n With<\/span> Me!sfmKunden.Form\r\n .Filter = strFilter\r\n .FilterOn = True<\/span>\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\n