Accessのテーブル名/クエリー名を一括変換する

締切済

質問者：tkkbysh
質問日時：2006/06/30 18:46
回答数：1件

Accessのテーブル名/クエリー名を一括変換する方法は無いのでしょうか？どなたか分かる方教えてください。

例）
テーブル名「tbl_goo1」「tbl_goo2」「tbl_goo3」が存在するとして、
「_」（アンダースコア）を取り除きたいという場合

「tbl_goo1」⇒「tblgoo1」
「tbl_goo2」⇒「tblgoo2」
「view_goo3」⇒「viewgoo3」

よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

最新から表示
回答順に表示

No.1

回答者： bonaron
回答日時：2006/06/30 22:26

サンプルです。

DAO3.x の参照設定が必要です。

'テーブル名とクエリ名の（アンダースコア）を削除
Sub RenameTables()
Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Dim qdf As DAO.QueryDef

Set dbs = CurrentDb
'テーブル
For Each tdf In dbs.TableDefs
If tdf.Name Like "*_*" Then
tdf.Name = Replace(tdf.Name, "_", "")
End If
Next
'クエリ
For Each qdf In dbs.QueryDefs
If qdf.Name Like "*_*" Then
qdf.Name = Replace(qdf.Name, "_", "")
End If
Next
End Sub