![\"Neues](\"..\/tl_files\/images\/pic_200_001.png\")
<\/a><\/p>\nBild 1: Neues Formular für die Beispiele zum Filtern von Datensätzen nach Zahlenwerten<\/p>\n
Das erste Suchfeld soll den Inhalt des Feldes Lagerbestand <\/b>untersuchen und genau passende Datensätze zurückliefern. Wenn der Benutzer also beispielsweise den Wert 0 <\/b>einträgt und die Eingabetaste betätigt, sollen nur die aufgebrauchten Artikel erscheinen (siehe Bild 2). Dies erledigen Sie mit der Ereignisprozedur aus Listing 2.<\/p>\n
Bild 2: Filtern nach dem Lagerbestand<\/p>\n Im zweiten Beispiel wollen wir alle Artikel finden, deren Einzelpreis in einem bestimmten Bereich liegt – also etwa über 10 Euro, unter 20 Euro oder zwischen 5 und 15 Euro.<\/p>\n Dazu richten Sie zwei Textfelder namens txtPreisMin<\/b> und txtPreisMax <\/b>ein.<\/p>\n Außerdem soll der Benutzer die Suche durch einen Mausklick auf eine Schaltfläche starten können – diese heißt cmdPreisbereiche<\/b> (siehe Bild 3).<\/p>\n Bild 3: Filtern nach Mindest- und Höchstpreis<\/p>\n Die Schaltfläche erhält eine Ereignisprozedur, die zunächst nur vollständige Angaben verarbeiten soll, also die Angabe sowohl des minimalen als auch des maximalen Preises.<\/p>\n Die Ereignisprozedur sieht wie in Listing 3 aus. Sie setzt zunächst ein Filterkriterium zusammen, dass für die Angaben aus Bild 4 etwa so aussieht:<\/p>\n Bild 4: Preisfilter im Einsatz<\/p>\n Am Ergebnis können Sie gleich ablesen, dass BETWEEN 10 AND 12 <\/b>auch alle Datensätze liefert, deren Wert im Feld Einzelpreis <\/b>genau 10 <\/b>oder 12 <\/b>beträgt.<\/p>\n Nun wäre es noch praktisch, wenn der Benutzer nur das erste Textfeld füllen könnte, wenn er alle Artikel mit Einzelpreisen über dem angegebenen Wert erhalten möchte – ohne Obergrenze. Oder er nutzt das zweite Textfeld, um nur die Obergrenze zu definieren. Wenn Sie dies mit der vorhandenen Prozedur ausprobieren, erhalten Sie die Fehlermeldung aus Bild 5.<\/p>\n Bild 5: Fehler beim Auslassen eines Parameters<\/p>\n Dem schaffen wir durch die änderung aus Listing 4 bei der Zusammenstellung des Filterkriteriums Abhilfe.<\/p>\n Listing 4: Nach Preisbereichen filtern, detaillierte Fassung<\/p>\n Die erste If…Then<\/b>-Bedingung prüft, ob txtPreisMin <\/b>einen Wert enthält. In diesem Fall trägt Sie einen Ausdruck wie AND Einzelpreis >= 10 <\/b>in die Variable strFilter <\/b>ein.<\/p>\n Beim Textfeld txtPreisMax <\/b>läuft es ähnlich. Der Ausdruck (etwa AND Einzelpreis <= 20<\/b>) wird allerdings an den bereits bestehenden Ausdruck in der Variablen strFilter <\/b>angehängt. Auf diese Weise kann strFilter<\/b> nun beispielsweise folgende Ausdrücke enthalten:<\/p>\n Der Ausdruck beginnt also immer mit dem Schlüsselwort AND<\/b>, was bei direkter Zuweisung einen Fehler auslösen würde. Nur wenn der Benutzer keines der beiden Felder füllt, bleibt die Variable strFilter <\/b>komplett leer.<\/p>\n Enthält strFilter <\/b>jedoch einen Wert, soll das führende AND <\/b>entfernt werden.<\/p>\n Dazu prüft die Prozedur, ob die Länge von strFilter <\/b>größer als 0 <\/b>ist und übernimmt den Inhalt von strFilter <\/b>ab dem fünften Zeichen:<\/p>\n Der resultierende Filterausdruck sieht dann etwa so aus:<\/p>\n Dies entspricht prinzipiell dem weiter oben verwendeten IN...BETWEEN...<\/b>-Ausdruck.<\/p>\n Wenn der Benutzer eine Zahl mit dem in Deutschland üblichen Dezimaltrennzeichen eingibt - also dem Komma -, liefert unsere Prozedur einen Fehler (siehe Bild 6). Dies liegt daran, dass ein Ausdruck wie 10,5 <\/b>direkt in das SQL-Filterkriterium übertragen wird.<\/p>\n Bild 6: Fehler bei falschem Dezimaltrennzeichen<\/p>\n Dieses sieht dann wie folgt aus:<\/p>\n In SQL-Ausdrücken wird das Komma jedoch als Aufzählungszeicheninterpretiert, was den entsprechenden Fehler auslöst.<\/p>\n Damit der Ausdruck funktioniert, müssen wir das Komma durch einen Punkt ersetzen. Dazu verwenden wir die Replace<\/b>-Funktion wie in der Prozedur aus Listing 5.<\/p>\n Listing 5: Nach größeren oder gleichen Preisen suchen<\/p>\n Die Replace<\/b>-Funktion nimmt sich den Inhalt des Textfeldes vor und ersetzt alle Vorkommen des Komma-Zeichens durch einen Punkt.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\nZahlenbereiche untersuchen<\/h2>\n
<\/a><\/p>\n<\/a><\/p>\nEinzelpreis BETWEEN 10 AND 12<\/pre>\n
<\/a><\/p>\nPrivate Sub <\/span>cmdPreisbereiche_Click()\r\n Dim <\/span>strFilter As String<\/span>\r\n If <\/span>Not<\/span> IsNull(Me!txtPreisMin) Then<\/span>\r\n strFilter = \" AND Einzelpreis >= \" & Me!txtPreisMin\r\n End If<\/span>\r\n If <\/span>Not<\/span> IsNull(Me!txtPreisMax) Then<\/span>\r\n strFilter = strFilter _\r\n & \" AND Einzelpreis <= \" & Me!txtPreisMax\r\n End If<\/span>\r\n If <\/span>Len<\/span>(strFilter) > 0 Then<\/span>\r\n strFilter = Mid<\/span>(strFilter, 5)\r\n End If<\/span>\r\n Me!sfmArtikelFilternZahl.Form.Filter = strFilter\r\n Me!sfmArtikelFilternZahl.Form.FilterOn = True<\/span>\r\nEnd Sub<\/span><\/pre>\n\n
If <\/span>Len<\/span>(strFilter) > 0 Then<\/span>\r\n strFilter = Mid<\/span>(strFilter, 5)\r\nEnd If<\/span><\/pre>\nEinzelpreis >= 10 AND Einzelpreis <= 12<\/pre>\n
Behandlung von Dezimalzahlen<\/h2>\n
<\/a><\/p>\nEinzelpreis >= 10,5<\/pre>\n
Private Sub <\/span>cmdPreisMitKomma_Click()\r\n Dim <\/span>strFilter As String<\/span>\r\n strFilter = \"Einzelpreis >= \" _\r\n & Replace<\/span>(Me!txtPreisMitKomma, \",\", \".\")\r\n Me!sfmArtikelFilternZahl.Form.Filter = strFilter\r\n Me!sfmArtikelFilternZahl.Form.FilterOn = True<\/span>\r\nEnd Sub<\/span><\/pre>\nZahlenfelder wie Texte filtern<\/h2>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t