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

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


#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 \|