お久しぶりです。
新しいWordpressが使いづらくてわざわざ旧エディタプラグインをインストールしたあおいです。
Accessのテーブル名を変えた時、「全てのクエリを修正しないといけないじゃん!」なんてことが起きたことが過去にありませんでしたか??
そんなあなたに、今回はAccessの全クエリを一括で置換する方法を紹介したいと思います。
(今回も短い記事になりそう。
≪Access VBAコード≫
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Option Compare Database Option Explicit Sub ReplaceAllQuery() Dim DAOQD As DAO.QueryDef For Each DAOQD In CurrentDb.QueryDefs DAOQD.SQL = Replace(DAOQD.SQL, "置換前文字", "置換後文字") Next End Sub |
たったこれだけです。
“置換前文字”と”置換後文字”をいじったら実行してみましょう。
どんなにたくさんのクエリがあったとしても数秒から数十秒で置換してくれるはずです。
是非お試しを。
ノシ
---コメント---