Report date will not display when there is no data.

[khughes46]

I have a report that is printed at several locations in our network. I need this report to print even when there is no data; an empty report prints and is needed for audit purposes. The report asks for start and end dates before printing, but does not show up on the report with no data. How can I get the dates into this report?

[ranman256]

Test the rpt qry for a null value, if null, print a No Data report else print YOUR report.

if isnull(dcount([field],qry)) then
Docmd.openreport "rptNoData"
else
Docmd.openreport "rptMyRpt"
end if

[khughes46]

If the record count on some field is NULL (what is qry?) then open a report called rptNoData, else open a report called rptMyRpt. Is that the gist? I'm still learning VBA but understand programming, so I could use a little explanation here. The rptNoData is the same report as rptMyRpt. Do I need to copy and rename rptMyRpt in order to differentiate?

A little report background. I use a wild card to select which location is printing, I have 6 locations. I can do one at a time or all at once, depending. One of these reports may not have any data, but I need the printout regardless. Also, in an unbound box I have this code to get a date =[Week Start?].

[NoellaG]

Hi,

you can solve this in an easy way by putting the two date criteria as unbound text boxes ([txtFrom] and [txtTill]) on a form ([frmCriteria])and then put a calculated text box in the report header with as a control source something like:
="Criteria: from " & [Forms]![frmCriteria]![txtFrom] & " till " & [Forms]![frmCriteria]![txtTill]

[khughes46]

Found an easier way. I put =DateAdd("d",[Days Ahead?],Date()) in the start date and =DateAdd("d",[Days Ahead?],Date())+4 in the end date. Works like a champ.