{"id":55000117,"date":"2012-10-01T00:00:00","date_gmt":"2020-01-24T15:58:12","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=117"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Schnellsuche_im_Listenfeld","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Schnellsuche_im_Listenfeld.html","title":{"rendered":"Schnellsuche im Listenfeld"},"content":{"rendered":"

Listenfelder eignen sich prima zur Anzeige von Daten in Listenform – vor allem, wenn der Benutzer diese Daten nicht an Ort und Stelle ändern soll. Im Gegensatz zur Datenblattansicht lässt es aber auch eigene Filter- oder Sortiermöglichkeiten vermissen. Dieser Artikel zeigt, wie Sie zumindest eine komfortable Suche nach bestimmten Einträgen realisieren.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1205_Schnellsuche.mdb<\/b>.<\/p>\n

Schnellsuche<\/h2>\n

Warum heißt die in diesem Artikel vorgestellte Suchfunktion eigentlich Schnellsuche Nun: Im Gegensatz zu einer Suche, bei der Sie den Suchbegriff in ein Suchfeld eingeben und die Suche dann etwa durch Betätigen der Eingabetaste oder per Klick auf eine entsprechende Schaltfläche anstoßen, soll die Suche hier nach Eingabe jedes einzelnen Zeichens ausgelöst werden. Sprich: Wenn Sie für eine Suche im Feld Artikelname<\/b> der Tabelle tblArtikel <\/b>den Buchstaben A <\/b>eingeben, soll das Listenfeld gleich alle Artikel anzeigen, die mit diesem Buchstaben beginnen. Geben Sie einen weiteren Buchstaben wie etwa L<\/b> ein, zeigt das Listenfeld nur noch Einträge an, die mit AL <\/b>beginnen.<\/p>\n

Wenn Sie nach allen Artikelnamen suchen wollen, die einen Buchstaben oder eine Zeichenfolge an irgendeiner Stelle enthalten, verwenden Sie entsprechende Platzhalter wie etwa das Sternchen. Der Suchbegriff *A* <\/b>liefert dann alle Artikel, die den Buchstaben A <\/b>im Namen enthalten (siehe Bild 1).<\/p>\n

\"Schnellsuche<\/a><\/p>\n

Bild 1: Schnellsuche im Listenfeld<\/p>\n

Alternativ können Sie die Suche auch so gestalten, dass automatisch alle Artikelnamen ausgegeben werden, die eine bestimmte Zeichenfolge enthalten – dazu später mehr.<\/p>\n

Formular mit Schnellsuche erstellen<\/h2>\n

Legen Sie ein neues Formular an und speichern Sie es unter dem Namen frmSchnellsuche<\/b>.<\/p>\n

Fügen Sie dem Formular dann ein Listenfeld zur Anzeige des Suchergebnisses an. Das Listenfeld soll den Namen lstArtikel <\/b>erhalten. Es soll nur zur Auswahl eines Artikels dienen, daher reicht es, wenn es die Artikelnamen anzeigt. Damit der ausgewählte Datensatz jedoch eindeutig identifiziert werden kann, muss die Datensatzherkunft <\/b>des Listenfeldes neben dem Feld Artikelname <\/b>auch noch das Feld ArtikelID <\/b>enthalten. Außerdem kann eine Sortierung nach dem Feld Artikelname<\/b> nicht schaden (siehe Bild 2).<\/p>\n

\"Datensatzherkunft<\/a><\/p>\n

Bild 2: Datensatzherkunft des Listenfeldes<\/p>\n

Damit das Listenfeld nur den Artikelnamen, nicht aber das Feld ArtikelID <\/b>anzeigt, stellen Sie außerdem die Eigenschaften Spaltenanzahl <\/b>und Spaltenbreiten <\/b>des Listenfeld-Steuerelements auf die Werte 2 <\/b>und 0cm <\/b>ein. Wie ein Wechsel in die Formularansicht zeigt, liefert das Listenfeld bereits die gewünschten Daten (siehe Bild 3). Bevor wir uns um das Textfeld zur Eingabe des Suchergebnisses kümmern, stellen wir noch einige Formulareigenschaften ein. Die Eigenschaften Datensatzmarkierer<\/b>, Navigationsschaltflächen<\/b>, Trennlinien <\/b>und Bildlaufleisten <\/b>stellen Sie auf den Wert Nein <\/b>ein. Das Formular wirkt dadurch etwas aufgeräumter, außerdem benötigen wir all diese Elemente aktuell nicht.<\/p>\n

\"Das<\/a><\/p>\n

Bild 3: Das Listenfeld wird wie gewünscht gefüllt.<\/p>\n

Suchfeld anlegen<\/h2>\n

Als Suchfeld verwenden wir ein herkömmliches Textfeld. Es soll txtSuche <\/b>heißen und soll über dem Listenfeld platziert werden. Die Eingabe von Suchbegriffen ist kein Problem, aber wie sorgen wir dafür, dass die im Listenfeld angezeigten Artikelnamen nach jeder änderung des Suchbegriffs aktualisiert werden<\/p>\n

Dazu benötigen wir ein Ereignis und eine entsprechende Ereignisprozedur, die nach jeder änderung des Textfeldinhalts ausgelöst wird. Habe ich änderung gesagt Nun, da gibt es doch eine Ereigniseigenschaft mit dem Namen Bei änderung<\/b>. Prüfen Sie also, ob dieses Ereignis das Passende ist und legen dieses an. Dazu markieren Sie das Textfeld, aktivieren das Eigenschaftsfenster und wählen für die Eigenschaft Bei änderung <\/b>den Eintrag [Ereignisprozedur] <\/b>aus (siehe Bild 4). Die nach einem Klick auf die Schaltfläche mit den drei Punkten (…) im VBA-Editor angezeigte Prozedur ergänzen Sie wie folgt:<\/p>\n

\"Anlegen<\/a><\/p>\n

Bild 4: Anlegen der Ereignisprozedur, die durch das Ereignis Bei änderung ausgelöst wird.<\/p>\n

Private Sub <\/span>txtSuche_Change()\r\n     Debug.Print<\/span> \"Suchbegriff: \" & Me!txtSuche\r\nEnd Sub<\/span><\/pre>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\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
\n\n\t\t\n\t\t