2 つのチェックボックスと 2 つのコンボボックスを含むフォームと、対応する結果を表示するサブフォームがあります。
次を使用して、コンボボックスの1つでサブフォームをフィルタリングできます:-
Dim LSQL
LSQL = "select * from Queries"
LSQL = LSQL & " where RaisedBy = '" & cboRaisedBy & "'"
Form_frmMainSub.RecordSource = LSQL
しかし、4 つの条件すべてでフィルターを有効にするための最善の方法は何でしょうか?