Goedemiddag,
Gebruik onderstaande code om een klant te zoeken.
Ik heb 1 Veld (Zoekklant) om in 2 kolommen (Naam en Plaats) te zoeken
Als ik zoek op het woord Rotterdam en ik tik in het veld Zoekklant rotti in dan komt na het intoetsen van de i de error.
Fout 2185 tijdens uitvoering.
Hoe kan ik deze error afvangen met een msgbox "Er zijn geen resultaten, Begin opnieuw"
Vervolgens het filter leegmaken en alle records weer zien.
Gebruik onderstaande code om een klant te zoeken.
Ik heb 1 Veld (Zoekklant) om in 2 kolommen (Naam en Plaats) te zoeken
Als ik zoek op het woord Rotterdam en ik tik in het veld Zoekklant rotti in dan komt na het intoetsen van de i de error.
Fout 2185 tijdens uitvoering.
Hoe kan ik deze error afvangen met een msgbox "Er zijn geen resultaten, Begin opnieuw"
Vervolgens het filter leegmaken en alle records weer zien.
Code:
Private Sub txtZoekklant_Change()
Dim sFilter
sFilter = "[tblDebiteur.Debiteurnaam] & [tblDebiteur.Plaats] Like ""*" & Me.txtZoekklant.Text & "*"""
Me.Filter = sFilter
Me.FilterOn = True
Me.txtZoekklant.SelStart = Me.txtZoekklant.SelLength
End Sub