行数を固定して納品書を作成したが、いらない部分がでる

こんばんは、提出時間がせまっているので、
あせって、質問しました。

今、アクセスにて納品書のレポートの作成中です。
Q_売上テーブルとQ_売上明細テーブルをつかって、
レポートを作成し、5行に固定したかったので、
下記のようなVBAを記述しました。
行は、固定されましたが、
なぜか1行しかない時などに、
商品区分だけが2行目3行目に1行目の内容をコピーして
はいってくるのです。
どこがおかしいのかわからず、苦戦中です。
ご教授、よろしくお願いいたします。

Option Compare Database
Dim AAA As Integer
Dim BBB As Integer

Private Sub グループヘッダー0_Format(Cancel As Integer, FormatCount As Integer)
AAA = 0
BBB = DCount("伝票番号", "Q_売上明細テーブル", "伝票番号='" & Me!伝票番号 & "'")

End Sub

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
AAA = AAA + 1
Me!テキスト54 = AAA

If AAA Mod 5 = 0 Then
If AAA < BBB Then
Me!改ページ55.Visible = True
Me.Section(3).Visible = True
ElseIf AAA = BBB Then
Me!テキスト54.Visible = True
Me!商品区分.Visible = True
Me!商品名.Visible = True
Me!数量.Visible = True
Me!単価.Visible = True
Me!金額.Visible = True
Else
Me!テキスト54.Visible = False
Me!商品区分.Visible = False
Me!商品名.Visible = False
Me!数量.Visible = False
Me!単価.Visible = False
Me!金額.Visible = False
End If

Else
Me!改ページ55.Visible = False
Me.Section(3).Visible = False
If AAA < BBB Then
Me.NextRecord = True
Me!テキスト54.Visible = True
Me!商品区分.Visible = True
Me!商品名.Visible = True
Me!数量.Visible = True
Me!単価.Visible = True
Me!金額.Visible = True
ElseIf AAA = BBB Then
Me.NextRecord = False
Me!テキスト54.Visible = True
Me!商品区分.Visible = True
Me!商品名.Visible = True
Me!数量.Visible = True
Me!単価.Visible = True
Me!金額.Visible = True
Else
Me.NextRecord = False
Me!テキスト54.Visible = False
Me!商品区分.Visible = True
Me!商品名.Visible = False
Me!数量.Visible = False
Me!単価.Visible = False
Me!金額.Visible = False
End If
End If

End Sub

No.1 ベストアンサー 回答者： n-jun 回答日時： 2009/07/20 21:11

さっとしか見てないですが、最後の部分の

Me.NextRecord = False
Me!テキスト54.Visible = False
Me!商品区分.Visible = True　　'←ここだけTrue?
Me!商品名.Visible = False
Me!数量.Visible = False
Me!単価.Visible = False
Me!金額.Visible = False
End If
End If

と疑問になってしまいました。
違ったらごめんなさい。

この回答へのお礼

n-junさん、早々にご連絡いただき、
感謝感謝です。
そのとおりでした。
もう、目がぐにゃぐにゃですね（＾＾；
しっかり見たつもりだったんですが・・・
すみません、ありがとうございました。
今からまたがんばります。

お礼日時：2009/07/20 21:21