Access: 2008年8月アーカイブ

例えば、テーブル名が全て "public_"で始まっている場合に　"public_"を削除する方法。

Sub macro1()

    Dim myTable As TableDef

    For Each myTable In CurrentDb.TableDefs

    

        If Left(myTable.Name, 7) = "public_" Then

            Debug.Print myTable.Name  ' デバグ用出力

            Debug.Print "  " & Mid(myTable.Name, 8, Len(myTable.Name))  ' デバグ用出力

            myTable.Name = Mid(myTable.Name, 8, Len(myTable.Name))

        End If

    

    Next


End Sub