Werte in ungebundenen Feld ausgeben

[KaterRamses]

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.

Code [Auswählen] Erweitern

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

Code [Auswählen] Erweitern


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

[MzKlMu]

Hallo,
Du brauchst auch vor dem Suchstring den Joker (*).

Code [Auswählen] Erweitern

...WHERE Alexa_ID LIKE '*" & strSuchbegriff & "*'"


PS:
Bitte benutze für Codedarstellungen die Codetags.
Habe ich oben in Deinem Beitrag noch nachgebessert.

[KaterRamses]

Vielen Dank. Hat Super funktioniert.