![\"Entwurfsansicht](\"..\/tl_files\/images\/pic_98_001.png\")
<\/a><\/p>\nBild 1: Entwurfsansicht des Unterformulars sfmArtikelsuche<\/p>\n
Speichern Sie nun das Unterformular und schließen Sie es. Anschließend erstellen Sie ein weiteres neues Formular und speichern es unter dem Namen frmArtikelsuche<\/b>. Es handelt sich dabei um das Hauptformular, das gleich das Unterformular aufnehmen wird. Zuvor legen Sie jedoch noch die benötigten Steuerelemente an. Das erste ist ein Textfeld namens txtSuche<\/b>, das zweite eine Schaltfläche namens cmdSuche <\/b>(siehe Bild 2).<\/p>\n
Bild 2: Hauptformular der Artikelsuche<\/p>\n Nun fügen Sie das Unterformular sfmArtikelsuche <\/b>ein, indem Sie es mit der Maus aus dem Datenbankfenster beziehungsweise dem Navigationsbereich in den Detailbereich des Entwurfs des Formulars frmArtikelsuche <\/b>ziehen.<\/p>\n Das Formular mit dem Unterformular sieht in der Entwurfsansicht nun wie in Bild 3 aus. Sie können nun noch das Bezeichnungsfeld des Unterformulars mit der Beschriftung Suchergebnis <\/b>ausstatten und gegebenenfalls Formular und Unterformular noch etwas breiter gestalten, damit der Benutzer mehr Daten auf einen Blick sieht und weniger scrollen muss. Stellen Sie außerdem die Eigenschaften Bildlaufleisten<\/b>, Navigationsschaltflächen <\/b>und Datensatzmarkierer <\/b>auf Nein <\/b>ein – diese Elemente brauchen Sie für das Hauptformular nicht.<\/p>\n Bild 3: Haupt- und Unterformular in der Entwurfsansicht<\/p>\n Nach einem Wechsel in die Formularansicht können Sie außerdem noch die Schriftgröße im Unterformular anpassen, indem Sie auf einen der Spaltenköpfe klicken und dann in der Symbolleiste oder im Ribbon den gewünschten Wert für die Schriftgröße eingeben. Das Formular ist nun fast fertig und sieht wie in Bild 4 aus.<\/p>\n Bild 4: Ohne weitere Handgriffe zeigt das Unterformular einfach alle Datensätze an.<\/p>\n Die einfachste Möglichkeit, die Datensätze des Unterformulars durch die Eingabe eines Suchbegriffs einzuschränken, ist der Einsatz der Eigenschaft Filter <\/b>des Unterformulars.<\/p>\n Dies funktioniert folgendermaßen: Der Benutzer gibt einen Suchbegriff in das Textfeld txtSuche <\/b>ein und betätigt dann die Schaltfläche mit der Beschriftung Suchen<\/b>. Dies löst eine Ereignisprozedur an, die Sie wie folgt anlegen:<\/p>\n Bild 5: Diese Prozedur führt den Suchvorgang durch.<\/p>\n<\/ul>\n Wenn Sie nun in die Formularansicht wechseln, können Sie die Prozedur gleich ausprobieren. Geben Sie einen Suchbegriff in das Suchfeld ein, zum Beispiel C*. Klicken Sie dann auf die Schaltfläche Suchen<\/b>, löst dies die soeben angelegte Prozedur aus.<\/p>\n Die If<\/b>-Bedingung prüft zunächst, ob die Länge der Zeichenkette im Textfeld txtSuche <\/b>länger als 0 Zeichen ist, also ob dort überhaupt ein Suchbegriff eingetragen wurde. Falls ja, wird ein Filterkriterium für die Eigenschaft Filter zusammengesetzt, das aus der Angabe des zu durchsuchenden Feldes, dem Vergleichsoperator LIKE <\/b>und einem Vergleichsausdruck besteht, der sich aus zwei Hochkommata und dem Inhalt des Textfeldes zusammensetzt.<\/p>\n Dieser Ausdruck wird anschließend der Eigenschaft Filter des im Unterformularsteuerelements enthaltenen Formulars zugewiesen. Dies allein bewirkt noch nichts, erst muss noch der Wert der Eigenschaft FilterOn <\/b>auf den Wert True <\/b>eingestellt werden. Das Ergebnis sieht wie in Bild 6 aus.<\/p>\n Bild 6: Das Suchformular in Aktion<\/p>\n Andersherum soll das Auslösen der Suche bei nicht vorhandenem Suchbegriff alle Einträge der Tabelle tblArtikel <\/b>anzeigen. Dies geschieht, wenn die Bedingung der If<\/b>-Bedingung nicht erfüllt, die Länge der Zeichenkette im Textfeld txtSuche <\/b>also 0 <\/b>ist. In diesem Fall wird schlicht der Ausdruck für die Eigenschaft Filter <\/b>auf eine leere Zeichenkette eingestellt („“<\/b>).<\/p>\n Nun ist dies alles nur halb so ergonomisch, wenn der Benutzer jedes Mal auf die Schaltfläche drücken muss, anstatt einfach nur die Eingabetaste zum Absenden des Suchbegriffs zu betätigen.<\/p>\n Damit diese Schaltfläche automatisch beim Betätigen der Eingabetaste ausgelöst wird, stellen Sie die Eigenschaft Standard <\/b>für diese Schaltfläche auf den Wert Ja <\/b>ein (siehe Bild 7).<\/p>\n Bild 7: Einstellen der Schaltfläche cmdSuche als Standardschaltfläche des Formulars<\/p>\n Das Zuweisen der Tabelle tblArtikel zur Eigenschaft Datenherkunft können Sie auch per VBA-Code erledigen. Der Eigenschaft Datenherkunft <\/b>lassen sich außerdem nicht nur Tabellennamen wie tblArtikel<\/b>, sondern auch Abfragenamen oder gar SQL-Ausdrücke wie SELECT * FROM tblArtikel <\/b>zuweisen.<\/p>\n Dies können Sie sich auch für die Programmierung einer Suchfunktion zunutze machen. In diesem Fall stellen Sie in der Ereignisprozedur, die durch die Schaltfläche cmdSuchen <\/b>ausgelöst wird, einen SQL-Ausdruck zusammen, der anschließend der Eigenschaft Recordsource <\/b>des im Unterformularsteuerelement sfmArtikelsuche <\/b>angezeigten Formulars zugewiesen wird:<\/p>\n Sollte hier kein Suchbegriff vorliegen, wird die Abfrage SELECT * FROM tblArtikel <\/b>als Datenherkunft übergeben. Diese Version der Suchfunktion finden Sie in der Beispieldatenbank im Formular frmArtikelsuche_Recordset<\/b>.<\/p>\n In der aktuellen Form kann der Benutzer die Platzhalter selbst eingeben, sie werden dann automatisch in die Suche mit einbezogen. Wenn Sie etwa den Ausruck A*<\/b> verwenden, lautet der Filter des ersten Beispiels <\/p>\n und die SELECT-Anweisung des zweiten Beispiels sieht so aus:<\/p>\n Sie können natürlich auch gleich entsprechende Platzhalter in die Prozeduren zum Zusammenstellen der Filter beziehungsweise der SELECT<\/b>-Abfrage integrieren.<\/p>\n Beim Zusammenstellen des Filters für das erste Beispiele verwenden Sie dann etwa den folgenden Ausdruck:<\/p>\n Entscheidend ist das Sternchen als Platzhalter am Ende des Ausdrucks. Wenn der Filter alle Artikelnamen erfassen soll, welche die angegebene Zeichenkette enthalten, können Sie auch vorn und hinten einen Platzhalter einfügen:<\/p>\n Beim Zusammenstellen der SELECT<\/b>-Anweisung im zweiten Beispiel würde das so aussehen – hier erst der Ausdruck für alle Artikelnamen, die mit dem angegebenen Suchbegriff beginnen:<\/p>\n Sollen alle Artikel angezeigt werden, deren Artikelname den Suchbegriff enthält, fügen Sie noch ein Sternchen hinzu:<\/p>\n Nachdem wir eine Suche nach einer Zeichenkette implementiert haben, fügen wir eine Suche nach Zahlenwerten hinzu – genau genommen die Suche nach Artikeln, deren Einzelpreis sich in bestimmten Grenzen befindet. Für den Start prüfen wir zunächst den genauen Preis des Artikels, später soll dann ein Preisbereich angegeben werden können. In der Beispieldatenbank haben wir das Formular frmArtikelsuche <\/b>zum Erweitern der Suchfunktion in ein neues Formular namens frmArtikelsucheMitPreis <\/b>kopiert. Diesem fügen Sie nun zunächst zwei neue Steuerelemente hinzu – ein Textfeld namens txtSucheEinzelpreis<\/b> und eine Schaltfläche namens cmdSucheEinzelpreis <\/b>(siehe Bild 8). Für die Schaltfläche hinterlegen Sie die folgende Prozedur, die durch das Ereignis Beim Klicken <\/b>ausgelöst wird:<\/p>\n Bild 8: Für die Suche nach einem bestimmten Einzelpreis verwenden wir zunächst eine eigene Schaltfläche.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\nSuchen per Filter<\/h2>\n
\n
<\/a><\/p>\nPrivate Sub <\/span>cmdSuche_Click()\r\n Dim <\/span>strFilter As String<\/span>\r\n If <\/span>Len<\/span>(Me!txtSuche) > 0 Then<\/span>\r\n strFilter = \"Artikelname LIKE '\" _\r\n & Me!txtSuche & \"'\"\r\n Me!sfmArtikelsuche.Form.Filter = strFilter\r\n Me!sfmArtikelsuche.Form.FilterOn = True<\/span>\r\n Else<\/span>\r\n Me!sfmArtikelsuche.Form.Filter = \"\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n<\/a><\/p>\n<\/a><\/p>\nSuche per Recordsource<\/h2>\n
Private Sub <\/span>cmdSuche_Click()\r\n Dim <\/span>strSQL As String<\/span>\r\n If <\/span>Len<\/span>(Me!txtSuche) > 0 Then<\/span>\r\n strSQL = \"SELECT * FROM tblArtikel WHERE \" _\r\n & \"Artikelname LIKE '\" & Me!txtSuche & \"'\"\r\n Else<\/span>\r\n strSQL = \"SELECT * FROM tblArtikel\"\r\n End If<\/span>\r\n Me!sfmArtikelsuche.Form.RecordSource = strSQL\r\nEnd Sub<\/span><\/pre>\nSuche mit Platzhalter<\/h2>\n
Artikelname LIKE 'A*' <\/pre>\n
SELECT * FROM tblArtikel WHERE Artikelname LIKE 'A*'<\/pre>\n
strFilter = \"Artikelname LIKE '\" & Me!txtSuche & \"*'\"<\/pre>\n
strFilter = \"Artikelname LIKE '*\" & Me!txtSuche & \"*'\"<\/pre>\n
strSQL = \"SELECT * FROM tblArtikel WHERE \" _\r\n & \"Artikelname LIKE '\" & Me!txtSuche & \"*'\"<\/pre>\n
strSQL = \"SELECT * FROM tblArtikel WHERE \" _\r\n & \"Artikelname LIKE '*\" & Me!txtSuche & \"*'\"<\/pre>\n
Suche nach Zahlenwerten<\/h2>\n
<\/a><\/p>\nPrivate Sub <\/span>cmdSucheEinzelpreis_Click()\r\n Dim <\/span>strFilter As String<\/span>\r\n If <\/span>Len<\/span>(Me!txtSucheEinzelpreis) > 0 Then<\/span>\r\n strFilter = \"Einzelpreis = \" _\r\n & Me!txtSucheEinzelpreis\r\n Me!sfmArtikelsuche.Form.Filter = strFilter\r\n Me!sfmArtikelsuche.Form.FilterOn = True<\/span>\r\n Else<\/span>\r\n Me!sfmArtikelsuche.Form.Filter = \"\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\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