レポートで除外したいレコードがあれば、クエリの抽出条件に設定する方法やフィルタで指定する方法がありますが、全てデータを詰めて表示してしまいます。

PrintSection プロパティ

今回は、PrintSection プロパティを利用して、データを詰めて表示しない方法をご紹介します。
(下左図がクエリの抽出条件を利用した場合、下右図はPrintSection プロパティを利用した場合)

レポートの作成とデザインビュー

レポートは、帳票形式のものであればどのようなものでも問題ありません。サンプルは以下のとおりです。

宣言セクションに変数を定義

値を他のプロシージャで利用するために'宣言セクションに変数を定義します。

Option Compare Database
Option Explicit


Dim varData As Variant

レポートを開くイベントプロシージャの作成

レポートを開くイベントに、下記のプロシージャを作成します。 InputBoxステートメントを用いて、性別の入力を促し、入力値を変数に格納します。

Private Sub Report_Open(Cancel As Integer)

    Dim strmsg As String
    
    strmsg = "表示にする性別(男、女の何れか)を入力して下さい。"
    varData = InputBox(strmsg)

End Sub

詳細セクション印刷時イベントプロシージャの作成

フォーマット時イベントプロシージャに記述すると正しく動作しませんので、 必ず印刷時イベントに記述してください。PrintSection プロパティを利用して、詳細セクションを印刷しません。

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)

    If Not varData = "" Then
    
        If Me.txt性別 <> varData Then
            'セクションを印刷しません。
            Me.PrintSection = False
        End If
        
     End If
     
End Sub

レポート印刷プレビュー

1. デザインビューから印刷プレビューに切り替えます。
2. 下記のようなInputBoxステートメントが立ち上がります。

3. 女を入力します。
4. [OK]ボタンをクリックします。
5. 印刷プレビューモードでレポートが開きます。

関連ページ

• 任意のレコード数ごとにレポートで空白行を表示させる方法 ： SampleFile233
• レポートで最後まで罫線を引く簡易な方法：SampleFile137
• 続_レポートで最後まで罫線を引く簡易な方法：SampleFile139