アクセス 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)
元となるクエリを直接実行すると正しく動作します。
お礼
ばっちりできました。 ありがとうございました。