Accessでテーブル名の変更

質問

ACCESS初心者です。
ACCESS2000でテーブル名の頭にホスト名が入っています（テーブル数が１００程あります）
それを変更する関数はどのようなものがあるのでしょうか。さすがに手動で一つ一つやるのは大変なので一括でやる方法を教えて下さい。
ex)nifty_TABLE1 → TABLE1
　 nifty_TABLE2 → TABLE2
・・・
すみませんがよろしくお願いします。

回答No.1

tsukasa-12r · ベストアンサー

nifty_XXX → XXX なら
Private Sub コマンド0_Click()
　　Dim db As Database
　　Dim tbl As TableDef

　　Set db = CurrentDb
　　For Each tbl In db.TableDefs
　　　　If Left(tbl.Name, 6) = "nifty_" Then
　　　　　　tbl.Name = Mid(tbl.Name, 7)
　　　　End If
　　Next
End Sub
でできます。

お礼

ありがとうございました。
解決しました。