Setting a date in the Header



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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question