アクセス VBA クエリSQL文変更

質問

以前、教えていただいたにもかかわらず、作業が上手くいったことで、理解を深めることを疎かに
してしまい、一部を修正したところ、わからなくなってしまいました。
申し訳ございませんが、教えてください。

Ｘと同一の構成である Ｘ１～という複数のテーブルから一つを選択して、クエリＹを実行
クエリＹは、フィールド１の値が ＢＢＢであるレコードの、フィールド１、３、５を抽出

Dim dbs As DAO.Database
Dim qrdef As DAO.QueryDef

Set dbs = Currentdb
Set qrdef = dbs.QueryDefs("クエリY")

qrdef.SQL = Replace(Expression:=qrdef.SQL _
　　　　　　　　, Find:="テーブルX" _
　　　　　　　　, Replace:="テーブルX1" _
　　　　　　　　, Compare:=vbTextCompare)

Set qrdef = Nothing
Set dbs = Nothing

実行時エラー3075
　クエリ式'テーブルＸ１.フィールド１'の構文エラー：演算子がありません
デバッグ
qrdef.SQL = Replace(Expression:=qrdef.SQL _
　　　　　　　　, Find:="テーブルX" _
　　　　　　　　, Replace:="テーブルX1" _
　　　　　　　　, Compare:=vbTextCompare)

元となるクエリを直接実行すると正しく動作します。

回答No.2

Gin_F · ベストアンサー

> qrdef.SQL = Replace(Expression:=qrdef.SQL _
> 　　　　　　　　, Find:="テーブルX" _
> 　　　　　　　　, Replace:="テーブルX1" _
> 　　　　　　　　, Compare:=vbTextCompare)

Find 引数・Replace 引数を固定で指定して、クエリのSQL文を上書きする
ようになっています。

なので、
> 元となるクエリを直接実行すると正しく動作します。
これをテンプレートのような使い方をして、別のクエリを使うようにした方が
いいと思います。

現在のクエリを「クエリY」としたら、「クエリZ」というのを適当に作成してください。

Dim dbs As DAO.Database
Dim sqrdef As DAO.QueryDef
Dim tqrdef As DAO.QueryDef

Set dbs = Currentdb
Set sqrdef = dbs.QueryDefs("クエリY")
Set tqrdef = dbs.QueryDefs("クエリZ")

tqrdef.SQL = Replace(Expression:=sqrdef.SQL _
　　　　　　　　, Find:="テーブルX" _
　　　　　　　　, Replace:="テーブルX1" _
　　　　　　　　, Compare:=vbTextCompare)

Set sqrdef = Nothing
Set tqrdef = Nothing
Set dbs = Nothing

のように。

お礼

ご回答ありがとうございます。私の説明不足のようで、試したところまったく同じ結果でした。
伝え直すと、
, Replace:="テーブルX1" _　は　, Replace:=変数A _
元となるクエリを直接実行すると正しく動作 は
クエリＹ⇒テーブルＸを手動で実行すると正しく動作　です。
ど素人の感覚ですが、フィールド１の抽出条件が上手く反映されていないような感じです。
ＢＢＢという文字列を含むという単純な条件なのですが。
お手数おかけして恐縮です。

補足

ありがとうございます。上手くいきました。＞クエリZを適当に作成　不適当だったのかもしれません。
また、よろしくお願いします。とても助かりました。

回答No.1

nicotinism

Set qrdef = dbs.QueryDefs("クエリY")
debug.print "OK " & qrdef.SQL
qrdef.SQL = Replace(Expression:=qrdef.SQL _
　　　　　　　　, Find:="テーブルX" _
　　　　　　　　, Replace:="テーブルX1" _
　　　　　　　　, Compare:=vbTextCompare)
debug.print "NG " & qrdef.SQL
としてみてイミディエイトウィンドウに出力されたものを
見比べてみる。
手動で作成したうまく作動するテーブルX1のクエリのSQLビューと見比べる。
これで原因が調べられると思います。

お礼

さっそくのご回答ありがとうございます。試したところ、テーブル名が変わっていませんでしたが、
正常な場合は、デバッグ箇所のところで既にテーブルX1になっているべきなのでしょうか？
実は、テーブル名は変数でフォーム入力で都度指定するようになっており、デバッグ時に、コード上
で該当箇所にカーソルを合わせると、指定した名称が正しく表示されます。
よくわかっていなくて申し訳ございません。