![\"Das](\"..\/fileadmin\/_temp_\/2026_03\/pic_1603_001.png\")
<\/p>\nAccess bietet von Haus aus komfortable Möglichkeiten zum Filtern von Datensätzen – über das Ribbon, über das Dropdown-Menü im Spaltenkopf des Datenblatts oder über eigene Filtereigenschaften des Formulars. Diese Lösungen stoßen jedoch schnell an ihre Grenzen, sobald man komplexere Filterbedingungen kombinieren möchte oder dem Benutzer eine moderne, übersichtliche Filteroberfläche bieten will. Wir stellen in dieser zweiteiligen Beitragsreihe ein universell einsetzbares Filterformular vor, das sich mit wenigen Handgriffen in jedes bestehende Formular einbauen lässt. Im ersten Teil zeigen wir, wie das Filterformular eingebaut und bedient wird. Der zweite Teil beleuchtet die Programmierung hinter den Kulissen.<\/b><\/p>\nDer Ausgangspunkt: Ein Formular mit vielen Datensätzen<\/h2>\n
Bild 1 zeigt das Ausgangsformular frmDatenMitFilter<\/b> mit einer Kundentabelle – 100 Datensätze, dargestellt als Datenblatt in einem Unterformular. In der Kopfzeile des Formulars befindet sich die Schaltfläche Filtern<\/b>, die das Filterformular öffnet. Der Benutzer sieht zunächst alle Datensätze und kann über diese Schaltfläche jederzeit einen Filter setzen oder anpassen.<\/p>\n
<\/p>\n
Bild 1: Das Ausgangsformular mit 100 Kundendatensätzen und der Schaltfläche zum Öffnen des Filterformulars<\/span><\/b><\/p>\n Mit einem Klick auf Filtern<\/b> öffnet sich das Filterformular amvFilter<\/b> als schwebendes Popup-Fenster. Das Ausgangsformular bleibt dabei vollständig bedienbar im Hintergrund – der Benutzer kann das Filterformular verschieben, um die Datensätze im Hintergrund zu sehen.<\/p>\n Bild 2 zeigt das frisch geöffnete Filterformular. Es startet stets leer und kompakt: Eine einzige Filterzeile ist sichtbar, bestehend aus einem Kombinationsfeld für die Feldauswahl und einem noch deaktivierten Kombinationsfeld für die Bedingungsauswahl. Die Schaltflächen Zurücksetzen<\/b> und Filter anwenden<\/b> sind zunächst deaktiviert – sie werden erst aktiv wenn mindestens eine Filterbedingung ausgefüllt ist.<\/p>\n Bild 2: Das Filterformular startet leer – Schaltflächen sind noch deaktiviert<\/span><\/b><\/p>\n Das Filterformular passt seine Höhe stets automatisch an die Anzahl der aktiven Zeilen an. Es startet also bewusst klein und nimmt nur den Platz ein den es gerade benötigt.<\/p>\n Mit jeder neuen Eingabe wächst es um eine Zeile, beim Löschen einer Bedingung schrumpft es wieder.<\/p>\n Der erste Schritt beim Einrichten eines Filters ist die Auswahl des Feldes das gefiltert werden soll.<\/p>\n Bild 3 zeigt die aufgeklappte Feldauswahlliste: Das Filterformular liest beim Öffnen automatisch alle Felder des Recordsets aus dem aufrufenden Formular aus und zeigt sie hier an – in diesem Fall die Felder der Kundentabelle: KundeID<\/b>, Firma<\/b>, Vorname<\/b>, Nachname<\/b>, Strasse<\/b>, PLZ<\/b>, Ort<\/b>, Geburtsdatum<\/b>, Rating <\/b>und Aktiv<\/b>. Es ist keine manuelle Konfiguration der Felder notwendig.<\/p>\n Bild 3: Die Feldauswahlliste zeigt automatisch alle Felder des Recordsets an<\/span><\/b><\/p>\n Sobald der Benutzer ein Feld auswählt, passieren zwei Dinge gleichzeitig: Das Bedingungsfeld wird aktiviert und mit den für diesen Feldtyp passenden Vergleichsoperatoren befüllt, und darunter erscheint automatisch eine zweite leere Filterzeile.<\/p>\n Das Filterformular erkennt dabei selbstständig ob es sich um ein Text-, Zahlen-, Datums- oder Ja\/Nein-Feld handelt und bietet nur die jeweils sinnvollen Operatoren an.<\/p>\n Bild 4 zeigt die Bedingungsauswahl nachdem das Feld KundeID<\/b> gewählt wurde. Da es sich um ein Zahlenfeld handelt, stehen die Operatoren Gleich<\/b>, Nicht gleich<\/b>, Größer als<\/b>, Kleiner als<\/b>, Ist zwischen<\/b>, Ist leer<\/b> und Ist nicht leer<\/b> zur Verfügung.<\/p>\n Bild 4: Die Bedingungsauswahl zeigt nur die für den Feldtyp passenden Operatoren<\/span><\/b><\/p>\n Für Textfelder wären es andere Operatoren wie Enthält<\/b> oder Beginnt mit<\/b> – der Benutzer sieht immer nur die Optionen die für den gewählten Feldtyp tatsächlich sinnvoll sind.<\/p>\n Sobald eine Bedingung ausgewählt ist die einen Vergleichswert erfordert, erscheint rechts neben der Bedingungsauswahl automatisch ein Eingabefeld für den Wert. Bei Bedingungen wie Ist leer<\/b> oder Ist nicht leer<\/b> erscheint dagegen kein Eingabefeld – der Operator allein definiert bereits den vollständigen Filter.<\/p>\n Das Formular validiert Tastatureingaben in Echtzeit: In Eingabefelder für Zahlenwerte können nur Ziffern, Komma, Punkt und Minuszeichen eingegeben werden – alle anderen Zeichen werden stillschweigend abgewiesen.<\/p>\n Einen ersten Filter sehen wir in Bild 5: Hier haben wir das Feld KundeID<\/b> ausgewählt, als Bedingung Größer als<\/b> gesetzt und den Wert 95<\/b> eingestellt.<\/p>\n Bild 5: Der erste Filter ist gesetzt – von 100 Datensätzen bleiben 5 übrig<\/span><\/b><\/p>\n Darunter ist bereits eine zweite leere Zeile sichtbar, bereit für eine weitere Bedingung.<\/p>\n Die Schaltfläche ODER-Filtergruppe hinzufügen<\/b> ist erschienen, und Filter anwenden<\/b> ist nun aktiv. Ein Klick darauf überträgt den Filter sofort an das aufrufende Formular – im Hintergrund sieht man bereits die gefilterten Datensätze: von 100 Kunden bleiben 5 übrig, nämlich alle mit KundeID<\/b> größer als 95.<\/p>\n Das Filterformular bleibt nach dem Anwenden geöffnet. Der Benutzer kann es jederzeit anpassen: weitere Bedingungen hinzufügen, bestehende ändern oder einzelne Zeilen über die rote X-Schaltfläche am rechten Rand entfernen.<\/p>\n Beim Löschen einer Zeile schrumpft das Formular automatisch und die verbleibenden Bedingungen rücken nach oben.<\/p>\n Bild 6 zeigt, wie eine zweite Bedingung hinzugefügt wurde: Zusätzlich zur KundeID<\/b>-Bedingung wird nun auch nach dem Firmenfeld gefiltert – Beginnt mit „M“<\/b>.<\/p>\n Bild 6: Zwei UND-verknüpfte Bedingungen – nur noch ein Datensatz erfüllt beide Kriterien<\/span><\/b><\/p>\n Beide Bedingungen innerhalb einer Gruppe sind automatisch UND-verknüpft: Ein Datensatz muss also beide Bedingungen gleichzeitig erfüllen um angezeigt zu werden. Das Ergebnis ist entsprechend streng – von den fünf Kunden mit KundeID<\/b> größer als 95 <\/b>hat nur einer einen Firmennamen der mit M<\/b> beginnt: ein einziger Datensatz bleibt übrig.<\/p>\n Das Filterformular unterstützt bis zu fünf Bedingungen pro Gruppe. Jede neue Feldeingabe fügt automatisch eine weitere leere Zeile hinzu, bis das Maximum von fünf Zeilen erreicht ist – dann verschwindet die ODER-Filtergruppe hinzufügen<\/b>-Schaltfläche, da keine weitere Zeile hinzugefügt werden kann.<\/p>\n Wir können auch ODER-Verknüpfungen verwenden, wie Bild 7 zeigt: Die erste Gruppe enthält die beiden bekannten Bedingungen auf KundeID<\/b> und Firma<\/b>.<\/p>\n Bild 7: Eine ODER-Gruppe mit Datumsfeld – der Datumstyp-Dropdown bietet vordefinierte Zeiträume<\/span><\/b><\/p>\n Darunter wurde über ODER-Filtergruppe hinzufügen<\/b> eine zweite Gruppe angelegt. In dieser zweiten Gruppe wurde das Feld Geburtsdatum<\/b> gewählt und als Bedingung Gleich<\/b> ausgewählt. Da es sich um ein Datumsfeld handelt, erscheint rechts neben der Bedingungsauswahl kein einfaches Texteingabefeld, sondern ein weiteres Kombinationsfeld für den Datumstyp.<\/p>\n In diesem Kombinationsfeld kann der Benutzer zwischen einem konkreten Datum und vordefinierten Zeiträumen wählen – im Bild ist das Dropdown aufgeklappt und zeigt die Optionen Datum<\/b>, Heute<\/b>, Gestern<\/b>, Diese Woche<\/b>, Diesen Monat<\/b>, Dieses Quartal<\/b>, Dieses Jahr<\/b> und Letzte X Tage<\/b>.<\/p>\n Wählt der Benutzer einen vordefinierten Zeitraum wie Gestern<\/b> oder Diesen Monat<\/b>, berechnet das Filterformular den zugehörigen Datumsbereich automatisch zur Laufzeit – es ist keine weitere Eingabe notwendig.<\/p>\n Wählt er Letzte X Tage<\/b>, erscheint ein Eingabefeld für die Anzahl der Tage. Wählt er Datum<\/b>, erscheint ein Datumsfeld in dem er ein konkretes Datum im Format TT.MM.JJJJ <\/b>eingeben kann.<\/p>\n Die Bedingungen der zweiten ODER-Gruppe sind unabhängig von der ersten Gruppe: Ein Datensatz wird angezeigt wenn er entweder alle Bedingungen der ersten Gruppe erfüllt oder alle Bedingungen der zweiten Gruppe.<\/p>\n Das Formular unterstützt bis zu fünf solcher ODER-Gruppen mit je fünf Bedingungen – insgesamt also bis zu 25 Einzelbedingungen.<\/p>\n In Bild 8 sehen wir einen Spezialfall: das Feld Aktiv<\/b> ist ein Ja\/Nein<\/b>-Feld. Das Filterformular erkennt diesen Feldtyp automatisch und bietet als Bedingung ausschließlich Wahr<\/b> und Falsch<\/b> an – es gibt kein zusätzliches Eingabefeld, denn die Bedingung selbst legt bereits den Filterwert fest.<\/p>\n Bild 8: Ja\/Nein-Felder zeigen nur Wahr und Falsch als Bedingung – kein Eingabefeldräume<\/span><\/b><\/p>\n Alle anderen Feldtypen wie Textfelder oder Zahlenfelder zeigen diese Bedingungsauswahl nie.<\/p>\n Eine weitere Besonderheit finden wir in Bild 9: Die Bedingung Ist zwischen<\/b> steht für Zahlen- und Datumsfelder zur Verfügung. Hier wurde das Feld Rating<\/b> mit der Bedingung Ist zwischen<\/b> und den Werten 8<\/b> und 10 <\/b>konfiguriert. Das Filterformular blendet bei dieser Bedingung automatisch zwei Eingabefelder nebeneinander ein – eines für den Von-Wert und eines für den Bis-Wert. Das Ergebnis im Hintergrund zeigt 27 Datensätze, also alle Kunden mit einem Rating zwischen 8 und 10.<\/p>\n Bild 9: Ist zwischen blendet automatisch zwei Eingabefelder ein – 27 Kunden haben ein Rating zwischen 8 und 10<\/span><\/b><\/p>\n Bei Datumsfeldern mit der Bedingung Ist zwischen<\/b> erscheinen entsprechend zwei Datumsfelder. Das Filterformular prüft dabei ob das Von-Datum kleiner oder gleich dem Bis-Datum ist – sollte der Benutzer versehentlich ein späteres Von-Datum eingeben als das Bis-Datum, erscheint eine Hinweismeldung.<\/p>\n Für den Einbau des Filterformulars in eine eigene Datenbank werden folgende Elemente aus der Beispieldatenbank dieses Beitrags benötigt:<\/p>\n Beide Elemente lassen sich über den Access-Importmechanismus direkt aus der Beispieldatenbank in die eigene Datenbank übernehmen.<\/p>\n Öffnen Sie dazu die eigene Datenbank, klicken Sie im Ribbon auf Externe Daten|Neue Datenquelle|Aus Datenbank – Access<\/b> und wählen Sie die Beispieldatenbank dieses Beitrags aus. Im Import-Dialog wählen Sie unter Formulare<\/b> das Formular frmFilter<\/b> und unter Module<\/b> das Modul mdlFilter<\/b> aus (siehe Bild 10).<\/p>\n Bild 10: Auswählen der zu importierenden Elemente<\/span><\/b><\/p>\n Das Filterformular benötigt keine zusätzlichen Bibliotheken oder Verweise und funktioniert mit jeder Access-Version ab 2010.<\/p>\n Es arbeitet mit klassisch über eine Datensatzquelle gebundenen Formularen und Unterformularen.<\/p>\n Öffnen Sie das Formular das gefiltert werden soll im Entwurf und legen Sie eine Schaltfläche an – zum Beispiel mit dem Namen cmdFilter<\/b> und der Beschriftung Filtern<\/b>. Dem Klick-Ereignis dieser Schaltfläche weisen Sie folgenden Code zu:<\/p>\n Die erste Zeile öffnet das Filterformular als Popup. Die zweite Zeile übergibt ihm eine Referenz auf das aufrufende Formular über die öffentliche Eigenschaft CallingForm<\/b> – das Filterformular benötigt diese um den fertigen Filterausdruck später an die richtige Stelle zurückliefern zu können. Die dritte Zeile übergibt das Recordset des Formulars. Das Filterformular liest daraus alle Felder und deren Datentypen aus und befüllt die Feldauswahlliste automatisch.<\/p>\n Wenn der Filter nicht auf das Hauptformular sondern auf ein Unterformular wirken soll, ändert sich die dritte Zeile entsprechend:<\/p>\n Dies ist die typische Situation wenn das Unterformular ein Datenblatt mit den zu filternden Datensätzen enthält – genau wie im Beispielformular frmDatenMitFilter<\/b> dieses Beitrags.<\/p>\n Das Filterformular kommuniziert mit dem aufrufenden Formular über eine einzige öffentliche Prozedur: FilterAnwenden<\/b>. Diese Prozedur muss im Modul des aufrufenden Formulars vorhanden sein.<\/p>\n Das Filterformular ruft sie auf sobald der Benutzer auf Filter anwenden<\/b> oder Zurücksetzen<\/b> klickt, und übergibt den fertigen WHERE<\/b>-String als Parameter. Für ein direkt gebundenes Formular sieht die Prozedur so aus:<\/p>\n Der übergebene WHERE<\/b>-String beginnt immer mit dem Schlüsselwort WHERE<\/b> gefolgt von einem Leerzeichen – also etwa WHERE ((KundeID > 95) AND (Firma LIKE ‚M*‘))<\/b>. Die Filter<\/b>-Eigenschaft von Access erwartet jedoch nur den Filterausdruck ohne das Schlüsselwort, daher schneidet Mid(strWhere, 8)<\/b> die ersten sieben Zeichen ab. Wenn strWhere<\/b> leer ist – also wenn der Benutzer den Filter zurückgesetzt hat – wird FilterOn<\/b> auf False<\/b> gesetzt und alle Datensätze werden wieder angezeigt.<\/p>\n Wenn der Filter auf ein Unterformular wirken soll, spricht die Prozedur stattdessen das Unterformular an:<\/p>\n Die Prozedur ist in beiden Fällen identisch aufgebaut – der einzige Unterschied ist das Objekt auf das Filter<\/b> und FilterOn<\/b> angewendet werden. Im Beispielformular frmDatenMitFilter<\/b> dieses Beitrags ist sfmDatenMitFilter<\/b> der Name des Unterformular-Steuerelements.<\/p>\n Damit das Filterformular automatisch geschlossen wird wenn der Benutzer das aufrufende Formular schließt, genügt ein kurzer Form_Unload<\/b>-Handler im aufrufenden Formular:<\/p>\n Das On Error Resume Next<\/b> ist notwendig, weil DoCmd.Close<\/b> einen Laufzeitfehler auslöst wenn das Filterformular zu diesem Zeitpunkt bereits manuell vom Benutzer geschlossen wurde. Mit diesen drei Schritten – Import, Schaltfläche anlegen, FilterAnwenden<\/b> implementieren – ist das Filterformular vollständig eingebaut und einsatzbereit. Im zweiten Teil dieser Beitragsreihe unter dem Titel Ein Filterformular für alle Fälle: Die Programmierung <\/b>(www.access-im-unternehmen.de\/****<\/b>) werfen wir einen Blick hinter die Kulissen: Wie erkennt das Formular den Feldtyp, wie baut es den SQL-WHERE-String auf, wie funktioniert die dynamische Höhenanpassung – und welche technischen Besonderheiten mussten gelöst werden.<\/p>\n","protected":false},"excerpt":{"rendered":" Access bietet von Haus aus komfortable Möglichkeiten zum Filtern von Datensätzen – über das Ribbon, über das Dropdown-Menü im Spaltenkopf des Datenblatts oder über eigene Filtereigenschaften des Formulars. Diese Lösungen stoßen jedoch schnell an ihre Grenzen, sobald man komplexere Filterbedingungen kombinieren möchte oder dem Benutzer eine moderne, übersichtliche Filteroberfläche bieten will. Wir stellen in dieser zweiteiligen Beitragsreihe ein universell einsetzbares Filterformular vor, das sich mit wenigen Handgriffen in jedes bestehende Formular einbauen lässt. Im ersten Teil zeigen wir, wie das Filterformular eingebaut und bedient wird. Der zweite Teil beleuchtet die Programmierung hinter den Kulissen.<\/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":[662026,66032026,44000052],"tags":[],"class_list":["post-55001603","post","type-post","status-publish","format-standard","hentry","category-662026","category-66032026","category-Formulare_und_Steuerelemente"],"yoast_head":"\nDas Filterformular beim Öffnen<\/h2>\n
![\"Das](\"..\/fileadmin\/_temp_\/2026_03\/pic_1603_002.png\")
<\/p>\nSchritt 1: Ein Feld auswählen<\/h2>\n
![\"Die](\"..\/fileadmin\/_temp_\/2026_03\/pic_1603_003.png\")
<\/p>\nSchritt 2: Die Bedingung auswählen<\/h2>\n
![\"Die](\"..\/fileadmin\/_temp_\/2026_03\/pic_1603_004.png\")
<\/p>\nErster Filter anwenden<\/h2>\n
![\"Der](\"..\/fileadmin\/_temp_\/2026_03\/pic_1603_005.png\")
<\/p>\nMehrere Bedingungen kombinieren<\/h2>\n
![\"Zwei](\"..\/fileadmin\/_temp_\/2026_03\/pic_1603_006.png\")
<\/p>\nODER-Gruppen und Datumsfelder<\/h2>\n
![\"Eine](\"..\/fileadmin\/_temp_\/2026_03\/pic_1603_007.png\")
<\/p>\nJa\/Nein-Felder<\/h2>\n
![\"Ja\/Nein-Felder](\"..\/fileadmin\/_temp_\/2026_03\/pic_1603_008.png\")
<\/p>\nDie Bedingung „Ist zwischen“<\/h2>\n
![\"Ist](\"..\/fileadmin\/_temp_\/2026_03\/pic_1603_009.png\")
<\/p>\nVoraussetzungen und Einbau<\/h2>\n
\n
![\"Auswählen](\"..\/fileadmin\/_temp_\/2026_03\/pic_1603_010.png\")
<\/p>\nSchritt 1: Den Filterbutton im eigenen Formular anlegen<\/h2>\n
Private Sub <\/span>cmdFilter_Click()\r\n DoCmd.OpenForm \"frmFilter\"\r\n Set<\/span> Forms!frmFilter.CallingForm = Me\r\n Set<\/span> Forms!frmFilter.RecordsetForm = Me.Recordset\r\nEnd Sub<\/span><\/pre>\nSet<\/span> Forms!frmFilter.RecordsetForm = _\r\n Me.sfmMeinUnterformular.Form.Recordset<\/pre>\nSchritt 2: Die Prozedur FilterAnwenden implementieren<\/h2>\n
Public Sub <\/span>FilterAnwenden(strWhere As String<\/span>)\r\n If <\/span>Len<\/span>(strWhere) > 0 Then<\/span>\r\n Me.Filter = Mid<\/span>(strWhere, 8) 'WHERE abschneiden\r\n Me.FilterOn = True<\/span>\r\n Else<\/span>\r\n Me.FilterOn = False<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPublic Sub <\/span>FilterAnwenden(strWhere As String<\/span>)\r\n If <\/span>Len<\/span>(strWhere) > 0 Then<\/span>\r\n Me.sfmMeinUnterformular.Form.Filter = _\r\n Mid<\/span>(strWhere, 8)\r\n Me.sfmMeinUnterformular.Form.FilterOn = True<\/span>\r\n Else<\/span>\r\n Me.sfmMeinUnterformular.Form.FilterOn = False<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nSchritt 3: Filterformular ebenfalls automatisch schließen<\/h2>\n
Private Sub <\/span>Form_Unload(Cancel As Integer<\/span>)\r\n On Error Resume Next<\/span>\r\n DoCmd.Close acForm, \"frmFilter\"\r\n On Error GoTo<\/span> 0\r\nEnd Sub<\/span><\/pre>\n