Listing Data between two Dates

[GaryMazzone]

This is probably the harder way to do this.

While not Found and not tblBooking.EOF 
   If tblBooking!Date >= startate and If tblBooking!Date <=EndDate then
      Do what you want here
   end if
   tblBooking.MoveNext
Wend

[Andy1723]

This is probably the harder way to do this.

While not Found and not tblBooking.EOF 
   If tblBooking!Date >= startate and If tblBooking!Date <=EndDate then
      Do what you want here
   end if
   tblBooking.MoveNext
Wend

That can't work because startDate and endDate is just the number for the day, not the full date!

[Andy1723]

Because the interval should be a week between the dates i want to retrieve, I added this to your code

startDate = DatePart("d", dtpStartDate)
endDate = startDate + 7
monthNumber = DatePart("mm", dtpStartDate)
yearNumber = DatePart("yyyy", dtpStartDate)
 
fullSDate = startDate + "/" + monthNumber + "/" + yearNumber
fullEDate = endDate + "/" + monthNumber + "/" + yearNumber
 
full
 
    While Not found And Not tblBooking.EOF
       If tblBooking!Date >= fullSDate And tblBooking!Date <= fullEDate Then
            Print "wow"
       End If
            tblBooking.MoveNext
    Wend

Hopefully that could work?