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!
|