Hallo, ich habe ein ungebundenes Feld in dem Werte angezeigt werden sollen, die zuvor durch Eingabe einer Filialnr. im Feld Zahlsuchen oder durch eingabe des Filialnamen in txtSuchen gefiltert werden soll Dazu habe ich folgenden Code erstellt. Leider funktioniert die Abfrage nicht mit dem Namen. In der Tabelle steht z.B. HOGW Welse. Wenn ich im Suchfeld Wels eingebe findet er den Wert nicht. Kann mir jemand eine Tipp geben wo der Fehler liegt.
Private Sub txtSuchen_Change()
Dim strSuchbegriff As String
'Suchbegriff in Variable speichern
strSuchbegriff = Me!txtName.Text
'Neue Datensatzherkunft zuweisen
Me!lstFil.RowSource = "SELECT Filial_Name, Filial_ID, Alexa_ID, IP_Adresse FROM qry_all WHERE Alexa_ID LIKE '" & strSuchbegriff & "*'"
'Inhalt des Listenfeldes aktualisieren
Me!lstFil.Requery
End Sub
Private Sub Zahlsuchen_Change()
Dim strSuchbegriff As String
'Suchbegriff in Variable speichern
strSuchbegriff = Me!txtSuchen.Text
'Neue Datensatzherkunft zuweisen
Me!lstFil.RowSource = "SELECT Alexa_ID, Filial_ID, Filial_Name, IP_Adresse FROM qry_all WHERE Filial_Name LIKE '" & strSuchbegriff & "*'"
'Inhalt des Listenfeldes aktualisieren
Me!lstFil.Requery
End Sub
Hallo,
Du brauchst auch vor dem Suchstring den Joker (*).
...WHERE Alexa_ID LIKE '*" & strSuchbegriff & "*'"
PS:
Bitte benutze für Codedarstellungen die Codetags.
Habe ich oben in Deinem Beitrag noch nachgebessert.
Vielen Dank. Hat Super funktioniert.