supress subtotals code

[sandyg]

I need to suppress subtotals when there is only one value for a field and display the subtotal when there is more than one value. I have put a record counter control in the detail section of the report and I am tryping to create an OnFormat Event in the footer where the subtotal is printed. I don't know how to write code to set the subtoal control to visible if the count is >1 and not visible if not. The record counter in the detail section is called count and the subtotal in the footer section is called subtotal.

Or can this be done with conditional formatting?

Thanks,



Sandy

[HiTechCoach]

Sandy,

The way I do it is this:

put a text box on the footer section with these properties:
control Name: txtCount
Control source: =Count(*)
Visible = No -

In the Section Footer's On Format event use:

Private Sub GroupFooter1_Format(Cancel As Integer, FormatCount As Integer)

     Me.subtotal.Visible = (Me.txtcount > 1)

End Sub

or you could hide the footer section completely with this:

Private Sub GroupFooter1_Format(Cancel As Integer, FormatCount As Integer)

     Me.GroupFooter1.Visible = (Me.txtcount > 1)

End Sub