access 2つのテキストボックスで合致した条件を抽出したい。 ＶＢＡ超初心者です。

Question

初めまして。

accessの複数条件抽出ができなくて困っています。

内容は次の通りです。

＜4月入社で所属が営業部の社員を抽出したい＞

①フォーム[入社月]と[所属]のフィールドから抽出するため

[検索]と[所属検索]のテキストボックス

検索を実行するためのコマンドボタン[コマンド22]

を設置しました。

②コマンド22のプロパティ「イベント」の「クリック時」に次のコードを入れました。

Option Compare Database

Option Explicit

Private Sub コマンド22_Click()

Dim strfilter1 As String

Dim strfilter2 As String

strfilter1 = "入社月 Like ""*" & 検索 & "*"""

strfilter2 = "所属='" & 所属検索 & "'"

Me.Filter = strfilter1 & " and " & strfilter2

End Sub

★以上を試みましたが、検索ができません。

　エラーにもなりません。

　何が足りないのでしょうか？

　それとも、根本的にやり方を間違えているのでしょうか？

　わかりにくい説明で申し訳ありませんが、教えてください。

　よろしくお願い致します！

Answer 1

ありがとうございます！

出来ました！

すごく嬉しいです！本当にありがとうございましたm(_ _)m

Answer 2

> Me.Filter = strfilter1 & " and " & strfilter2

> End Sub

Me.Filter = strfilter1 & " and " & strfilter2

'このフォームの[フィルター適用]プロパティを True に

Me.FilterOn = True

End Sub

---

以上のステートメントを追加して下さい。