Supportnet / Forum / Datenbanken
Suchen per drop down?
Frage
(verwende Access 97)
Hallo,
ich möchte die Möglichkeit schaffen, eine Suchoperation durchführen zu können, in der der Suchbegriff nicht eingegeben werden muss, sondern sich per Drop-Down (Kombinations- oder Listenfeld) auswählen lässt. Ich nehme mal an, dass sich das nur(?) mit VBA realisieren lässt?!
Oder gibt es da auch einen einfacheren Weg?
Noch einen Schritt weiter - Das Ergebnis einer Rubriksuche (nach obigen Schema) soll dann alle Ergebnisse anzeigen, die gefunden wurde. Muss ich dafür ein Unterformular einsetzen? Oder kann ich die Ergebnisse auch in einem Listenfeld anzeigen lassen, welches die Daten nachdem ein Datensatz ausgewählt wurde in den Formularfeldern anzeigt?
Danke im Voraus.
Viele Grüße, Draighton.
Antwort 1 von JohnnyLoser
Hi Draighton,
trage in die Werteliste der ComboBox Deine Suchbegriffe ein (alternativ aus Tabelle) und schreibe in das Ereignis "Beim Klicken" der ComboBox folgenden (abgepassten) Code:
Liste1.RowSource = "SELECT * FROM Tabelle1 WHERE Feld1 = '" & ComboBox1 & "'"
Me.RecordSource = "SELECT * FROM Tabelle1 WHERE Feld1 = '" & ComboBox1 & "'"
Was die Auswahl aus der Liste angeht, kannst Du folgenden Code in die "Nach Aktualisierung" Prozedur Deiner ListBox schreiben
Me.RecordsetClone.FindFirst "[Feld1] = " & Me![Liste1]
Me.Bookmark = Me.RecordsetClone.Bookmark
Gruß
Johnny
trage in die Werteliste der ComboBox Deine Suchbegriffe ein (alternativ aus Tabelle) und schreibe in das Ereignis "Beim Klicken" der ComboBox folgenden (abgepassten) Code:
Liste1.RowSource = "SELECT * FROM Tabelle1 WHERE Feld1 = '" & ComboBox1 & "'"
Me.RecordSource = "SELECT * FROM Tabelle1 WHERE Feld1 = '" & ComboBox1 & "'"
Was die Auswahl aus der Liste angeht, kannst Du folgenden Code in die "Nach Aktualisierung" Prozedur Deiner ListBox schreiben
Me.RecordsetClone.FindFirst "[Feld1] = " & Me![Liste1]
Me.Bookmark = Me.RecordsetClone.Bookmark
Gruß
Johnny

