Microsoft Access 掲示板

Microsoft Access 掲示板

DoCmd.OpenForm レコードソース外のクエリによる抽出条件について / 5
5
hatena 2019/04/23 (火) 12:53:36

すみません。サンプル作成して動作確認してみましたが、抽出条件が無視されますね。
下記に修正してください。

開く時のイベントプロシージャ

Private Sub Form_Open(Cancel As Integer)
    Dim Args
    Args = Split(Me.OpenArgs, ";")
    Me.RecordSource = Args(0)
    Me.Filter = Args(1)
    Me.FilterOn = True
End Sub

フォームを開くコードは、下記で。

DOCmd.OpenForm "F売上集計", , , , , , "クエリC;[クエリC]![区分]='" & [Forms]![フォームB]![区分] & "'"

第7引数に、"クエリ名;抽出条件" というようにクエリ名と抽出条件を;で区切って設定してください。

通報 ...