アクセス レポートに線引き

質問

アクセス2000のレポートです。

Private Sub 詳細_Format(～～
If Me.CurrentRecord Mod 5 = 0 Then
Me.Line (～～～～
End If
End Sub
のように、５行おき線を引いています。
でも、１ページ目が全部で１８行だとすれば、２ページ目は３行目に線が引かれます。
改ページされたら、また５行目に線を引くにはどうしたらよろしいでしょうか？

回答No.2

noname#22222

s_husky

12=1ページの行数です！（よって、18へ修正してテスト！）

お礼

pk=1
c=0

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If Page <> pk Then
pk = Page
c = 0
End If
c = c + 1
If c Mod 5 = 0 Then
Me.Line (～～
End If
End Sub

で、自力解決しました。
ありがとうございました。

回答No.1

noname#22222

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
　　Me.Line1.Visible = CBool(((Me.CurrentRecord Mod 12) Mod 5) = 0)
End Sub

補足

質問のしかたが悪かったようでスミマセン。
行数は不定です。いつも１８行というわけではありません。
１ページの行数を得る関数とかあれば助かるのですが、
または、改ページされたイベントでもあれば良いのですが。