Access フォーム内でいくつかの条件での検索について

Question

聞きたいこと
→accessで遷移先画面へのクエリの受け渡し？表示方法について。
→パラメータの入力ダイアログは出ないようにしても大丈夫なのか。

状況説明
→画面Xにコンボボックス１とテキストボックス２つがあり、実行btnをクリックすると「パラメータの入力」という画面が表示される。
→画面Yにデータを表示させたいのだが、肝心のクエリは動いていない（？）ため画面の見た目が真っ白。

以下は画面YのVBAで、画面読み込み時の処理↓

Private Sub Form_Load()
    Dim qd As QueryDef
    Set qd = CurrentDb.QueryDefs("クエリ１")

With qd
With CurrentDb.QueryDefs("クエリ１")
'テキストボックス１
If IsNull([Forms]![画面X]![画面X内のtxb1]) Then
    .Parameters("条件１") = ""
Else
    .Parameters("条件１") = [Forms]![画面X]![画面X内のtxb1]
'テキストボックス２
If IsNull([Forms]![画面X]![画面X内のtxb2]) Then
    .Parameters("条件２") = ""
Else
    .Parameters("条件２") = [Forms]![画面X]![画面X内のtxb2]
'コンボボックス
If IsNull([Forms]![画面X]![画面X内のcmb]) Then
    .Parameters("PARAMT") = ""
Else
    .Parameters("PARAMT") = [Forms]![画面X]![画面X内のcmb]

End With
End With
End Sub

解決法がわかる方、もしくは検索方法がわかる方がいらっしゃいましたら教えていただけますと幸いです。
よろしくお願い致します。

Comments

[sazi]

パラメータの入力で求められる項目名を追記して下さい。

[MiECa]

条件１、条件２、ＰARAMTの三つです。

Answer 1

「画面Y」のレコードソースが「クエリ１」ということですね。

勘違いしているようですが、QueryDefを宣言してそれにパラメータを設定していますが、これでレコードソースのパラメータークエリにパラメータが設定されるわけではありません。宣言したQueryDefをOpenRecorsetしたときに開かれるレコードセットに適用されますが、フォームとは無関係です。

ご希望のことは、画面X の テキストボックスやコンボボックスにデータが未入力の時に、その条件は無視したいということだと推測しましたが、あってますか。だとしたら、レコードソースには抽出条件は設定せずに、開くときに、抽出条件(フィルター)を設定すればいいかと思います。

画面X の 実行btn のクリック時に下記のように記述してください。

Private Sub 実行btn_Click()
    Dim strFilter As String
    
    If Not IsNull(Me![画面X内のtxb1]) Then
        strFilter = " AND フィールド1='" & Me![画面X内のtxb1] & "'"
    End if
    If  Not IsNull(Me![画面X内のtxb2]) Then
        strFilter = " AND フィールド2='" & Me![画面X内のtxb2] & "'"
    End If
    If  Not IsNull(Me![[画面X内のcmb]) Then
        strFilter = " AND フィールド3='" & Me![[画面X内のcmb] & "'"
    End If
	strFilter = Mid(strFilter, 6) '先頭の不要な" AND "を除去
    Docmd.OpenForm "画面Y", , , strFilter

End Sub

フィールド名や条件は実際のものに合わせて変更してください。

---

　誤解を招きかねない表現があったので、補足説明しておきます。
もし、QueryDef で開いたレコードセットをフォームのソースにしたい場合は、下記のようなコードになります。

Private Sub Form_Load()
    Dim qd As DAO.QueryDef
    Dim rs As DAO.Recordset
    
    Set qd = CurrentDb.QueryDefs("クエリ１")

    With qd
        'テキストボックス１
        .Parameters("条件１") = Nz([Forms]![画面X]![画面X内のtxb1],"")
        'テキストボックス２
        .Parameters("条件２") = Nz([Forms]![画面X]![画面X内のtxb2],"")
        'コンボボックス
        .Parameters("PARAMT") = Nz([Forms]![画面X]![画面X内のcmb],"")
        Set rs = .OpenRecordset 'クエリからレコードセットを開く
        Set Me.RecordSet = rs  '開いたレコードセットをフォームのRecordSetプロパティに設定する
    End With
End Sub

この場合は、レコードソースは空白にしておく必要があります。すなわち、レコードソースと RecordSetプロパティは別物ということです。RecordSetプロパティに OpenRecordset で開いたレコードセットを設定することはできますが、いろいろ制限がありますので、メリットはほとんどないと思います。

Comments

[sazi]

パラメータクエリをフォームのレコードセットとして指定できなかったんでしたっけ？
画面yのform_loadで行っているからタイミングが悪くて、btn_clickで行うことでも良い気がしますが。

[hatena19]

できないことはないですが、いろいろ制限があるので一般的ではないと思います。抽出条件を動的に設定したい場合、Filterプロパティを使ったほうがシンプルだし自由度も高いので、そちらの方法を紹介しました。Docmd.OpenFormの引数で抽出条件を設定するとFilterプロパティにその条件が設定されます。

[sazi]

私もパラメータクエリを使用する方では無いので、他の方法でというのは同意です。
>QueryDefを宣言してそれにパラメータを設定していますが、これでレコードソースにパラメータが設定されるわけではありません。
というのが、誤解を招く表現と感じたので、コメントしました。

[sazi]

何度もすみません。言葉足らずでした。
レコードソースにパラメータクエリが設定されているとして、そのクエリーに対してパラメータは設定可能なので、「レコードソースにパラメータが設定されるわけではありません。」というのがレコードソースにパラメータクエリは使えないという風に解釈されるかもしれないという意味です。

[hatena19]

回答では 「QueryDefを宣言してそれにパラメータを設定していますが、これでレコードソースにパラメータが設定されるわけではありません」と言ってます。これで、「レコードソースにパラメータクエリは使えない」と解釈されてもちょっと。

[sazi]

レコードソースにパラメータなどは無いので、パラメータクエリーに対してと解釈してしまうかと思った次第。
汚してしまってすみません。