#356 テーブルやクエリ名をプログラムから一括変更する方法 VBA

次のサンプルコードをアレンジすることで、テーブルやクエリの名前をVBAプログラムから一括変更することができます。
Accessのオプションの[全般]タブにおいて、「名前の自動修正を行う」にチェックを入れておけば、そのテーブルをソースとするクエリや、そのテーブルやクエリをレコードソースとするフォームの内容も自動的に変更されます(ただしモジュール内のテーブルやクエリ名はマニュアルで変更する必要があります)。

Public Sub NameChange()

  Dim dbs As Database

  Set dbs = CurrentDb
  With dbs
    '現在のテーブル名(左辺)と新しい名前(右辺)を列挙します。
    .TableDefs("テーブル1").Name = "tblデータ1"
    .TableDefs("テーブル2").Name = "tblデータ2"
    .TableDefs("テーブル3").Name = "tblデータ3"
    .TableDefs("テーブル4").Name = "tblデータ4"
    .TableDefs.Refresh

    '現在のクエリ名(左辺)と新しい名前(右辺)を列挙します。
    .QueryDefs("クエリ1").Name = "qsel抽出クエリ1"
    .QueryDefs("クエリ2").Name = "qsel抽出クエリ2"
    .QueryDefs("クエリ3").Name = "qsel抽出クエリ3"
    .QueryDefs("クエリ4").Name = "qsel抽出クエリ4"
    .QueryDefs.Refresh

  End With

End Sub
| Index | Prev | Next |



T'sFactory
Accessで動く生産管理DB
Ureru Express
Webで使う販売顧客管理
Access開発&アドバイス
DB開発やテクニカルアドバイス
Copyright © T'sWare All rights reserved