Accessでフォームのフィルター（抽出）結果をレポートにも反映させる

フォームで抽出したレコードを、そのままレポートでも印刷する方法を紹介します。

■作成方法

1. フォームとレポートを同じレコードソースで作成します。
2. フォームにコマンドボタンを追加し、VBAでボタンがクリックされるとレポートが開くようにします。
   こうする理由は、フォームのフィルターを使用するため、レポートが開く時点でフォームも開いている必要があるためです。
3. レポートが開く時（Load）イベントに、フォームのFilterプロパティとFilterOnプロパティをレポートに代入します。

■ フォームのフィルターを反映するレポートを作成する

下のような都道府県人口を印刷するレポートを作成しました。


印刷プレビューすると、47都道府県の人口が表示されます。


フォームのフィルターを反映させるVBAを作成します。
レポートデザインで、プロパティシートの［イベントタブ］～［開く時］で［イベント プロシージャ］を選択します。


フォームのFilterとFilteOnプロパティをレポートに代入するVBAです。


・フォームが開いていない場合エラーになるので、レポートを単独で使用する場合は、フォームが開いているか判定したり、エラー処理を追加するなどの対処が必要になります。

Option Compare Database

Private Sub Report_Open(Cancel As Integer)
    Me.Filter = Forms!F_都道府県人口.Filter
    Me.FilterOn = Forms!F_都道府県人口.FilterOn
End Sub

フォームで人口が700万のフィルターを設定しました。
フィルターが設定されている場合、下のステータスバーに「フィルター適用」と表示されます。
印刷ボタンをクリックしレポートを開きます。


開いたレポートにフォームのフィルターが反映され、フォームと同じレコードが表示されています。
またレポートにも同様に、下のステータスバーに「フィルター適用」と表示されています。