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 回答日時： 2004/01/24 00:06

こんばんは!

とりあえず以下の通りでどうでしょう?
１．担当者のグループヘッダーを２つ作成する。
２．上側の担当者ヘッダーの名前をヘッダー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)で使用したいのですが....

補足日時：2004/01/24 13:59

この回答へのお礼

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

お礼日時：2004/01/24 13:35

No.2 回答者： o23 回答日時： 2004/01/26 10:04

Access2002でもこのあたりは変わらないだろうと思ったのですが、だめですか・・・

バグなのか?仕様の変更なのか?
ヘッダーの可視・不可視ではなくコントロールひとつづつやってみるとかではどうなんでしょう。

この回答へのお礼

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

お礼日時：2004/01/26 13:06