accessでの２つのコンボックスによるフィルター

質問

フォームのオープン時に下記を記載しています。
Private Sub Form_Load()
Me.ステータスリスト.RowSourceType = "Table/Query"
Me.ステータスリスト.RowSource = "Select ステータスT.ステータス1 FROM ステータスT"
Me.申請リスト.RowSourceType = "Table/Query"
Me.申請リスト.RowSource = "Select 申請種別T.申請内容1 FROM 申請種別T"

テーブルは3種類
申請履歴T（全データ）
ステータスT(コンボックス用データ）
申請種別T（コンボックス用データ）
Private Sub 検証_Click()

DoCmd.ApplyFilter WhereCondition:="[ステータス]='" & Me.ステータスリスト & "'"

'DoCmd.ApplyFilter WhereCondition:="[申請内容]='" & Me.申請リスト & "'"

End Sub

以上です。
1つを選択後2つ目を選択すると○○○and△△△って具合にならず、一方に引っ張られて
ちゃんと出ません。
何卒、ご助言宜しくお願い致します。

回答No.4

piroin654 · ベストアンサー

現象の確認ができました。
申請履歴T（全データ）のデータのありようによっては、

With Me
　　.Filter = "[ステータス]='" & Me.ステータスリスト & "'"
　　.Filter = "[申請内容]='" & Me.申請リスト & "'"
　　.FilterOn = True
End Wit

や

DoCmd.ApplyFilter WhereCondition:="[ステータス]='" & Me.ステータスリスト & "'"
DoCmd.ApplyFilter WhereCondition:="[申請内容]='" & Me.申請リスト & "'"

では、AND　ではなく、OR　検索になってしまうようです。
したがって、No3のように、

Me.Filter = "[ステータス] = '" & Me.ステータスリスト & "' And " & "[申請内容]='" & Me.申請リスト & "'"
Me.FilterOn = True

きちんとAND記述をしないといけないですね。
私の勘違いでした、とこちらでは思っているのですが
どうでしょうか？

回答No.3

piroin654

同様に、

Private Sub 検証_Click()
Me.Filter = "[ステータス] = '" & Me.ステータスリスト & "' And " & "[申請内容]='" & Me.申請リスト & "'"
Me.FilterOn = True
End Sub

では？

回答No.2

piroin654

同じことだと思うのですが、

Private Sub 検証_Click()
With Me
　　.Filter = "[ステータス]='" & Me.ステータスリスト & "'"
　　.Filter = "[申請内容]='" & Me.申請リスト & "'"
　　.FilterOn = True
End With
End Sub

と、してみるとどのようになりますか？

お礼

No3のAnd で解決いたしました。何度もお付き合いありがとうございました。なんとお礼を言えばいいかわかりませんが、本当にありがとうございました。思わずファン登録させて頂きました。今後も質問があると思いますが、ご助力宜しくお願い致します。

補足

お返事ありがとうございます。でもやはりステータスが維持されず同じ状態です。申請内容だけが維持されステータスは選んだもの以外になってしまいます。VBA事態をIf文にした方が良いのでしょうか。（私には無理ですが）
色々考えていただいてありがとうございます。もう少し付き合っていただいてもよろしいでしょうか？
何卒、宜しくお願いいたします。

回答No.1

piroin654

＞1つを選択後2つ目を選択すると○○○and△△△って具合にならず、一方に引っ張られて
＞ちゃんと出ません。

やり方はあっている、というか、

'DoCmd.ApplyFilter WhereCondition:="[申請内容]='" & Me.申請リスト & "'"

のように、この一行がコメントアウトされているからでは？？？？？？

補足

冒頭の’ですが私の打ち間違えとしか言えず、VBAには付いておりません。大変申し訳ござませんが、再度お知恵を拝借できないでしょうか。何卒、宜しくお願いいたします。