Zoeken gesplitst formulier

[Roland24]

Is het mogelijk wanneer je in een gesplitst formulier de zoekfunctie gebruikt, dat bij het typen de lijst met mogelijke records die de waarde bevat steeds korter wordt?

 

[maomanna]

dat kan.

Maak een tekstvak met de naam txtNaamfilter (of een naam naar keuze) een gebeurtenis bij wijzigen.
Daar moet een gebeurtenisprocedure achter.

Private Sub txtNaamfilter_Change()

Dim sFilter
    sFilter = "[veldnaam_waar_je_op_wilt_filteren] Like ""*" & Me.txtNaamfilter.Text & "*"""
    Me.Filter = sFilter
    Me.FilterOn = True
    Me.txtNaamfilter.SelStart = Me.txtNaamfilter.SelLength
 
End Sub