De filter werkt maar niet goed Filters werken met datum van Amerika dus mm/dd/yyyy
de ingaven zijn nederlands dus dd/mm/yyyy
hoe pas ik dit het beste aan ?
Private Sub Periode_Click()
Dim sfilter As String
Dim iDatum1 As Date, iDatum2 As Date
   
iDatum1 = (Me.Periode.Column(1))
iDatum2 = (Me.Periode.Column(2))

sfilter = "Startdatum between #" & iDatum1 & "# and #" & iDatum2 & "#" ( kan hier wel dd\/mm\/yyyy neer zetten werkt niet)
With Forms!frmProjecten.Form
     filter = sfilter
     FilterOn = True

End With

End Sub

Kopieer je eens die functie
[code]
Public Function EngDateFormat(pDatum As Date) As String
    'Stel de standaard in
    EngDateFormat = CStr(Format(pDatum, "dd/mmm/yyyy"))
   
    'Uitzonderingen met engelse naam
    If Month(pDatum) = 5 Then
        EngDateFormat = Day(pDatum) & "/" & "May/" & Year(pDatum)
    End If
   
    If Month(pDatum) = 10 Then
        EngDateFormat = Day(pDatum) & "/" & "Oct/" & Year(pDatum)
    End If
   
    If Month(pDatum) = 3 Then
        EngDateFormat = Day(pDatum) & "/" & "March/" & Year(pDatum)
    End If
 
End Function

en in je code wijzig je
iDatum1 =EngDateFormat ( cDate(me.Periode.Column(1)))
iDatum2 =EngDateFormat ( cDate(me.Periode.Column(2)))
Met de juiste kolommen dan