#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'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします
 

Copyright © T'sWare All rights reserved