how to print footer data in header?

T

Todd P

I have a report that is grouped by month/yr. In order to count unique
records that are based on an ID , I wrote the following code that counts the
occurrences of the txtOPN textbox:



Option Compare Database
Option Explicit
Public iCnt As Integer

---------------------------------------

Private Sub GroupFooter3_Print(Cancel As Integer, PrintCount As Integer)

If Me.txtOPN <> "" Then
iCnt = iCnt + 1
End If
Me.TxtOPNCount = Format$([Date], "mmmm yyyy", 0, 0) & ", " & iCnt &
IIf(iCnt = 1, "Hospital", "Hospitals")

End Sub
 
Top