Report Footer Paging

[RayMilhon]

I have an Access 2000 Report that has a Group Section. The Report is set to print a new page after the footer of each Group Section Prints. I want to suppress that for the last group. So that the Report Totals Print on the same page as the last Group totals. How?

 

[vbaInet]

You will need to know what the value or ID of the last group item is. You can do so by dropping a subreport on the page footer section of the main report and set it to return the TOP 1 of the record source sorted in DESC order. That should return the last group's value.

Instead of trying to supress the Force New Page property drop a textbox on the group footer and set its control source to the totals textbox located on the report footer. Or just use a DSum() or DCount() function (whichever applies).

In the Format event of the GROUP FOOTER section of the main report, you will run code to make that textbox visible only if the current group ID or Value is the same as what is returned by the subform. So something like:

If Me.SubformControl![GroupIDField] = Me.txtBoxForGroupID Then
     Me.txtBoxTotal.Visible = True
Else
     Me.txtBoxTotal.Visible = False
End If