Private Sub Cbovantot_Click()
Dim sFilter As String
Dim iDatum1 As Date, iDatum2 As Date
iDatum1 = CDbl(Me.TxtVan)
iDatum2 = CDbl(Me.TxtTot)
sFilter = "CDbl([datum]) BETWEEN " & Format(Me.TxtVan) & " AND " & Format(Me.TxtVan)
With Forms!frmPlanning
.Filter = sFilter
.FilterOn = True
End With
End Sub
vraag wat is er mis mee zoeken in twee tekst vakjes en knop waar deze code onder draait
je zziet op veld datum het filter komen te staan maar filteren ho maar