Ａｃｃｅｓｓのレポート重複データの非表示について

質問

Ａｃｃｅｓｓ2000のレポートにて重複データの非表示が思うようにいきません

地区 氏名 　　住所
上町１ 山本1さん　○○市1-1
山本2さん
伊藤3さん　○○市1-3
後藤4さん　○○市1-4
上町２ 佐藤5さん　○○市1-5
佐藤6さん　○○市1-6
鈴木7さん　○○市1-7
佐川8さん　○○市1-8
菅原9さん　○○市1-9
新町１ 小田1さん ○○市1-10
小田2さん
木村3さん ○○市1-12
仲居4さん ○○市1-13
新町２ 伊勢5さん ○○市1-15
西 6さん ○○市1-16
大 7さん ○○市1-17
金 8さん ○○市1-18

住所が同じ場合も非表示です

現状は次のとおりです

地区 氏名 　　住所
上町１ 山本1さん　○○市1-1
山本2さん
上町１ 伊藤3さん　○○市1-3
上町１ 後藤4さん　○○市1-4
上町２ 佐藤5さん　○○市1-5
上町２ 佐藤6さん　○○市1-6
上町２ 鈴木7さん　○○市1-7
上町２ 佐川8さん　○○市1-8
上町２ 菅原9さん　○○市1-9
新町１ 小田1さん ○○市1-10
小田2さん
新町１ 木村3さん ○○市1-12
新町１ 仲居4さん ○○市1-13
新町２ 伊勢5さん ○○市1-15
新町２ 西 6さん ○○市1-16
新町２ 大 7さん ○○市1-17
新町２ 金 8さん ○○市1-18

このような状態で出ちゃいます

罫線は地区グループと住所グループに入れています。
そして地区ごとに改ページをしています。
最初のように出すにはレポートに何か手を加えなければ無いのでしょうか？

回答No.1

hatena1989 · ベストアンサー

地区の方は、下記のグループがあるとそこで区切れてしまいますので、表示されてしまいますね。
「重複データ非表示」は「いいえ」にしておいて、VBAで可視をコントロールすることになります。

レポートモジュールの先頭部に下記の変数を挿入します。

Option Compare Database
Option Explicit
Dim chiku '地区 格納用変数

詳細セクションのフォーマット時のイベントプロシージャ

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
　　If chiku = Me.地区 Then
　　　　Me.txt地区.Visible = False
　　Else
　　　　Me.txt地区.Visible = True
　　　　chiku = Me.地区
　　End If
End Sub

地区 のテキストボックス名は txt地区 とします。

改ページしたときの先頭行は表示させたいときは、ページヘッダーのフォーマット時で
変数を初期化します。

Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer)
　　　　chiku = Null
End Sub

お礼

ほぼこの通りレポートに書いたらOKでした
修正箇所はMe.地区をMe.txt地区に変えて、エラーなく動きました
ありがとうございました。