Date Restrictor for last week

  • Thread starter Thread starter ChuckW
  • Start date Start date
C

ChuckW

Hi,

I need to run a report for transactions that occured last
week. I run the report on Monday or Tuesday of every
week for the previous week which would be start on a
Monday and end on a Sunday. Is there a special date
restrictor that I could use?

Thanks,

Chuck
 
Find enddate and startdate and use in your query

enddate =date- weekday(date,vbMonday)
startdate - enddate - 6
 
-----Original Message-----
Hi,

I need to run a report for transactions that occured last
week. I run the report on Monday or Tuesday of every
week for the previous week which would be start on a
Monday and end on a Sunday. Is there a special date
restrictor that I could use?

Thanks,

Chuck
.
Assuming you have a command button to print the report
Click to expand...
you could put code in the On Click event of the button
like this:

Dim datFirstDayInWeek as Date
Dim datLastDayInWeek as Date


datFirstDayInWeek = Date()- Weekday(Date(), vbMonday) + 1
datLastDayInWeek = Date()- Weekday(Date(), vbMonday) + 7

then use the variables in a where statement to open the
report like this:

DoCmd.OpenReport "rptYourReport",,,"[YourDateField] >= " _
& "#" & datFirstDayOnWeek & "#" & " AND " _
& "[YourDateField] <= " & "#" datLastDayInWeek & "#"
 
Hi,

I need to run a report for transactions that occured last
week. I run the report on Monday or Tuesday of every
week for the previous week which would be start on a
Monday and end on a Sunday. Is there a special date
restrictor that I could use?

Thanks,

Chuck
Click to expand...

BETWEEN DateAdd("d", -7-DatePart("w", Date()), Date()) AND
DateAdd("d", -1-DatePart("w", Date()), Date())

will do the trick...
 
Back
Top