Meerdere criteria zoekfunctie

[papauha]

Beste leden,

Ik maak een zoekfunctie, waarbij een gebruiker op meerdere velden kan zoeken zodat het filteren een stuk efficiënter wordt. Ik heb op dit moment 2 velden waarop ik wil zoeken: Voornaam & Achternaam. De zoekfunctie wil ik graag werkend hebben met een Like functie.

Private Sub Knop33_Click()

If Not IsNull(Me.Tekst30 , Me.Tekst108) Then
    Me.Filter = "gebruikersnaam Like " & "'%" & Me.Tekst30.Value & "%' " And voornaam Like " & " '%" & Me.Tekst31.Value & "%' "
    
    Me.FilterOn = True
    Me.Tekst30.SetFocus
    Me.Tekst31.SetFocus
    
  End If

Alvast bedankt!
Papauha.

 

[OctaFish]

Ik snap je coderegel niet helemaal, want wat doet dat % teken in de string? Ik zou eerder dit verwachten:

    Me.Filter = "gebruikersnaam Like '*" & Me.Tekst30 & "*' And voornaam Like '*" & Me.Tekst31.Value & "*' "

Maar eigenlijk snap ik je vraag niet helemaal; werkt jouw code niet, of wil je wat anders?

 

[papauha]

Ik wil filteren in meerdere kolommen uit een tabel.

Tabel bestaat uit gebruikersnaam en voornaam, achternaam, adres.

Het is inmiddels gelukt:

Private Sub Knop110_Click()
If (Me.Tekst108) > "" Then
    Me.Filter = "gebruikersnaam Like " & "'%" & Me.Tekst108.Value & "%'"


ElseIf (Me.Tekst111) > "" Then
    Me.Filter = "plaatsnaam Like " & "'%" & Me.Tekst111.Value & "%'"
End If
End sub

Papauha