Report Footnote Based On Detail Records

[robertbdouglas]

I have a report in which students with a specific status have their name followed with an asterisk (*).

My report is set up with a "Home Room" group in which the "Student" records are details. What I want to do, is to have a module which looks for that asterisk, and if it exists in any student record in that group, the group footer will contain a footnote (e.g., *This student is ...).

I put the following code in the onFormat event of the details group:


Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Right([Student], 1) = "*" Then
Me![Footnote].Visible = True
Else
Me![Footnote].Visible = False
End If
End Sub


Apparently it cycles through all details, because the footnote is only visible if the last "Student" record contains an asterisk.

Any help would be greatly appreciated.

Thanks!

 

[MStef]

Look at "DemoReportFootnoteA2000.mdb" (attachment, zip).
Open Report1 and see.
I think it is what you need.