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