HOME > 即効テクニック > AccessVBA > データ操作 > 指定した条件のレコードを抽出する

即効テクニック

データ操作

指定した条件のレコードを抽出する

(Access 2000/2002/2003)
●概要●
構文  expression.OpenReport(ReportName, View, FilterName, WhereCondition, 
                            WindowMode, OpenArgs)

設定項目	内容
expression	DoCmdオブジェクト[省略不可]
ReportName	レポートの名前を文字列式で指定[省略不可]
View		レポートのビューをAcViewクラスの定数で指定[省略可能]
FilterName	カレントデータベースのクエリの名前を文字列式で指定
		[省略可能]
WhereCondition	SQL文のWHERE句を文字列式で指定[省略可能]
WindowMode	レポートのウィンドウの形態をAcWindowModeクラスの定数で指定	
		[省略可能]
OpenArgs		レポートのOpenArgsプロパティの値を文字列式で指定[省略可能]

引数で指定した名前のレポートを開くとき、引数と引数に、抽出条件を指定します。引数にはカレントデータベースのクエリ名を指定します。引数には、抽出条件としたいSQL文のWHERE句から、WHEREを除いた文字列を記述します。

・引数に指定する定数(AcViewクラス)

定数		説明
acViewDesign	デザインビュー
acViewNormal	印刷(既定値)
acViewPreview  	印刷プレビュー

・引数に指定する定数(AcWindowModeクラス)

定数		説明
acWindowNormal	標準のウィンドウ(既定値)
acDialog		ダイアログ形式
acHidden		フォームを非表示で開く
acIcon		アイコンで開く(最小化してタイトルバーのみ表示)

●サンプル●
Sub FilterSample()
    '[社員名簿]レポートで、部署が「システム」のレコードのみ抽出する
    DoCmd.OpenReport "社員名簿", acViewPreview, , "部署 = 'システム'"
End Sub