VBA routine in detail on print routine causing errors in report

J

Jeff Wimer

Hello All,
I have created a report that has a function working in the detail on print
routine. The function (below) summarizes data in the detail area of the
report. The detail information is set for one record per year of data from a
select query. Everything works well, until 2005. I do not have any data for
Nov-Dec of 2005, so the report displays the data from the 2004 record. It is
as if the data from 2004 is not cleared out of the text boxes, and prints
the 2004 data in 2005. Somewhere I need to clear or erase the fields after
the year data prints, so that if there is no data on the next year, it will
not appear there..

For intx = 1 to columncount
If Not isNull(Me("LoadsAct" + Format(intx))) then
mYTD loads = mYTDloads + me("loadsAct" + Format(intx))
Me("YTDLoads" + Format(intx)) = mYTDLoads
Endif
Next Intx

The routine keeps a running total through the year for the previous months.

TIA
Jeff
 
Top