✔ Suchherkunft ändern

[CanYouHelpMe]

hallo

ich habe eine frage ich habe in meinem formular diesen code

hallo

ich habe eine frage ich habe in meinem formular diesen code

Dim EingabeSQL As String
Dim strEingabe As String

strEingabe = InputBox("Geben Sie den Teil des Suchbegriffs ein ...", _
"Gesamtsuche nach Suchbegriff")
If StrPtr(strEingabe) = 0 Then Exit Sub 'Benutzereingabe wurde abgebrochen
EingabeSQL = "SELECT * " & _
"FROM [Kundeninformationen] " & _
"WHERE [WS-Name] Like '*" & strEingabe & "*' " & _
" ORDER BY [Ws-Name]"
Me!Liste0.RowSourceType = "Table/Query" 'Listenherkunftsart
Me!Liste0.RowSource = EingabeSQL 'Listenherkunft

wenn ich im formular auf diesen button drücke erscheint eine inputbox
dort kann ich dann nach dem WS-Namen suchen
es wird in einer Tabelle bzw in der angegebenen Tabelle "Kundeninformationen" gesucht
dann wird das ergebnis in ein listenfeld gesetzt.

ich möchte aber nun das nicht in einer tabelle gesucht wird sondern in einer abfrage .
was muss ich in meinem code dafür ändern
vielen dank im voraus

wenn ich im formular auf diesen button drücke erscheint eine inputbox
dort kann ich dann nach dem WS-Namen suchen
es wird in einer Tabelle bzw in der angegebenen Tabelle "Kundeninformationen" gesucht
dann wird das ergebnis in ein listenfeld gesetzt.

ich möchte aber nun das nicht in einer tabelle gesucht wird sondern in einer abfrage .
was muss ich in meinem code dafür ändern
vielen dank im voraus

 

[CanYouHelpMe]

Ok sry

ich habe gerade gemerkt das ich einfach nur einen eingabe fehler bei meiner änderung hatte.

wenn es jemanden interessiert.
hat man diesen code vor sich

Private Sub buttonxy_Click()
Dim EingabeSQL As String
Dim strEingabe As String
strEingabe = InputBox("Geben Sie den Teil des Suchbegriffs ein ...", _
"Gesamtsuche nach Suchbegriff")
If StrPtr(strEingabe) = 0 Then Exit Sub 'Benutzereingabe wurde abgebrochen
EingabeSQL = "SELECT * " & _
"FROM [Tabellenname] " & _ <--** Abfragename
"WHERE [ID] Like '*" & strEingabe & "*' " & _
" ORDER BY [ID]"
Me!Listenfeldxy.RowSourceType = "Table/Query" 'Listenherkunftsart
Me!Listenfeldxy.RowSource = EingabeSQL 'Listenherkunft
End Sub

**Anstelle von Tabellenname muss der Abfragename eingegeben werden. Dann werden die Daten aus der Abfrage geholt.