Accessでテーブル名の変更

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

No.1 ベストアンサー 回答者： tsukasa-12r 回答日時： 2004/04/04 22:36

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
でできます。

この回答へのお礼

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

お礼日時：2004/04/04 23:36