Date Restrictor for last week

[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

 

[Sunny]

Find enddate and startdate and use in your query

enddate =date- weekday(date,vbMonday)
startdate - enddate - 6

 

[Alan Fisher]

-----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

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 & "#"

 

[John Vinson]

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

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

will do the trick...