Accessのレポートでデータがなくても罫線だけ表示させたい

質問

Win2000,Access2000を使用しています。
Microsoftのホームページで「[AC97] レコードがない場合も用紙の最後まで罫線を出力する方法」を応用して以下のVBを作成しました。
ですが、9行目までデータを入力すると9行目と10行目の両方の行に9行目のデータが表示されます。
8行目まででしたら、9、10行目は空白で罫線（直線）が表示されます。
どなたか解決法をご存知でしたらお教え下さい。

Option Compare Database
　Dim A As Integer '-------今何行目なのかをカウントする為の変数
　Dim B As Integer '-------今回印刷する予定のレコード件数を入れて
　　　　　　　　　　　　　　　　　おく変数
----------------------------------------------------
Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer)

　　A = 0
　　B = DCount("ID", "Q05商品リスト")
　　Me!改ページ3.Visible = False

End Sub
----------------------------------------------------

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)

　A = A + 1

　If A Mod 10 = 0 Then
　　　Me!改ページ3.Visible = True
　Else
　　　Me!改ページ3.Visible = False

　　　If A < B Then
　　　　　Me.NextRecord = True
　　　　　Me!商品名.Visible = True
　　　　　Me!メーカー名.Visible = True

　　　ElseIf A = B Then
　　　　　Me.NextRecord = False
　　　　　Me!商品名.Visible = True
　　　　　Me!メーカー名.Visible = True

　　　Else
　　　　　Me.NextRecord = False
　　　　　Me!商品名.Visible = False
　　　　　Me!メーカー名.Visible = False

　　　End If
　　End If
End Sub

回答No.1

Gin_F · ベストアンサー

[AC97] レコードがない場合も用紙の最後まで罫線を出力する方法
http://support.microsoft.com/default.aspx?scid=kb;ja;404909&Product=accJPN

これですね。
----------------------------------------------
If i <= j Then
　　Me![bpage].Visible = True
Else
　　Me![商品名].Visible = False
　　Me![商品コード].Visible = False
　　Me![単価].Visible = False
　　Me![在庫].Visible = False
End If
----------------------------------------------
この部分が抜けてません？

お礼

ご回答ありがとうございました。
まさしくその通りで、あっさり解決してしまいました。
質問する前によく確認いたします。m(-_-;)m