ODBC接続 SQL SERVER リンク テーブル名一括変更
リンクテーブル名を一括で変更するモジュール「T_Name」
をModule1の中に作成する
Sub T_Name()
Dim myTable As TableDef
For Each myTable In CurrentDb.TableDefs
If Left(myTable.Name, 4) = "dbo_" Then
myTable.Name = Mid(myTable.Name, 5, Len(myTable.Name))
End If
Next
End Sub
このモジュールをメニューフォームロードイベントの最初に持ってくる
Private Sub Form_Load()
T_Name
以下省略
End Sub