Option Compare Database
Option Explicit
Dim intLineNo
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
intLineNo = intLineNo + 1
If intLineNo = 1 Then
Me.txtLineOne = "This is line one"
Else
Me.txtLineOne = "Blah"
End If
End Sub
Private Sub GroupFooter1_Format(Cancel As Integer, FormatCount As Integer)
intLineNo = 0
End Sub