Zoeken op datumbereik MS Access

[Kirana2014]

Beste allemaal,

Help alstublieft om dit probleem op te lossen

Ik probeer gegevens te zoeken op datum. Ik krijg niet altijd een goed resultaat
Op filter1 (zie afbeelding) krijg ik een goed resultaat, maar op filter2 (zie afbeelding) krijg ik geen resultaat

Help me alsjeblieft dat er iets mis is met VBA die ik gebruik

Private Sub cmdSearch_Click()
Call Search
End Sub

Sub Search()
Dim strCriteria As String, Task As String
Me.Refresh

If IsNull(Me.followupFrom) Or IsNull(Me.followupTo) Then
MsgBox "Enter date", vbInformation, "Date Range Required"
Me.followupFrom.SetFocus

Else

strCriteria = "([followup] >= #" & Me.followupFrom & "# And [followup] <= #" & Me.followupTo & "#)"
Task = "Select * from qrySearch where (" & strCriteria & ") order by [followup]"

DoCmd.ApplyFilter Task

End If

End Sub

Private Sub Command104_Click()
DoCmd.Close
End Sub

Private Sub Command157_Click()
Dim Task As String

Me.followupFrom = Null
Me.followupTo = ""

Task = "select * from qrySearch order by [followup]"
Me.RecordSource = Task
DoCmd.SetOrderBy "KlantID DESC"
End Sub

Private Sub Form_AfterUpdate()
DoCmd.SetOrderBy "KlantID DESC"
End Sub

Private Sub Form_Load()
DoCmd.SetOrderBy "KlantID DESC"
End Sub
Attached Images Attached Images

 

[AccessGuru]

Heb je de afbeeldingen verwijderd? Want ik zie ze niet....

 

[AccessGuru]

Nog even naar je code gekeken, want ik snap uiteraard wel waarom die het niet doet. Dat heeft niet eens met de wat aparte werkwijze te maken, maar (denk ik) alles met de manier waarop je de ingevoerde datums verwerkt. Die methodiek gooit Nederlandse datums namelijk om naar Amerikaanse, en dan krijg je rare dingen. Dus i.p.v. de ingevoerde datum 6-9-2021 krijg je als datum: 9-6-2021. Da's toch een ander filter . Ik heb een beetje van je werkwijze dus aangepast, en je zou dus dit eens kunnen proberen:

Private Sub cmdSearch_Click()
Dim strCriteria As String
    
    If IsNull(Me.followUpFrom) Or IsNull(Me.followUpTo) Then
        MsgBox "Enter date", vbInformation, "Date Range Required"
        Me.followUpFrom.SetFocus
        Exit Sub
    Else
        strCriteria = "FollowUp Between Cdate(" & CDbl(Me.followUpFrom) & ") And Cdate(" & CDbl(Me.followUpTo) & ")"
        Me.Filter = strCriteria
        Me.FilterOn = True
    End If


End Sub