アクセスレポートのグループごとの通し番号について

質問

いつもお世話になっております。
Accessのレポートにおけるグループごと通し番号の振り方について、お教えください。
下記のようなテーブルがあり、業者区分、地区、物品区分でグループ化しレポートに出力しています。

【テーブル名：T_予算】
業者区分 地区 物品区分 物品名
市内 A 消耗品 あ
市内 A 消耗品 い
市内 A 消耗品 う
市内 A 消耗品 え
市内 A 消耗品 お
市外 B 食糧 か
市外 B 食糧 き
市外 B 食糧 く
市外 B 食糧 け
県内 C 役務 こ
県内 C 役務 さ
県内 C 役務 し

上記テーブルのデータで下記レポートのように連番を振りたいと思っています。
業者区分、地区、物品区分は同じ内容としていますが、連番を振る基準となるのは、最初のグループ化にしている業者区分を想定しています。
実際使用するデータも３つあるグループ化のうち、最初でグループ化している内容で連番を振るようにしています。

【レポート名：R_予算】
［業者区分グループ］
　市内
［地区グループ］
　A
［物品区分グループ］
　消耗品
［物品名］
　あ １　←　連番
　い ２
　う ３
　え ４
　お ５
［業者区分グループ］
　市外
［地区グループ］
　B
［物品区分グループ］
　食糧
［物品名グループ］
　か １
　き ２
　く ３
　け ４
［業者区分グループ］
　県内
［地区グループ］
　C
［物品区分グループ］
　役務
［物品名グループ］
　こ １
　さ ２
　し ３

また、業者区分グループのヘッダーは、複数ページになった場合を想定し、「セクション繰り返し」を「はい」に設定しています。
上手く伝わらない表現ですみませんが、ご教授をよろしくお願いします。

回答No.2

kkkkkm · ベストアンサー

> 連番が次のページに行ったときに初期化となってしまい、また０から始まってしまいます。

テストデータを1ページ分しか作らなかったのでここに気が付きませんでした。
以下の方法でいけたのですが、いかがでしょう

業者区分のグループフッターを作ってもらって

Dim mFlg As Boolean

Private Sub グループフッター0_Format(Cancel As Integer, FormatCount As Integer)
If FormatCount = 1 Then
mFlg = True
Else
mFlg = False
End If
End Sub

Private Sub グループヘッダー0_Format(Cancel As Integer, FormatCount As Integer)
If mFlg = True Then
Me.通し番号 = 0
mFlg = False
End If
End Sub

'↓ここで念のために初期化しています。
Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer)
Me.通し番号 = 0
mFlg = False
End Sub

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If FormatCount = 1 Then
Me.通し番号 = Me.通し番号 + 1
End If
End Sub

Private Sub 詳細_Retreat()
Me.通し番号 = Me.通し番号 - 1
End Sub

お礼

ありがとうございます。

補足

kkkkkmさん、ご回答ありがとうございます。
見事、私の希望どおりの形になりました！
今回も助けていただきまして、誠にありがとうございます。
今後とも、どうぞよろしくお願いいたします。

回答No.1

kkkkkm

前回
https://okwave.jp/qa/q9954373.html
は、市内と市外で別の連番を振ってたのですが、また別という事でしょうか。
添付画像は前回と同じ設定でやってみたものです。

補足

kkkkkmさん、いつも助けてくださり誠にありがとうございます。
さて、質問の中で述べていますが、「セクション繰り返し」を「はい」に設定している関係で、連番が次のページに行ったときに初期化となってしまい、また０から始まってしまいます。
この点が、前回教えてもらった点と違うようになっています。
この点を回避できる方法は、ありますでしょうか。