{"id":55000815,"date":"2012-02-01T00:00:00","date_gmt":"2020-05-22T21:52:18","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=815"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Suche_mit_Liste","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Suche_mit_Liste\/","title":{"rendered":"Suche mit Liste"},"content":{"rendered":"

\"\"<\/p>\n

Wenn Sie Kundendaten in einem Formular anzeigen, nimmt dies eine Menge Platz ein. Für eine Übersichtsliste wird es in den meisten Fällen zu eng – daher kommt oft ein weiteres Formular als Werkzeug für die Auswahl des zu bearbeitenden Datensatzes hinzu. Mit ein paar Tricks packen Sie dennoch eine adäquate Funktion zum schnellen Auffinden bestimmter Kundendaten hinzu: zum Beispiel mit einem Textfeld zur Eingabe von Suchbegriffen, das seine Treffer in einem ansonsten verborgenen Listenfeld anzeigt und zur Auswahl anbietet.<\/b><\/p>\n

Einen schönen Einsatzzweck für die Lösung aus diesem Beitrag finden Sie in einem weiteren Beitrag namens Formular für Liefer- und Rechnungsadressen <\/b>(www.access-im-unternehmen.de\/816<\/b>). Das Formular zeigt jeweils genau einen Datensatz der Tabelle tblAdressen <\/b>an. Eine gute Gelegenheit, eine platzsparende Möglichkeit zum Auswählen eines bestimmten Datensatzes einzubauen!<\/p>\n

Was soll die Funktion bieten Grundsätzlich soll nur ein Textfeld zur Eingabe des Suchbegriffs sichtbar sein. Dieses soll bei Betätigung einer speziellen Tastenkombination, beispielsweise Strg + F<\/b>, aktiviert werden und dem Benutzer die Möglichkeit zur Eingabe eines Suchbegriffs bieten. Dieser Suchbegriff soll nach noch festzulegenden Regeln den Datenbestand durchforsten und die Ergebnisse in einem Listenfeld anzeigen (s. Bild 1). Dieses Listenfeld soll jedoch nur sichtbar sein, wenn die Eingabe überhaupt Ergebnisse liefert! Enthält das Listenfeld einen passenden Eintrag, soll der Benutzer ganz einfach mit der Nach unten<\/b>-Taste vom Textfeld zur Eingabe des Suchbegriffs zum Listenfeld gelangen, um einen der gefundenen Einträge auszuwählen. Hat er einen passenden Eintrag gefunden und ausgewählt, soll das Betätigen der Eingabetaste dazu führen, dass das Suchfeld geleert, das Listenfeld geschlossen und der betroffene Datensatz im Formular angezeigt wird.<\/p>\n

\"pic005.png\"<\/p>\n

Bild 1: Schnellsuche nach Kundendaten<\/span><\/b><\/p>\n

Einfache Suche<\/b><\/p>\n

Um die grundlegenden Techniken kennenzulernen und auszuprobieren, legen Sie zunächst ein Textfeld über den übrigen Steuerelementen an. Geben Sie dem Textfeld den Namen txtSuche<\/b>. Fügen Sie außerdem ein Listenfeld hinzu, das genauso breit ist wie das Textfeld. Nennen Sie es lstSuchergebnis <\/b>und stellen Sie seine Eigenschaft Sichtbar <\/b>auf den Wert Nein <\/b>ein, damit es beim Anzeigen des Formulars gar nicht erst erscheint.<\/p>\n

Die Höhe können Sie indes gleich auf den gewünschten Wert einstellen – da das Listenfeld normalerweise unsichtbar ist, spielt der im Entwurf überdeckte Bereich keine Rolle (s. Bild 2).<\/p>\n

\"pic001.png\"<\/p>\n

Bild 2: Erster Entwurf des Suchfeldes und des Listenfeldes zur Anzeige der Suchergebnisse<\/span><\/b><\/p>\n

Suche aktivieren per Strg + F<\/b><\/p>\n

Die Suche soll mit der Tastenkombination Strg + F <\/b>aktiviert werden. Dies erledigen Sie am besten mit dem Ereignis Bei Taste ab <\/b>des Formulars. Damit dieses Ereignis funktioniert, stellen Sie außerdem die Eigenschaft Tastenvorschau <\/b>auf Ja <\/b>ein (s. Bild 3).<\/p>\n

\"pic002.png\"<\/p>\n

Bild 3: Aktivieren der Tastenkombination<\/span><\/b><\/p>\n

Die Prozedur, die durch das Ereignis Bei Taste ab <\/b>ausgelöst werden soll, sieht schließlich wie folgt aus:<\/p>\n

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)\r\n    Select Case KeyCode\r\n        Case vbKeyF\r\n            If Shift = acCtrlMask Then\r\n                Me!txtSuche.SetFocus\r\n                KeyCode = 0\r\n            End If\r\n    End Select\r\nEnd Sub<\/pre>\n
Die Prozedur prüft die beiden Parameter KeyCode <\/b>und Shift<\/b>. Hat KeyCode <\/b>den Wert vbKeyF <\/b>(für F<\/b>) und Shift <\/b>den Wert acCtrlMask <\/b>(für die Strg<\/b>-Taste), wollen die beiden Anweisungen in der If…Then<\/b>-Bedingung ausgeführt werden.<\/p>\n
Die erste verschiebt den Fokus auf das Steuerelement txtSuche<\/b>, die zweite biegt den Wert des Parameters KeyCode <\/b>auf 0 <\/b>um, was dem Drücken keiner Taste entspricht.<\/p>\n
Dies bewirkt, dass die gedrückte Taste nicht weiter ausgewertet wird. Würden Sie diese Einstellung nicht vornehmen, würde Strg + F <\/b>von Access selbst ausgewertet, was die Anzeige des Access-eigenen Suchen<\/b>-Dialogs nach sich ziehen würde.<\/p>\n
Damit wäre die erste Teilaufgabe gelöst – der Benutzer gelangt mit der Tastenkombination Strg + F <\/b>in das Suchfeld.<\/p>\n
Suche nach Firmenname<\/b><\/p>\n
Danach implementieren wir eine sehr einfache Suche, die nur den Firmennamen berücksichtigt. Die Suche soll nach Eingabe jedes einzelnen Zeichens ausgelöst werden, was den Einsatz der Ereigniseigenschaft Bei änderung <\/b>voraussetzt.<\/p>\n
Dieses Ereignis wird mit jeder änderung des angezeigten Textes des Suchfeldes ausgelöst. Fügen Sie den Wert [Ereignisprozedur] <\/b>hinzu und klicken Sie auf die Schaltfläche mit den drei Punkten, um die nun im VBA-Editor erscheinende Ereignisprozedur wie in Listing 1<\/a><\/span> zu ergänzen.<\/p>\n
Listing 1: Zusammenstellen und zuweisen eines Suchausdrucks, dessen Ergebnis im Listenfeld lstSuchergebnis angezeigt werden soll<\/p>\n
Private Sub txtSuche_Change()\r\n    Dim strSQL As String\r\n    If Len(Me!txtSuche.Text) > 0 Then\r\n        strSQL = "SELECT Firma_Lieferung FROM tblAdressen WHERE Firma_Lieferung LIKE ''" _\r\n              & Me!txtSuche.Text & "*''"\r\n        Me!lstSuchergebnis.RowSource = strSQL\r\n        If Me!lstSuchergebnis.ListCount > 0 Then\r\n            Me!lstSuchergebnis.Visible = True\r\n        Else\r\n            Me!lstSuchergebnis.Visible = False\r\n        End If\r\n    Else\r\n        Me!lstSuchergebnis.RowSource = ""\r\n        Me!lstSuchergebnis.Visible = False\r\n    End If\r\nEnd Sub<\/pre>\n
Die Prozedur stellt in der Variablen strSQL <\/b>eine einfache SQL-Abfrage zusammen, die zunächst nur alle Firmennamen der Lieferanschrift zurückliefern soll, deren Name mit dem im Suchfeld eingetragenen Ausdruck beginnt.<\/p>\n
Dies soll jedoch nur geschehen, wenn das Textfeld txtSuche <\/b>überhaupt einen Ausdruck enthält, die Länge des Wertes der Eigenschaft Text <\/b>des Textfeldes also größer 0 <\/b>ist.<\/p>\n
In diesem Fall setzt die Prozedur den SQL-Ausdruck zusammen, weist diesen der Eigenschaft RowSource <\/b>des Listenfeldes zu und macht dieses schließlich sichtbar – allerdings nur, wenn dieses überhaupt mindestens einen Datensatz anzeigt.<\/p>\n
Sollte das Textfeld txtSuche <\/b>keinen Text enthalten, wird das Listenfeld schlicht unsichtbar gemacht.<\/p>\n
Damit wäre bereits ein Dummy für den zweiten Schritt der Lösung erstellt: Das Listenfeld zeigt ein Suchergebnis an – wenn auch zugegebenermaßen nur ein einziges Feld bei Suche und Anzeige berücksichtigt wird (s. Bild 4).<\/p>\n
\"pic003.png\"<\/p>\n
Bild 4: Anzeigen der Suchergebnisse<\/span><\/b><\/p>\n
<\/p>\n
Vom Suchfeld zur Ergebnisliste<\/b><\/p>\n
Sobald die Suchliste mindestens ein Ergebnis anzeigt, soll der Benutzer mit einigen Tasten direkt über die Tastatur zum Listenfeld gelangen, um den gewünschten Eintrag auszuwählen (s. Bild 5). <\/p>\n
\"pic004.png\"<\/p>\n
Bild 5: Mit einem Tastendruck wird der erste Eintrag des Suchergebnisses markiert.<\/span><\/b><\/p>\n
Welche Tasten sollen dies ermöglichen Am besten diejenigen, mit denen der Benutzer es auch sonst gewohnt ist, von Steuerelement zu Steuerelement zu springen. In diesem Fall wären dies die Nach rechts<\/b>– und die Nach unten<\/b>-Taste sowie die Tabulator<\/b>-Taste. Das Betätigen dieser Tasten können Sie, während das Steuerelement txtSuche <\/b>den Fokus hat, mit dessen Ereignisprozedur Bei Taste ab <\/b>abfangen.<\/p>\n
Diese Prozedur implementieren Sie wie in Listing 2<\/a><\/span>. Die Prozedur prüft zunächst, ob das Listenfeld überhaupt sichtbar ist. Ist dies nicht der Fall, wird die Prozedur gleich verlassen und die gedrückte Taste hat die gleiche Wirkung, als ob diese Prozedur überhaupt nicht ausgelöst worden wäre. Wenn das Listenfeld jedoch mindestens einen Wert anzeigt und somit sichtbar ist, prüft die Prozedur den KeyCode <\/b>der betätigten Taste. Lautet dieser vbKeyTab <\/b>(Tabulator-Taste), vbKeyRight <\/b>(Nach rechts-Taste) oder vbKeyDown <\/b>(Nach unten-Taste), wird der Fokus auf das Listenfeld lstSuchergebnis <\/b>verschoben. Außerdem wird gleich der erste Eintrag des Suchergebnisses markiert. Zusätzlich wird mit KeyCode = 0 <\/b>sichergestellt, dass die Betätigung der Taste keine weiteren Aktionen auslöst.<\/p>\n
Listing 2: Aktivieren des Listenfeldes und markieren des ersten Eintrags der Ergebnisliste<\/p>\n
Private Sub txtSuche_KeyDown(KeyCode As Integer, Shift As Integer)\r\n    If Me!lstSuchergebnis.Visible = False Then\r\n        Exit Sub\r\n    End If\r\n    Select Case KeyCode\r\n        Case vbKeyTab, vbKeyLeft, vbKeyDown\r\n            Me!lstSuchergebnis.SetFocus\r\n            Me!lstSuchergebnis = Me!lstSuchergebnis.ItemData(0)\r\n            KeyCode = 0\r\n        Case Else\r\n            Debug.Print KeyCode\r\n    End Select\r\nEnd Sub<\/pre>\n
Von der Ergebnisliste zum Suchfeld<\/b><\/p>\n
Wenn Sie die Einträge der Ergebnisliste durchgesehen haben (was ja durchaus per Scrolling erfolgen muss, wenn nicht alle Einträge direkt sichtbar sind), möchten Sie vielleicht wieder zum Suchfeld zurückgelangen, um den Suchbegriff genauer zu spezifizieren. Wenn dies auf einfache Weise geschehen soll, ist auch hier eine kleine Ereignisprozedur nötig, die diesmal durch das Ereignis Bei Taste ab <\/b>des Listenfeldes lstSuchergebnis <\/b>angestoßen wird. Diese Prozedur sieht wie in Listing 3<\/a><\/span> aus und prüft zunächst, welche Taste gedrückt wurde. Im Falle der Nach oben<\/b>– und der Nach links<\/b>-Taste wird die Variable bolZurueck <\/b>ebenso auf True <\/b>eingestellt wie bei der Tastenkombination Umschalttaste + Tabulator-Taste.<\/p>\n
Listing 3: Zurückspringen vom Listenfeld zum Suchfeld<\/p>\n
Private Sub lstSuchergebnis_KeyDown(KeyCode As Integer, Shift As Integer)\r\n    Dim bolZurueck As Boolean\r\n    Select Case KeyCode\r\n        Case vbKeyUp, vbKeyLeft\r\n            bolZurueck = True\r\n        Case vbKeyTab\r\n            If Shift = acShiftMask Then\r\n                bolZurueck = True\r\n            End If\r\n    End Select\r\n    If bolZurueck And Me!lstSuchergebnis.ListIndex = 0 Then\r\n        Me!txtSuche.SetFocus\r\n        Me!txtSuche.SelStart = Me!txtSuche.SelLength\r\n        Me!lstSuchergebnis = Null\r\n    End If\r\nEnd Sub<\/pre>\n
Wenn bolZurueck <\/b>nach dieser Prüfung den Wert True <\/b>enthält und außerdem der oberste Eintrag des Listenfeldes markiert ist, was durch den Ausdruck Me!lstSuchergebnis.ListIndex = 0 <\/b>geprüft wird, verschiebt die Prozedur den Fokus wieder zum Textfeld txtSuche<\/b>.<\/p>\n
Dort wird die Einfügemarke auf die Position hinter dem zuletzt eingegebenen Zeichen gesetzt. Außerdem wird die Auswahl im Listenfeld wieder zurückgesetzt, sodass keiner der Einträge mehr markiert ist.<\/p>\n
Gewählten Eintrag im Formular auswählen<\/b><\/p>\n
Wenn der Benutzer hingegen den gewünschten Eintrag gefunden hat, möchte er den passenden Datensatz gegebenenfalls per Doppelklick oder mit der Eingabetaste im Formular anzeigen.<\/p>\n
Damit dies gelingt, legen Sie zwei Ereignisprozeduren für das Listenfeld an. Eines wird durch das Ereignis Beim Doppelklicken <\/b>und eines durch Bei Taste ab <\/b>ausgelöst.<\/p>\n
Die Prozedur für das Ereignis Beim Doppelklicken <\/b>soll lediglich eine weitere Prozedur namens DatensatzAnzeigen <\/b>aufrufen:<\/p>\n
Private Sub lstSuchergebnis_DblClick(Cancel As Integer)\r\n    DatensatzAnzeigen\r\nEnd Sub<\/pre>\n
Die Prozedur DatensatzAnzeigen <\/b>sieht so aus:<\/p>\n
Private Sub DatensatzAnzeigen()\r\n    Me.Recordset.FindFirst "KundeID = " & Me!lstSuchergebnis\r\n    Me!lstSuchergebnis = Null\r\n    Me!txtSuche = Null\r\n    Me!txtSuche.SetFocus\r\n    Me!lstSuchergebnis.Visible = False\r\nEnd Sub<\/pre>\n
Sie verschiebt zunächst den Datensatzzeiger auf den Datensatz, dessen Primärschlüsselwert mit dem Wert der gebundenen Spalte des Listenfeldes übereinstimmt. Dazu sind noch zwei änderungen am bisherigen Entwurf nötig. Die SQL-Anweisung muss als erstes Feld das Primärschlüsselfeld der Datenherkunft des Formulars enthalten:<\/p>\n
strSQL = "SELECT KundeID, Firma_Lieferung FROM tblAdressen WHERE Firma_Lieferung LIKE ''" _\r\n    & Me!txtSuche.Text & "*''"<\/pre>\n
Außerdem müssen Sie die beiden Eigenschaften Spaltenanzahl <\/b>und Spaltenbreiten <\/b>des Listenfeldes auf 2 <\/b>und 0cm <\/b>einstellen, damit zwar das Primärschlüsselfeld KundeID <\/b>als gebundene Spalte verwendet, diese aber dennoch nicht im Listenfeld angezeigt wird.<\/p>\n
Nun liefert Me!lstSuchergebnis <\/b>gleich den Primärschlüsselwert des anzuzeigenden Datensatzes. Anschließend wird noch der Fokus auf das Suchfeld txtSuche <\/b>verschoben und das Listenfeld lstSuchergebnis <\/b>ausgeblendet. Das Suchfeld sowie die Ergebnisliste werden außerdem geleert beziehungsweise die Markierung wird entfernt.<\/p>\n
Die Prozedur DatensatzAnzeigen <\/b>soll auch ausgelöst werden, wenn der Benutzer bei ausgewähltem Listenfeldeintrag die Eingabetaste betätigt. Dazu fügen Sie der Select Case<\/b>-Bedingung der Prozedur, die durch das Ereignis Bei Taste ab <\/b>des Listenfelds lstSuchergebnis <\/b>ausgelöst wird, noch einen Zweig hinzu:<\/p>\n
Private Sub lstSuchergebnis_KeyDown(KeyCode As Integer, Shift As Integer)\r\n    Dim bolZurueck As Boolean\r\n    Select Case KeyCode\r\n        Case 13\r\n            DatensatzAnzeigen\r\n            KeyCode = 0\r\n            Exit Sub\r\n    ...<\/pre>\n
Auf diese Weise können Sie komplett tastaturgesteuert nach Datensätzen suchen, die einen bestimmten Firmennamen in der Lieferanschrift aufweisen.<\/p>\n
Suche verwerfen<\/b><\/p>\n
Wenn der Benutzer die Escape<\/b>-Taste betätigt, während der Fokus auf dem Listenfeld lstSuchergebnis <\/b>liegt, soll dieses einfach ausgeblendet und der Fokus zurück zum Textfeld verschoben werden. Dies erreichen Sie ebenfalls durch einen weiteren Case<\/b>-Zweig in der entsprechenden Select Case<\/b>-Bedingung:<\/p>\n
Case vbKeyEscape\r\n    Me!txtSuche.SetFocus\r\n    Me!txtSuche.SelStart = Me!txtSuche.SelLength\r\n    Me!lstSuchergebnis.Visible = False\r\n    Me!lstSuchergebnis = Null\r\n    KeyCode = 0<\/pre>\n
Verfeinern der Bedingungen und der Ergebnisliste<\/b><\/p>\n
Die grundsätzlichen Funktionen sind nun vorhanden. Das Suchfeld füllt die Ergebnisliste, ein Klick auf einen der angezeigten Einträge zeigt den entsprechenden Datensatz an. Allerdings scheint es unwahrscheinlich, dass man ausschließlich nach dem Firmennamen der Lieferadresse forscht.<\/p>\n
Welche Felder des Datensatzes aber sollen durchsucht werden Und soll der Benutzer einen oder auch mehrere Suchbegriffe angeben können Sollen mehrere Suchbegriffe einfach durch Leerzeichen voneinander getrennt werden<\/p>\n
Und welche Kriterien gelten bezüglich der Platzhalter – sollen alle Felder komplett nach den angegebenen Texten durchsucht werden oder nur der Beginn der jeweiligen Textfelder In jedem Fall könnte man dem Benutzer auf geeignete Art mitteilen, dass er für Suchbegriffe durch Voranstellen oder Anhängen des Sternchens (*) festlegen kann, wie nach dem Suchbegriff gesucht werden soll.<\/p>\n
Darstellung im Listenfeld<\/b><\/p>\n
Die Einstellung der Anzeige im Listenfeld ist der einfachere Teil bei der Verfeinerung. Sie brauchen dazu einfach nur die anzuzeigenden Felder in den bei der Suche verwendeten SQL-Ausdruck einzubauen und die Eigenschaften Spaltenanzahl <\/b>und Spaltenbreiten <\/b>entsprechend einzustellen.<\/p>\n
Da die Anzeige der Suchergebnisse jedoch nur der schnellen Auswahl eines Eintrags dienen soll, kann man dies auch vereinfachen: Fügen Sie in der SQL-Anweisung einfach alle gewünschten Felder durch ein bestimmtes Zeichen wie etwa das Pipe-Zeichen zusammen und belassen Sie Spaltenanzahl <\/b>und Spaltenbreiten <\/b>bei den Werten 2 <\/b>und 0cm<\/b>.<\/p>\n
Den Ausdruck für das Listenfeld hingegen stellen Sie in der Prozedur txtSuche_Change <\/b>beispielsweise wie folgt ein:<\/p>\n
strSQL = "SELECT KundeID, Firma_Lieferung & ''|'' & Vorname_Lieferung & '' '' \r\n      & Nachname_Lieferung & ''|'' & Strasse_Lieferung & ''|'' & PLZ_Lieferung & '' '' \r\n    & Ort_Lieferung FROM tblAdressen WHERE Firma_Lieferung LIKE ''" \r\n    & Me!txtSuche.Text & "*''"<\/pre>\n
Das Ergebnis sieht dann wie in Bild 1 vorne aus.<\/p>\n
Verfeinern des Vergleichskriteriums<\/b><\/p>\n
In der ersten Version durchsuchen wir nur das Feld Firma_Lieferung <\/b>nach dem angegebenen Ausdruck.<\/p>\n
Wenn Sie einfach alle Felder der Lieferadresse durchsuchen möchten, können Sie den gleichen Ausdruck, der auch im Listenfeld angezeigt werden soll, als Vergleichsfeld angeben. Die Zusammensetzung des SQL-Ausdrucks sieht dann wie folgt aus:<\/p>\n
strSQL = "SELECT KundeID, Firma_Lieferung & ''|'' & Vorname_Lieferung & '' '' \r\n      & Nachname_Lieferung & ''|'' & Strasse_Lieferung & ''|'' & PLZ_Lieferung & '' '' \r\n      & Ort_Lieferung FROM tblAdressen WHERE Firma_Lieferung \r\n    & ''|'' & Vorname_Lieferung & '' '' & Nachname_Lieferung & ''|'' & Strasse_Lieferung \r\n    & ''|'' & PLZ_Lieferung & '' '' & Ort_Lieferung LIKE ''*" & Me!txtSuche.Text & "*''"<\/pre>\n
In diesem Fall zeigt das Listenfeld alle Einträge an, bei denen der Suchbegriff in einem der Felder Firma, Vorname, Nachname, Straße, PLZ oder Ort der Lieferadresse vorkommt – und zwar an beliebiger Stelle, weil der Suchbegriff noch durch zwei Sternchen (*) eingefasst wird.<\/p>\n
In den meisten Fällen reicht dies – außer vielleicht, Sie suchen in einem sehr umfangreichen Datenbestand nach einem Nachnamen mit dem Wert Müller<\/b>. Dann kann es gegebenenfalls hilfreich sein, einen Vornamen einzugeben.<\/p>\n
Auch dies ist kein Problem: Wenn Sie dann den Vornamen, ein Sternchen und dann den Nachnamen eingeben, findet diese einfache Suchroutine vermutlich schon den gesuchten Kunden. Ausnahmen treten auf, wenn der Nachname beispielsweise in der Straße oder einem anderen der weiter hinten angegebenen Felder im Suchausdruck vorkommt.<\/p>\n
Wenn Sie also Michael Müller <\/b>mit dem Ausdruck Michael*Müller <\/b>suchen, finden Sie unter Umständen auch Einträge, deren Vorname zwar auf Michael <\/b>lautet, die aber als Straße den Müllerweg <\/b>liefern. Bild 6 zeigt in einem weiteren Beispiel, wie Sie nach Lieferadressen von Firmen suchen, die GmbH im Namen führen und in Berlin ansässig sind. Auch hier kann es Ungenauigkeiten geben, aber Sie wollen ja nur Datensätze suchen und nicht etwa änderungen oder Löschungen an den gefundenen Datensätzen vornehmen.<\/p>\n
\"pic006.png\"<\/p>\n
Bild 6: Suche nach mehreren Begriffen gleichzeitig<\/span><\/b><\/p>\n
Zusammenfassung und Ausblick<\/b><\/p>\n
Die hier vorgestellte Lösung ist recht schlank und lässt sich leicht in eigene Anwendungen einbauen. Sie spart vor allem Platz, weil das zur Anzeige des Suchergebnisses verwendete Listenfeld nur während der Suche sichtbar ist.<\/p>\n
Die Suchbegriffe lassen sich in einem gewissen Rahmen flexibel gestalten. Sicher ist eine komplexere Lösung möglich, die eine Suche ähnlich wie unter Google ermöglicht, dies ist jedoch für die hier vorliegende Aufgabe gar nicht unbedingt nötig.<\/p>\n
Downloads zu diesem Beitrag<\/h3>\n
Enthaltene Beispieldateien:<\/p>\n
SucheMitListe.mdb<\/p>\n
Download<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
Wenn Sie Kundendaten in einem Formular anzeigen, nimmt dies eine Menge Platz ein. Für eine Übersichtsliste wird es in den meisten Fällen zu eng – daher kommt oft ein weiteres Formular als Werkzeug für die Auswahl des zu bearbeitenden Datensatzes hinzu. Mit ein paar Tricks packen Sie dennoch eine adäquate Funktion zum schnellen Auffinden bestimmter Kundendaten hinzu: zum Beispiel mit einem Textfeld zur Eingabe von Suchbegriffen, das seine Treffer in einem ansonsten verborgenen Listenfeld anzeigt und zur Auswahl anbietet.<\/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":[66012012,662012,44000023],"tags":[],"class_list":["post-55000815","post","type-post","status-publish","format-standard","hentry","category-66012012","category-662012","category-Mit_Formularen_arbeiten"],"yoast_head":"\nSuche mit Liste - Access im Unternehmen<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/access-im-unternehmen.de\/Suche_mit_Liste\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Suche mit Liste\" \/>\n<meta property=\"og:description\" content=\"Wenn Sie Kundendaten in einem Formular anzeigen, nimmt dies eine Menge Platz ein. Für eine Übersichtsliste wird es in den meisten Fällen zu eng - daher kommt oft ein weiteres Formular als Werkzeug für die Auswahl des zu bearbeitenden Datensatzes hinzu. Mit ein paar Tricks packen Sie dennoch eine adäquate Funktion zum schnellen Auffinden bestimmter Kundendaten hinzu: zum Beispiel mit einem Textfeld zur Eingabe von Suchbegriffen, das seine Treffer in einem ansonsten verborgenen Listenfeld anzeigt und zur Auswahl anbietet.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/Suche_mit_Liste\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2020-05-22T21:52:18+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg05.met.vgwort.de\/na\/2b9a0ab9924a487c826cb7a1d24a6d98\" \/>\n<meta name=\"author\" content=\"Andr\u00e9 Minhorst\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Andr\u00e9 Minhorst\" \/>\n\t<meta name=\"twitter:label2\" content=\"Gesch\u00e4tzte Lesezeit\" \/>\n\t<meta name=\"twitter:data2\" content=\"14\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Suche_mit_Liste\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Suche_mit_Liste\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"Suche mit Liste\",\"datePublished\":\"2020-05-22T21:52:18+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Suche_mit_Liste\\\/\"},\"wordCount\":2358,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Suche_mit_Liste\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/2b9a0ab9924a487c826cb7a1d24a6d98\",\"articleSection\":[\"1\\\/2012\",\"2012\",\"Mit Formularen arbeiten\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Suche_mit_Liste\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Suche_mit_Liste\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Suche_mit_Liste\\\/\",\"name\":\"Suche mit Liste - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Suche_mit_Liste\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Suche_mit_Liste\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/2b9a0ab9924a487c826cb7a1d24a6d98\",\"datePublished\":\"2020-05-22T21:52:18+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Suche_mit_Liste\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Suche_mit_Liste\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Suche_mit_Liste\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/2b9a0ab9924a487c826cb7a1d24a6d98\",\"contentUrl\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/2b9a0ab9924a487c826cb7a1d24a6d98\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Suche_mit_Liste\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Suche mit Liste\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"name\":\"Access im Unternehmen\",\"description\":\"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access\",\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/access-im-unternehmen.de\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"de\"},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\",\"name\":\"Andr\u00e9 Minhorst Verlag\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"contentUrl\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"width\":370,\"height\":111,\"caption\":\"Andr\u00e9 Minhorst Verlag\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\",\"name\":\"Andr\u00e9 Minhorst\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"caption\":\"Andr\u00e9 Minhorst\"}}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","yoast_head_json":{"title":"Suche mit Liste - Access im Unternehmen","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/access-im-unternehmen.de\/Suche_mit_Liste\/","og_locale":"de_DE","og_type":"article","og_title":"Suche mit Liste","og_description":"Wenn Sie Kundendaten in einem Formular anzeigen, nimmt dies eine Menge Platz ein. Für eine Übersichtsliste wird es in den meisten Fällen zu eng - daher kommt oft ein weiteres Formular als Werkzeug für die Auswahl des zu bearbeitenden Datensatzes hinzu. Mit ein paar Tricks packen Sie dennoch eine adäquate Funktion zum schnellen Auffinden bestimmter Kundendaten hinzu: zum Beispiel mit einem Textfeld zur Eingabe von Suchbegriffen, das seine Treffer in einem ansonsten verborgenen Listenfeld anzeigt und zur Auswahl anbietet.","og_url":"https:\/\/access-im-unternehmen.de\/Suche_mit_Liste\/","og_site_name":"Access im Unternehmen","article_published_time":"2020-05-22T21:52:18+00:00","og_image":[{"url":"http:\/\/vg05.met.vgwort.de\/na\/2b9a0ab9924a487c826cb7a1d24a6d98","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"14\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/Suche_mit_Liste\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/Suche_mit_Liste\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"Suche mit Liste","datePublished":"2020-05-22T21:52:18+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Suche_mit_Liste\/"},"wordCount":2358,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Suche_mit_Liste\/#primaryimage"},"thumbnailUrl":"http:\/\/vg05.met.vgwort.de\/na\/2b9a0ab9924a487c826cb7a1d24a6d98","articleSection":["1\/2012","2012","Mit Formularen arbeiten"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/Suche_mit_Liste\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/Suche_mit_Liste\/","url":"https:\/\/access-im-unternehmen.de\/Suche_mit_Liste\/","name":"Suche mit Liste - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Suche_mit_Liste\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Suche_mit_Liste\/#primaryimage"},"thumbnailUrl":"http:\/\/vg05.met.vgwort.de\/na\/2b9a0ab9924a487c826cb7a1d24a6d98","datePublished":"2020-05-22T21:52:18+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/Suche_mit_Liste\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/Suche_mit_Liste\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/Suche_mit_Liste\/#primaryimage","url":"http:\/\/vg05.met.vgwort.de\/na\/2b9a0ab9924a487c826cb7a1d24a6d98","contentUrl":"http:\/\/vg05.met.vgwort.de\/na\/2b9a0ab9924a487c826cb7a1d24a6d98"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/Suche_mit_Liste\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"Suche mit Liste"}]},{"@type":"WebSite","@id":"https:\/\/access-im-unternehmen.de\/#website","url":"https:\/\/access-im-unternehmen.de\/","name":"Access im Unternehmen","description":"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access","publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/access-im-unternehmen.de\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"de"},{"@type":"Organization","@id":"https:\/\/access-im-unternehmen.de\/#organization","name":"Andr\u00e9 Minhorst Verlag","url":"https:\/\/access-im-unternehmen.de\/","logo":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/","url":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","contentUrl":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","width":370,"height":111,"caption":"Andr\u00e9 Minhorst Verlag"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f","name":"Andr\u00e9 Minhorst","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","caption":"Andr\u00e9 Minhorst"}}]}},"_links":{"self":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000815","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/comments?post=55000815"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000815\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55000815"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55000815"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55000815"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}