一度変数に格納すればフィルタができるのですが

質問

Set cn = CurrentProject.Connection

rs.Open "Qクエリ", cn, adOpenKeyset, adLockOptimistic

myStr = "(数 = 0) And (名 = 'test') "
rs.Filter = myStr

なら問題なくフィルタができるのですが、

rs.Filter = "(数 = 0) And (名 = 'test') "

とすると、
実行時エラー3001「引数が間違った型、許容範囲外、または競合しています。」
になります。

なぜか一度変数に格納すればフィルタができるのですが
そんなことありますか？
変数を介さないとエラーになるなんてありますか？

エラーの原因は変数を介さない事なのでしょうか？

アクセスです。

回答No.1

NotFound404 · ベストアンサー

Access2010で試しました。
まず、クエリではなくテーブルで行った場合は
どちらでも問題なくFilterが掛かりました。

クエリ中にワイルドカード（* ? など）があると
ADOの場合クエリのSQL文を、ANSI-92規格として解析するようです。
この場合のワイルドカードは（% _ など）ですから
どちらでもエラーにはなりませんでしたが
欲しい結果が得られなくなりました。
クエリはWHERE句で Like *文字* を入れている単純なものです。
http://okwave.jp/qa/q8666067.html
の 30246kiku さんによる検証を読んでみてください。

当方では問題のエラーの再現が出来なかったのですが、
クエリ中のSQL文に問題が潜んでいるかもしれません。
なお、ADOではなくて DAO でならエラーにならないかもしれません

Sub test()
Dim db As Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Qクエリ")
mystr = "(数 = 0) And (名 = 'test') "
'rs.Filter = mystr
rs.Filter = "(数 = 0) And (名 = 'test') "

Do Until rs.EOF
Debug.Print rs.Fields(1)
rs.MoveNext
Loop

rs.Close: Set rs = Nothing
Set db = Nothing
End Sub

お礼

ありがとうございました。