Accessでフォームの並べ替え結果をレポートにも反映させる｜VBAで実行

■ フォームから開くレポートの作成

フォームヘッダーにコマンドボタンを配置し、クリックするとレポートを開くようにします。


ボタンのクリックイベントでレポートを開くVBAです。


Private Sub コマンド9_Click()
    DoCmd.OpenReport "R_都道府県人口", acViewPreview
End Sub

レポートのプロパティ［開く時］で、［イベント プロシージャ］を選択します。


レポートがオープンした時のVBAです。
ここでフォームの並べ替え条件を代入しています。


・OrderByには並べ替えるフィールドや、並べ替え順が文字列形式で保存されています。
・OrderByOnがTrueの場合、並べ替えを実行します。

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

■並べ替えてレポートを呼ぶ出す
１．フォームを開き、並べ替えるフィールドに移動します。
２．リボンの［ホーム］～並べ替えとフィルター グループの［昇順］か［降順］をクリックします。
３．［印刷］ボタンをクリックします。


レポートが開くと、フォームの並べ替え結果が反映されています。