Add a text box named as text on header section with Control Course:
=Count([ID])
Chose Code under View menu and paste the following code
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If Me!Text > 1 Then
Me.Section(acDetail).Visible = False
Else
Me.Section(acDetail).Visible = True
End If
Not very elegant but relatively straightforward. Add a text
box (named txtGrpCnt) to the group header section and set
it's control source expression to =Count(*)
Then add code to the group header section's Format event.
Assuming the group has both a header and footer:
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.