#328
フォームと同じ内容（通常は同じレコードソース）のレポートがあるとき、現在フォームに表示されているレコードの情報だけをレポートとして出力させる方法です。
それには、DocmdのOpenReportメソッドを実行する際、４番目のWhereCondition引数を指定します。これはレポートに対する抽出条件を指定する項目で、フォームのカレントレコードを示すキー値をここに指定します。
Private Sub cmdPreview_Click()
'[このレコードだけを印刷]ボタンクリック時
'レポートを開く
DoCmd.OpenReport "rpt顧客マスタ", acViewPreview, , "顧客コード = " & Me!顧客コード
End Sub
※この例では「顧客コード」が特定の１レコードを示すキーで、またこのフィールドは数値型としています。
