Hallo Zusammen,

Ich möcte gerne eine ListenFeld mittels eingabe eines Begriffes in ein Texfeld sortieren.

Man findet viel dazu im Internet und folgender Code ist bis jetzt dabei herraus gekommen:

Private Sub Nummernsuche_Change()
 
Debug.Print "Suchbegriff: " & Me!Nummernsuche.Text
Dim strKriterium As String

strKriterium = "[Spielzeug Nummer] LIKE '" & Me!Nummernsuche.Text & "*'"
Debug.Print strKriterium

Me!ListeBaldAbgelaufen.RowSource = "SELECT [Produzierte Spielzeuge].ID, [Produzierte Spielzeuge].Verantwortlicher, [Produzierte Spielzeuge].[Spielzeug Nummer], [Produzierte Spielzeuge].datum, [Produzierte Spielzeuge].typ FROM [Produzierte Spielzeuge] WHERE " & strKriterium & " ORDER BY datum"
Me!ListeBaldAbgelaufen.Requery


End Sub

Wenn ich nun eine Nummer ins Textfeld tippe, bleibt das Lsitenfeld leer.

Was mache ich falsch? Was habe ich vergessen?

Grüße!