ACCESSレポートのヘッダー表示の切り替えテクニック

質問

ACCESS(2002)のレポートで下記のように担当者別に担当者が購入した商品の明細リストを印刷したいと思います。

通常なら、担当者のグループヘッダーを作成し、詳細セクションに明細デーを表示させればＯＫなのですが、今回は、そのヘッダーの内容を「１ページ目(●Ａを表示)」と「２ページ目以降(★Ｂを表示)」で異なる内容にしたいのです。
何か良い方法があれば教えて下さい！

（補足１）
担当者が変われば、１ページ目は●Ａの表示に戻し、２ページ目以降は★Ｂの表示とします。

（補足２）
★Ｂの表示領域は●Ａよりも狭いです。つまり、２ページ目以降は１ページ目よりも明細が多く表示されます。

┌───────┐P1-1
　(担当１)太郎
　●ヘッダーＡ●
　　1.aaa
　　2.bbb
　　3.ccc
└───────┘

┌───────┐P1-2
　(担当１)太郎
　★ヘッダーＢ★
　　4.ddd
　　5.eee
　　6.fff
　　7.yyy
└───────┘

┌───────┐P1-3
　(担当１)太郎
　★ヘッダーＢ★
　　8.hhh
　　9.eee
　　10.aaa
　　11.ttt
└───────┘

┌───────┐P2-1
　(担当２)花子
　●ヘッダーＡ●
　　1.xxx
　　2.yyy
　　3.ccc
└───────┘

┌───────┐P2-2
　(担当２)花子
　★タイトルＢ★
　　4.jjj
　　5.eee
　　6.kkk
　　7.ppp
└───────┘

回答No.1

o23 · ベストアンサー

こんばんは!
とりあえず以下の通りでどうでしょう?
１．担当者のグループヘッダーを２つ作成する。
２．上側の担当者ヘッダーの名前をヘッダーAとする。
３．下側の担当者ヘッダーの名前をヘッダーBとする。
４．ヘッダーBのセクション繰り返しを”はい”にする。
５．ヘッダーAのフォーマット時イベント
Private Sub ヘッダーA_Format(Cancel As Integer, FormatCount As Integer)
Me.Page = 1
End Sub
６．ヘッダーBのフォーマット時イベント
Private Sub ヘッダーB_Format(Cancel As Integer, FormatCount As Integer)
If Me.Page = 1 Then
Me.ヘッダーB.Visible = False
Else
Me.ヘッダーB.Visible = True
End If
End Sub
７．グループフッターAの改ページ=カレント セクションの後

お礼

ご回答ありがとうございます。
さっそく試してみます。

補足

早速、ACCESS(2002)で試してみました。

>７．グループフッターAの改ページ=カレント セクションの後

これだと明細が２ページ目から表示されたので、"セクションの前" に変更すると１ページ目から表示されました。

ただ、ヘッダーＢが表示されません。
どうも、 "Me.ヘッダーB.Visible = False" とした時に、セクション繰り返しが”いいえ”になっているような...？

試しに、ACCESS(2000)の方で実行すると上手くいきました。 これってバグなんでしょうか？
業務としては ACCESS(2002)で使用したいのですが....

回答No.2

o23

Access2002でもこのあたりは変わらないだろうと思ったのですが、だめですか・・・
バグなのか?仕様の変更なのか?
ヘッダーの可視・不可視ではなくコントロールひとつづつやってみるとかではどうなんでしょう。

お礼

ありがとうございました。
もう少し調査してみます。