Zoeken op 2 velden met een knop

[joosjet]

Hallo allemaal,

Ik heb in access een knop gemaaktmet daarachter vba code die zoekt op 2 velden (datum en op een naam). Nu heb ik de code zover dat hij wel zoekt wanneer ik een van deze velden invul. Maar wanneer ik ze beide invul zoekt hij maar op 1 veld en niet op beide.
Wie kan me hiermee helpen?
De code die ik tot dusver heb:

Private Sub cmdZoek_bestemming_datum_Click()
If Not IsNull(Me!txt_zoek_bestemming) Then
Me.Filter = "[bestemming] like '" & "*" & Me!txt_zoek_bestemming & "*'"
ElseIf Not IsNull(Me!txt_zoek_datum) Then
Me.Filter = "[vertrektijd] like '" & "*" & Me!txt_zoek_datum & "*'"
End If
Me.FilterOn = True
Me![bestemming].SetFocus
Me!cmdreset_bestemming_datum.Enabled = True
Me!cmdzoek_bestemming_datum.Enabled = False
End Sub

groet Joosjet

 

[Superzeeuw]

Volgens mij moet het zo lukken:

Private Sub cmdZoek_bestemming_datum_Click()
If Not IsNull(Me!txt_zoek_bestemming) Then _
Me.Filter = "[bestemming] like '" & "*" & Me!txt_zoek_bestemming & "*'"
If Not IsNull(Me!txt_zoek_datum) Then _
Me.Filter = "[vertrektijd] like '" & "*" & Me!txt_zoek_datum & "*'"
Me.FilterOn = True
Me![bestemming].SetFocus
Me!cmdreset_bestemming_datum.Enabled = True
Me!cmdzoek_bestemming_datum.Enabled = False
End Sub