<\/p>\n
Im Beitrag „Filterbedingungen einfach zusammenstellen“ erfahren Sie weiter hinten in dieser Ausgabe, wie Sie den fehleranfälligen Code für die Zusammenstellung von Filterausdrücken in eine Klasse auslagen und übersichtlicher gestalten. Der vorliegende Beitrag zeigt nun anhand eines Praxisbeispiels, wie Sie die gewonnenen Erkenntnisse und die verwendete Klasse in Access-Formularen zum Filtern der enthaltenen Daten einsetzen.<\/b><\/p>\nPraxisbeispiel<\/h2>\n
In der Suedsturm<\/b>-Datenbank gibt es die Tabelle tblBestellungen<\/b>. Die Daten aus dieser Tabelle sollen in einem Bestellübersichtsformular angezeigt und gefiltert werden. Filtern wollen wir nach Kundenname, Lieferadresse, Bestelldatum, Lieferdatum, Versanddatum, offene Lieferung und bestellte Artikel.<\/p>\n
Für die Darstellung der Suchmaske und der Ergebnisliste wählen wir ein ungebundenes Hauptformular (frmBestell-uebersicht<\/b>) mit ungebundenen Steuerelementen für die Filtereingabe. In das Hauptformular fügen wir ein Formular in Datenblattansicht (frmBestellUebersicht_SF_Bestellungen<\/b>) als Unterformular ein.<\/p>\n
Als Datenquelle für das Unterformular verwenden wir die Abfrage qryBestellListe<\/b>. Für die Eingabe der Filterwerte fügen wir im Formularkopf des Hauptformulars entsprechende Steuerelemente ein. Eine Schaltfläche dient zum Anwenden der Filterwerte.<\/p>\n
Als Alternative zur Schaltfläche fügen wir noch eine Checkbox ein, mit der wir eine automatische Filterung nach jeder Filterwert-änderung aktivieren können. Zum Entfernen aller eingegeben Filterwerte dient eine weitere Schaltfläche. In Bild 1 sehen Sie das Filterformular direkt nach dem öffnen. Damit im Unterformular direkt nach dem öffnen keine Datensätze angezeigt werden, ist in der Formular-Eigenschaft Filter <\/b>der Ausdruck 1=0 <\/b>eingetragen.<\/p>\n
![\"Filterformular\"](\"..\/fileadmin\/_temp_\/2015_06\/frmBestellUebersicht_leer.png\")
<\/p>\n
Bild 1: Filterformular<\/span><\/b><\/p>\n Die Namen der Filtersteuerelemente beginnen alle mit dem Präfix fctl<\/b>. Das erleichtert uns später im Code das Ansprechen der Steuerelemente in For Each<\/b>-Schleifen.<\/p>\n Erstellen wir als erste Variante den Code zum Filtern ohne Verwendung von Hilfsklassen. Wenn auf die Schaltfläche Filter anwenden<\/b> geklickt wird, soll das Unterformular gefiltert werden.<\/p>\n Damit der Code im Formular übersichtlich bleibt, erstellen wir die Prozedur UseFilter <\/b>zum Starten des Filtervorgangs und rufen diese in der Beim Klicken<\/b>-Ereignisbehandlung der Schaltfläche auf.<\/p>\n In der UseFilter<\/b>-Prozedur übergeben wir den über eine weitere Prozedur erzeugten Filterausdruck an das Unterformular.<\/p>\n Den vollständigen Inhalt der Prozedur CreateFilterString<\/b> zur Filtertext<\/b>-Erstellung werden wir später ergänzen. Zuerst geben wir zum Testen nur den Filterausdruck für den Filterwert in Firma<\/b> zurück. Mit diesem Code können wir bereits einen ersten Test durchführen.<\/p>\n Dabei ruft die Ereignisprozedur, die durch das Ereignis Beim Klicken <\/b>der Schaltfläche cmdUseFilter <\/b>ausgelöst wird, eine weitere Routine namens UseFilter <\/b>auf:<\/p>\n Diese startet eine weitere Prozedur namens SetSubFormFilter <\/b>und übergibt als Parameter einen Wert, der von der Funktion CreateFilterString <\/b>beigesteuert wird und wie folgt aussieht:<\/p>\n Diese sieht wie in Listing 1 aus.<\/p>\n Listing 1: Zusammensetzen des Filterausdrucks<\/span><\/b><\/p>\n Die Funktion prüft, ob das Filter-Textfeld fctlKundeFirma <\/b>einen Wert enthält (Len(.Value) > 0<\/b>). Falls ja, stellt sie einen Filterausdruck zusammen und gibt diesen als Funktionswert zurück.<\/p>\n Die Prozedur SetSubFormFilter <\/b>nimmt diesen Filterstring entgegen und prüft, ob dieser bereits angewendet wurde. Dazu vergleicht sie den Wert der Eigenschaft Filter <\/b>mit FilterString<\/b>.<\/p>\n Nur wenn es sich um einen neuen Filter-Ausdruck handelt, wird FilterString <\/b>der Eigenschaft Filter <\/b>zugewiesen und der Filter mit der Eigenschaft FilterOn <\/b>aktiviert oder deaktiviert – je nachdem, ob FilterString <\/b>einen Ausdruck enthält oder nicht (s. Listing 2).<\/p>\n Listing 2: Die Prozedur zum Setzen des Filters<\/span><\/b><\/p>\n <\/p>\n Wenn Sie im Textfeld für den Firma<\/b>-Filterwert einen Text eintragen, wird nach diesem Text gefiltert, sobald Sie auf die Schaltfläche Filter anwenden<\/b> klicken. Sie können das Textfeld auch leer lassen und filtern. Dann werden alle Datensätze aus der Tabelle angezeigt.<\/p>\n Als Nächstes ergänzen wir den Code zum Leeren der Filtersteuerelemente. Da wir die Namen der Filtersteuerelemente mit dem Präfix fctl<\/b> versehen haben, können wir die Formularsteuerelemente mittels For Each<\/b>-Schleife durchlaufen und alle Filterfelder leeren.<\/p>\n Außerdem wollen wir nach dem Löschen der Filterwerte nicht alle Datensätze anzeigen, sondern im Unterformular keine Daten anzeigen, damit erkennbar ist, dass noch nicht gefiltert wurde.<\/p>\n Dazu setzen wir den Filter im Unterformular wieder auf 1=0<\/b>. Mit dem zusätzlichen Code aus Listing 3 können wir das Löschen der Filter testen.<\/p>\n Listing 3: Code zum Löschen des Filters<\/span><\/b><\/p>\n Als weiteres Feature wollen wir sofort nach Eingabe oder änderung eines Filterwertes die Datensätze im Unterformular filtern. Wir müssen dazu auf das Ereignis AfterUpdate <\/b>reagieren und je nach Einstellung der AutoFilter<\/b>-Checkbox die gewünschte Aktion ausführen.<\/p>\n Wenn die Checkbox auf True <\/b>steht, soll der Filter sofort angewendet werden. Damit dem User signalisiert wird, dass er den Filter aktualisieren muss, werden wir den Text der Schaltfläche fett darstellen und nach der erfolgten Filterung wieder auf normal setzen.<\/p>\n Damit wir nicht für jedes Filtersteuerelement eine Prozedur für die Ereignisbehandlung einfügen müssen, erstellen wir die Hilfsfunktion ControlValueChanged<\/b>, die den beschriebenen Vorgang auslöst, und verwenden diese Funktion bei allen Filtersteuerelementen für die Eigenschaft After Update<\/b> (in einer deutschen Access-Version Nach Aktualisierung<\/b>).<\/p>\n Dazu markieren wir alle Filtersteuerelemente und tragen den Funktionsaufruf in das Eigenschaftsfeld wie in Bild 2 gezeigt ein. Um die Markierung der Schaltfläche Filter anwenden<\/b> nach einer durchgeführten Filterung wieder zu entfernen, fügen wird den Code Me.cmdUseFilter.FontBold = False <\/b>in die Prozedur UseFilter <\/b>ein.<\/p>\n Bild 2: Ereignisbehandlung für AfterUpdate einstellen<\/span><\/b><\/p>\n Unser Filterformular funktioniert nun, bis auf die Filtertext-Erstellung aus den Werten in allen Filtersteuerelementen, wie beabsichtigt. <\/p>\n Um im Filterausdruck die Werte aller Filtersteuerelemente zu berücksichtigen, werden wir die Prozedur CreateFilterString <\/b>nach dem Schema aus dem Beitrag Filterbedingungen einfach zusammenstellen <\/b>(www.access-im-unternehmen.de\/1015<\/b>) anpassen.<\/p>\n Der Code in Listing 4 zeigt nur einen Ausschnitt, da die Prozedur sehr umfangreich ist.<\/p>\n Listing 4: CreateFilterString ohne Hilfsklasse<\/span><\/b><\/p>\n Ein Formular mit diesem Code-Aufbau ist in der Beispielanwendung enthalten.<\/p>\n Zum Vergleich verwenden wir nun in der Prozedur CreateFilterString <\/b>die Hilfsklasse FilterStringBuilder<\/b>. Der Code in Listing 5 ist ungekürzt und bleibt trotzdem übersichtlich. <\/p>\n Listing 5: CreateFilter mit FilterStringBuilder<\/span><\/b><\/p>\n Wenn Sie die FilterStringBuilder<\/b>-Klasse einsetzen, müssen Sie nur in wenigen Ausnahmefällen über eine Logik zum Ermitteln des Filterausdrucks nachdenken. Es reicht meist aus, die Filterbedingungen über die Parameter der Add<\/b>-Methode zu beschreiben.<\/p>\n Damit haben wir aus einem anfangs fehleranfälligen Formular-Code eine Code-Schreibweise ermöglicht, bei der wir die Filterbedingungen definieren können und nicht ausführlich programmieren müssen.<\/p>\n Die gezeigten Klassen können Sie aus dem Code-Archiv http:\/\/source.access-codelib.net\/ <\/b>laden oder Sie nutzen den ACLib-FilterForm-Wizard <\/b>(Beschreibung: http:\/\/wiki.access-codelib.net\/ACLib-FilterForm-Wizard<\/b>) und importieren damit die benötigten Klassen. <\/p>\n Bei der Konvertierung von Filterwerten in SQL-Text ist auf die passende Umwandlung in Text in Abhängigkeit vom Datentyp und vom verwendeten SQL-Dialekt zu achten. Die in diesem Beitrag beschriebenen Refactoring-Schritte zeigen den Weg von einem fehleranfälligen Code zu einem in Klassen ausgelagerten Code, der das Definieren der Filterbedingungen statt dem Programmieren der Filterlogik ermöglicht.<\/p>\n Der Beitrag Filterbedingungen einfach zusammenstellen <\/b>(www.access-im-unternehmen.de\/1015<\/b>) zeigt, wie der Filter in einem Praxisbeispiel funktioniert. Der Beitrag Der ACLib-FilterForm-Wizard <\/b>(www.access-im-unternehmen.de\/1020<\/b>) zeigt, wie Sie die benötigten Klassen einfach per Add-In in die aktuelle Datenbank einbauen und diese mit den gewünschten Filterkriterien ausstatten – siehe folgende Ausgabe. Dort finden Sie auch den Beitrag Filterbedingungen mit Klasse <\/b>(www.access-im-unternehmen.de\/1021<\/b>), der zeigt, wie die Klasse FilterStringBuilder <\/b>funktioniert. <\/p>\n Enthaltene Beispieldateien:<\/p>\n Suedsturm-FilterForm.mdb<\/p>\nVariante I: Filtern ohne Hilfsklasse<\/h2>\n
Private Sub <\/span>cmdUseFilter_Click()\r\n UseFilter\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>UseFilter()\r\n'' Diese Prodedur startet die Filterung mit den Werten \r\n'' in den Filter-Steuerelementen\r\n Call<\/span> SetSubFormFilter(CreateFilterString)\r\nEnd Sub<\/span><\/pre>\nPrivate Function <\/span>CreateFilterString() As String<\/span>\r\n ''Diese Prozedur erzeugt den Filterausdruck \r\n ''aus den Filter-Steuerelementen\r\n With<\/span> Me.fctlKundeFirma\r\n If <\/span>Len<\/span>(.Value) > 0 Then<\/span>\r\n CreateFilterString = \"Kunde_Firma LIKE ''\" _\r\n & Replace<\/span>(.Value, \"''\", \"''''\") & \"''\"\r\n Else<\/span>\r\n CreateFilterString = vbNullString\r\n End If<\/span>\r\n End With<\/span>\r\nEnd Function<\/span> <\/pre>\nPrivate Sub <\/span>SetSubFormFilter(ByVal FilterString As String<\/span>)\r\n ''Diese Prozedur kapselt die Datenfilterung im \r\n ''Unterformular\r\n ''Vorteil: wenn man auf eine andere Variante filtern\r\n ''will, muss man nur diese Prozedur ändern\r\n With<\/span> Me.sfrBestellListe.Form\r\n If <\/span>.Filter <> FilterString Then<\/span> \r\n ''eine änderung ist nur notwendig, \r\n ''wenn der Filtertext nicht gleich ist\r\n .Filter = FilterString\r\n .FilterOn = (Len<\/span>(FilterString) > 0)\r\n End If<\/span>\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdRemoveFilter_Click()\r\n RemoveFilter\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>RemoveFilter()\r\n '' 1. Filterwerte aus Steuerelementen entfernen\r\n RemoveFilterValues\r\n '' 2. keine Datensätze im Unterformular anzeigen\r\n SetSubFormFilter \"1=0\"\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>RemoveFilterValues()\r\n Dim <\/span>fctl As <\/span>Control\r\n For Each fctl In Me.Controls\r\n If <\/span>Left<\/span>(fctl.Name, 4) = \"fctl\" Then<\/span>\r\n If <\/span>fctl.ControlType = acOptionGroup Then<\/span>\r\n '' Sonderfall: \"Kein Filter\" = 0\r\n fctl.Value = 0\r\n Else<\/span>\r\n fctl.Value = Null\r\n End If<\/span>\r\n End If<\/span>\r\n Next<\/span>\r\nEnd Sub<\/span><\/pre>\nFiltern direkt nach der Eingabe<\/h2>\n
Private Function <\/span>ControlValueChanged()\r\n If <\/span>Me.cbAutoFilter.Value = True<\/span> Then<\/span>\r\n ''sofort filtern\r\n UseFilter\r\n Else<\/span>\r\n ''Notwendigen Klick auf \"Filter anwenden\" signalisieren\r\n Me.cmdUseFilter.FontBold = True<\/span>\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\n![\"Ereignisbehandlung](\"..\/fileadmin\/_temp_\/2015_06\/frmBestellUebersicht_AfterUpdate_einstellen.png\")
<\/p>\nPrivate Function <\/span>CreateFilterString() As String<\/span>\r\n ''Diese Prozedur erzeugt den Filterausdruck aus den Filter-Steuerelementen\r\n Dim <\/span>SqlFilter As String<\/span>, SqlFilterAusdruck As String<\/span>\r\n With<\/span> Me.fctlKundenCode\r\n If <\/span>Len<\/span>(.Value) > 0 Then<\/span>\r\n SqlFilterAusdruck = \"KundenCode LIKE ''\" & Replace<\/span>(.Value, \"''\", \"''''\") & \"''\"\r\n SqlFilter = SqlFilter & \" And \" & SqlFilterAusdruck\r\n End If<\/span>\r\n End With<\/span>\r\n [...]\r\n With<\/span> Me.fctlVersanddatumAb\r\n If <\/span>Not<\/span> IsNull(.Value) Then<\/span>\r\n SqlFilterAusdruck = \"Versanddatum >= \" & Format(.Value, \"\\#yyyy-mm-dd\\#\")\r\n SqlFilter = SqlFilter & \" And \" & SqlFilterAusdruck\r\n End If<\/span>\r\n End With<\/span>\r\n With<\/span> Me.fctlVersanddatumBis\r\n If <\/span>Not<\/span> IsNull(.Value) Then<\/span>\r\n SqlFilterAusdruck = \"Versanddatum >= \" & Format(.Value, \"\\#yyyy-mm-dd\\#\")\r\n SqlFilter = SqlFilter & \" And \" & SqlFilterAusdruck\r\n End If<\/span>\r\n End With<\/span>\r\n [...]\r\n ''Filterausdruck aufbereiten\r\n If <\/span>Len<\/span>(SqlFilter) > 0 Then<\/span>\r\n '' ersten \" And \"-Ausdruck wegschneiden\r\n SqlFilter = Mid<\/span>(SqlFilter, Len<\/span>(\" And \") + 1)\r\n End If<\/span>\r\n CreateFilterString = SqlFilter\r\nEnd Function<\/span><\/pre>\nPrivate Function <\/span>CreateFilterString() As String<\/span>\r\n ''Diese Prozedur erzeugt den Filterausdruck \r\n ''aus den Filter-Steuerelementen\r\n With<\/span> New<\/span> FilterStringBuilder\r\n Set<\/span> .SqlTool = DaoSqlTools\r\n .Add \"KundenCode\", SQL_Text, SQL_LIKE, Me.fctlKundenCode.Value\r\n .Add \"Kunde_Firma\", SQL_Text, SQL_LIKE, Me.fctlKundeFirma.Value\r\n .Add \"Empfanger\", SQL_Text, SQL_LIKE, Me.fctlEmpfangerName.Value\r\n .Add \"Strasse\", SQL_Text, SQL_LIKE, Me.fctlEmpfangerStrasse.Value\r\n .Add \"PLZ\", SQL_Text, SQL_LIKE, Me.fctlEmpfangerPLZ.Value\r\n .Add \"Ort\", SQL_Text, SQL_LIKE, Me.fctlEmpfangerOrt.Value\r\n .Add \"Region\", SQL_Text, SQL_LIKE, Me.fctlEmpfangerRegion.Value\r\n .Add \"Bestimmungsland\", SQL_Text, SQL_LIKE, Me.fctlEmpfangerBestimmungsland.Value\r\n .Add \"Bestelldatum\", SQL_Date, SQL_Between, Me.fctlBestelldatumAb.Value, Me.fctlBestelldatumBis.Value\r\n .Add \"Lieferdatum\", SQL_Date, SQL_Between, Me.fctlLieferdatumAb.Value, Me.fctlLieferdatumBis.Value\r\n .Add \"Versanddatum\", SQL_Date, SQL_Between, Me.fctlVersanddatumAb.Value, Me.fctlVersanddatumBis.Value\r\n Select Case Me.fctlLieferstatus.Value\r\n Case <\/span>0\r\n '' kein Filter\r\n Case <\/span>1 ''offen = Datum ist null\r\n .AddCriteria \"Versanddatum Is Null\"\r\n Case <\/span>2 '' versendet = Versanddatum > 0\r\n .AddCriteria \"Versanddatum > 0\"\r\n End Select \r\n .Add \"VersandUeber\", SQL_Numeric, SQL_Equal, _\r\n Me.fctlVersandUeber.Value\r\n .Add \"KundenCode\", SQL_Text, SQL_LIKE, Me.fctlKundenCode.Value\r\n If <\/span>Len<\/span>(Me.fctlArtikelbezeichnung.Value) > 0 Then<\/span>\r\n .AddCriteria \"BestellungID In (\"SELECT BD.BestellungID FROM tblBestelldetails BD\" _\r\n & \" INNER JOIN tblArtikel A ON A.ArtikelID=BD.ArtikelID WHERE \" _\r\n & DaoSqlTools.BuildCriteria(\"A.Artikelname\", SQL_Text, _\r\n SQL_LIKE, Me.fctlArtikelbezeichnung.Value) _\r\n & \")\"\r\n End If<\/span>\r\n CreateFilterString = .ToString(SQL_And)\r\n End With<\/span>\r\nEnd Function<\/span><\/pre>\nZusammenfassung und Ausblick<\/h2>\n
Downloads zu diesem Beitrag<\/h3>\n