lansam werd ich verwirrt (siehe Bild!)
hier nochmal mein Code, mittlerweile bin ich schon durcheinander
Code:
Private Sub Befehl109_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strfilter As String
Dim str As String
Dim such As String
Set db = CurrentDb()
Set rst = db.OpenRecordset("qryTest")
str = txt_suchnam 'man gibt zb D* in die Textbox ein
'Testweise Ausgabe in einer TXTBOX
txt_such = """P1Name LIKE" & " " & str & " """
'Ende
strfilter = "P1NAME = '" & txt_such & "'" 'Filterstring
rst.FindFirst strfilter
'Ausgabe an Textfeld
txt_filter = rst!P1NAME
While Not rst.NoMatch
Debug.Print rst("P1Name")
rst.FindNext strfilter
Wend
rst.Close
End Sub
wenn wer zeit hat