ＡＣＣＥＳＳＶＢＡでフィルターを実行すると「型が一致しません」のエラー

Question

ＡＣＣＥＳＳＶＢＡでフィルターを実行すると「型が一致しません」のエラーとなります。

ＦＡのみのフィルターではＯＫ。ＦＩＬＥのみのフィルターではＯＫ。

ですが「 FILE = FA And FILE」にすると「型が一致しません」のエラーとなります。

どのように記述すれば良いのでしょうか。

お願い致します。

Dim DB As DAO.Database

Dim RS As DAO.Recordset

Dim i As Integer

     Set DB = CurrentDb

     Set RS = DB.OpenRecordset("住所Ｑ")     

     FI = Me.[工事日]

     FA = "郵便番号='0200101'"

     FILE = "[番地1]='" & FI & "'"

     FILE = FA And FILE

     RS.Filter = FILE

     Set RS = RS.OpenRecordset()

     If RS.RecordCount = 0 Then

                MsgBox "該当するレコードは見つかりません"

             Else

                Do Until RS.EOF

                    MsgBox RS![町名(漢字)]                   

               RS.MoveNext

             Loop

             End If

     RS.Close: Set RS = Nothing

End Sub

Answer 1

こんにちは。

FILE = FA And FILE

　↓

FILE = FA & " AND " & FILE

としてみるとどうでしょう。

---

※ご存知とは思いますが、Debug.Print で、値を確認すると良いですよ。

FILE = FA & " AND " & FILE

の後ろに

Debug.Print "FILE=" & FILE

として、イミディエイトウィンドウを表示すると、Debug.Print の値を確認出来ます。

（[表示] > [イミディエイトウィンドウ]）

必要無くなったら「'」を付けてコメントにします。

'Debug.Print "FILE=" & FILE