FindFirst複数条件
access 超初心者です。
フォームに２つのコンボボックス(COM_A,COM_B)があり
そのコンボボックスで条件を２つ設定し、テーブル(TBL)から
条件の一致したレコードを検索したいのですが、うまくいきません。
TBLのフィールド AAA ---> COM_Aで指定
BBB ---> COM_Bで指定
Dim db As DAO.Database
Dim TBL As DAO.Recordset
Set db = CurrentDb
Set TBLrs = db.OpenRecordset("TBL", dbOpenDynaset)
TBLrs.FindFirst"AAA='"&Me.COM_A&"'"And"BBB='"& Me.COM_B & "'"
If TBLrs.NoMatch Then
処理
Else
処理
End If
というコードなのですが、実行すると『型が一致しません』となってしまいます。
TBLrs.FindFirst"AAA='"&Me.COM_A&"'"
If TBLrs.NoMatch Then
～
とか
TBLrs.FindFirst"BBB='"&Me.COM_B&"'"
If TBLrs.NoMatch Then
～
のように条件を１つにすると各々問題なく動作します。
単純にAndでひっつけるだけではダメなのでしょうか？
いろいろ調べましたが、完全に行き詰ってしまいました。
ヒントでもいただければありがたいです。
よろしくお願いします。
