VBAで変数を含むSQL文を使用し、その変数に「’」を含むデータが入るとエラーになる。

アクセスVBA で変数を含む、例えば以下の用なSQL文を使用している時、このStr に例えば
「Mother's Shop」のような 「’」（シングル クォーテーション）を含むデータが入ると
エラーになってしまいます。これを防ぐ方法はないものでしょうか？

rs.Filter = " 顧客名 = ’ " & Str & " ’ "

No.1 ベストアンサー 回答者： t_fumiaki 回答日時： 2017/07/09 14:07

データ中にシングルクオテーション、ダブルクオテーションが有る場合は、制御分の開始/終了と区別が出来ない為、エスケープしないとエラーとなります。

「’」→　’’シングルクオテーションを2個続ける
「"」→　""ダブルクオテーションを2個続ける

この回答へのお礼

分かりました。
Strは、データとして入って来るので、

Str ＝Replace(Str, " ' ", " '' ")
rs.Filter = " 顧客名 = ’ " & Str & " ’ "

とすることにより、解決できました。
ありがとうございました。

お礼日時：2017/07/09 19:13