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

質問

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

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

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

よろしくお願いします。

回答No.1

bonaron

サンプルです。
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