アクセスレポートの空白行の非表示について

質問

• Access2016を使用しています。下記のような構造のテーブル（T_討論会）があり、これをレポート（R_討論会）に出力しています。
• 質問日、質問者、質問事項、質問詳細１はグループ化していて、質問詳細２、説明者は詳細セクションに配置しています。
• 「希望の表示レポート」の作成方法を教えてください。

回答No.10

piroin654

一向に解決しないようなので、回答しておきます。

（１）
準備として「T_討論会」にオートナンバーのフィールドを追加しておいてください。
これはデータの並びを確保するためです。主キーである必要はありません。もし
類似するフィールドがあるならば必要ありませんが。

（２）
レポートの「詳細」にある「質問詳細２」と「説明者」の二つのテキストボックスを
コピーし、テキストボックス「質問詳細１」がある同じ「質問詳細１.ヘッダー」に
貼り付け、それぞれの名前を「txt質問詳細２」と「txt説明者」としてください。
上下の並びはそれぞれ揃えておいてください。

（３）
「詳細」に新しいテキストボックスを適当な場所に配置し、プロパティで
名前は適当にしておき、「コントロースソース」を「ID」にし、
「可視」を「いいえ」にしておきます。付属するラベルは必要ありません。
これは、「詳細」の「質問詳細２」の昇順の並びを確保するためのもの
ですが、並びが確保されているならば設置する必要ありません。

（４）
「質問詳細１.ヘッダー」のプロパティを表示し、「フォーマット時」のイベント
で、以下を設定します。

Private Sub グループヘッダー3_Format(Cancel As Integer, FormatCount As Integer)
　　If IsNull(Me.質問詳細２) Then
　　　　Me.詳細.Visible = False
　　　　Me.txt説明者.Visible = True
　　Else
　　　　Me.詳細.Visible = True
　　　　Me.txt説明者.Visible = False
　　　　Me.説明者.Visible = True
　　　　Me.txt質問詳細２.Visible = False
　　End If
End Sub

「グループヘッダー3」というのはこちらでの
ヘッダーの名前ですが、実際には違うかもしれません。中身をコピーし、
貼り付ければいいです。

　　If IsNull(Me.質問詳細２) Then
　　　　Me.詳細.Visible = False
　　　　Me.txt説明者.Visible = True
　　Else
　　　　Me.詳細.Visible = True
　　　　Me.txt説明者.Visible = False
　　　　Me.説明者.Visible = True
　　　　Me.txt質問詳細２.Visible = False
　　End If

のところです。

以上です。分からないところがあれば補足してください。

お礼

piroin654さん、こんにちは。

　おかげさまで、思ったとおりになりました。
　今後とも、どうぞよろしくお願いいたします。