![\"Eingebaute](\"..\/tl_files\/images\/pic_372_001.png\")
<\/a><\/p>\nBild 1: Eingebaute Suche nach einem Eintrag<\/p>\n
Das Ergebnis entspricht dann wie in Bild 2 genau den Erwartungen. Was aber nun, wenn wir diese Suche nicht anbieten können oder wollen und eine eigene Suche implementieren müssen, die so ähnlich arbeitet – und in diesem Fall zumindest ein Kombinationsfeld anbieten soll, um die passenden Datensätze zu ermitteln<\/p>\n
Bild 2: Suchergebnis mit eingebauter Suche<\/p>\n Dann benötigen wir zunächst ein Formular, welches das Datenblatt mit den zu durchsuchenden Datensätzen in einem Unterformular anzeigt. Dazu erstellen Sie zunächst ein Unterformular namens sfmLookupsuche <\/b>und weisen der Eigenschaft Datenherkunft <\/b>die Tabelle tblArtikel <\/b>zu.<\/p>\n Ziehen Sie dann alle Felder dieser Tabelle aus der Feldliste in den Detailbereich des Formularentwurfs und stellen Sie noch die Eigenschaft Standardansicht auf den Wert Datenblatt <\/b>ein. Speichern und schließen Sie das Formular nun.<\/p>\n Legen Sie ein neues Formulars namens frmLookupsuche<\/b> an, welches als Hauptformular dienen soll. Ziehen Sie das Unterformular sfmLookupsuche <\/b>aus dem Navigationsbereich in den Detailbereich des neuen Formulars. Stellen Sie die Eigenschaften Navigationsschaltflächen<\/b>, Datensatzmarkierer<\/b>, Bildlaufleisten <\/b>und Trennlinien <\/b>des Hauptformulars auf Nein <\/b>und die Eigenschaft Automatisch zentrieren <\/b>auf Ja <\/b>ein. Fügen Sie über dem Unterformular schließlich noch das Kombinationsfeld hinzu, mit dem wir die Suchbegriffe festlegen wollen (siehe Bild 3). Das Kombinationsfeld nennen wir cboSucheLieferant<\/b>.<\/p>\n Bild 3: Suchformular mit Kombinationsfeld<\/p>\n Wenn Sie wissen wollen, welchen Filterausdruck Access automatisch einstellt, wenn Sie mit der eingebauten Filtermöglichkeit arbeiten wollen, welche wir eingangs vorgestellt haben, brauchen Sie nur das Formular zu öffnen und den Filter festzulegen.<\/p>\n Nun öffnen Sie den VBA-Editor und geben im Direktbereich einen Ausdruck ein, der den aktuellen Wert der Filter<\/b>-Eigenschaft des Unterformulars ausgibt:<\/p>\n Die Ausgabe lautet wie folgt:<\/p>\n Was ist nun [Lookup_LieferantID].[Firma] <\/b>für ein Ausdruck Wir konnten es nicht herausfinden. Selbst wenn wir den Code des Formulars mit der folgenden Methode in eine Textdatei exportiert haben, konnten wir diese Zeichenfolge nicht finden:<\/p>\n Fest steht jedenfalls, dass Access wohl hier irgendwie auf ein Recordset zugreift, das sich hinter dem Kombinationsfeld zur Auswahl des Lieferanten verbirgt und diesen als Feld im Filterausdruck einsetzt.<\/p>\n Wie auch immer: Wir können uns nicht auf irgendwelche nirgends offensichtlich definierten Feldnamen beziehen, wenn wir programmieren, und füllen zunächst unser Kombinationsfeld mit den Daten, die wir zur Suche nach den Lieferanten auswählen wollen.<\/p>\n Dazu stellen wir die Eigenschaft Datensatzherkunft <\/b>des Kombinationsfeldes auf die Abfrage aus Bild 4 ein. Damit es das Primärschlüsselfeld als gebundene Spalte verwendet und diese aber ausblendet, stellen sie die Eigenschaft Spaltenanzahl <\/b>auf den Wert 2 <\/b>und die Eigenschaft Spaltenbreiten <\/b>auf den Wert 0cm <\/b>ein. Das Zwischenergebnis sieht dann wie in Bild 5 aus.<\/p>\n Bild 4: Das Kombinationsfeld im Einsatz<\/p>\n Bild 5: Abfrage als Datensatzherkunft für das Such-Kombinationsfeld<\/p>\n Nun müssen wir noch eine Ereignisprozedur hinzufügen, die nach der Auswahl eines der Einträge des Kombinationsfeldes ausgelöst wird und die Daten des Datenblatts entsprechend des Filterkriteriums filtert.<\/p>\n Dazu stellen Sie für die Eigenschaft Nach Aktualisierung <\/b>des Kombinationsfeldes den Wert [Ereignisprozedur] <\/b>ein und klicken auf die Schaltfläche mit den drei Punkten (…) neben der Eigenschaft.<\/p>\n Dies öffnet den VBA-Editor und zeigt gleich die neue, leere Prozedur cboSucheLieferanten_AfterUpdate <\/b>an (siehe Bild 6). Diese füllen wir nun wie folgt:<\/p>\n Bild 6: Neue Ereignisprozedur im VBA-Editor<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\n<\/a><\/p>\nFilterausdruck ermitteln<\/h2>\n
Forms(0).sfmLookupsuche.form.filter<\/pre>\n
([Lookup_LieferantID].[Firma]=\"Bigfoot Breweries\")<\/pre>\n
SaveAsText acForm, \"sfmLookupsuche\", CurrentProject.Path & \"\\form.txt\"<\/pre>\n
Kombinationsfeld mit Daten füllen<\/h2>\n
<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\nPrivate Sub <\/span>cboSucheLieferant_AfterUpdate()\r\n Dim <\/span>lngLieferantID As Long<\/span>\r\n Dim <\/span>strSQL As String<\/span>\r\n lngLieferantID = Nz(Me!cboSucheLieferant, 0)\r\n If <\/span>Not<\/span> lngLieferantID = 0 Then<\/span>\r\n strSQL = \"LieferantID = \" & lngLieferantID\r\n Me!sfmLookupsuche.Form.Filter = strSQL\r\n Me!sfmLookupsuche.Form.FilterOn = True<\/span>\r\n Else<\/span>\r\n Me!sfmLookupsuche.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