Zoekfilter met jokertekens wil maar niet werken

[Roel13010]

Ik heb een formulier (Personeel) waarin ik wil filteren op een deel van de voornaam en/of de achternaam (tabel Personeel).
Om te starten ben ik begonnen met enkel de voornaam, maar dit krijg ik al niet aan de praat.
Waar loopt het mis?

Private Sub Zoekopdracht_weergeven_Click()
strDocNaam = "Personeel"
strFilter = "Personeel.Voornaam = '" * " & [Forms]![Personeel]![zoek] & " * " '"
    DoCmd.OpenForm strDocNaam, acNormal, , strFilter
    DoCmd.GoToRecord acForm, strDocNaam, acFirst
End Sub

Als ik dit probeer, krijg ik fout 13, typen komen niet met elkaar overeen.

Probeer ik dit:

strFilter = "Personeel.Voornaam = ' * & [Forms]![Personeel]![zoek] & * '"

Dan krijg ik telkens een filter zonder resultaten.

Kan iemand mij hiermee verder helpen?

 

[OctaFish]

Je filter is niet goed. (De opmaak van je code overigens ook niet; gebruik de CODE knop om code netjes op te maken )

strFilter = "[Voornaam] Like '*" & Me.Zoek & "*'"

 

[Roel13010]

Bedankt!

Prachtig, hier heb ik me al héél de dag suf achter gezocht
Bedankt Michel :thumb: