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