Setting a date in the Header

[Guest]

I have a report that I need to print every Friday, but the report is for the
following week. So, I want it to say "For the week of: Monday, November 5,
2007." How do I calculate the date to be next Monday?

 

[John Spencer]

IF you run the report on Friday (and never on any other day),
-- Add a control to the report
-- Set its source to
= "For the week of " & Format(DateAdd("d",3,Date()), "Long Date")

If you run the report on any other day of the week this will fail. So you
might want to use
= "For the week of " & Format(DateAdd("d",8-WeekDay(Date(),2),Date()),
"Long Date")
--

John Spencer
Access MVP 2002-2005, 2007
Center for Health Program Development and Management
University of Maryland Baltimore County
..

 

[Guest]

And then there are holidays that fall on Monday.