' 用途: 批量去除通过ODBC连接到SQL Server链接表名前的"DBO_" ' 要求引用 Microsoft DAO 3.60 Object Library ' 作者: 朱亦文 ' 日期: 2003.12.17 测试通过 Public Sub RenameLinkTableName() Dim dbs As Database Dim tdf As TableDef Dim strNewName As String Dim strName As String Set dbs = CurrentDb For Each tdf In dbs.TableDefs strName = tdf.Name If UCase(Left(strName, 3)) = "DBO" Then strNewName = Right(strName, Len(strName) - 4) tdf.Name = strNewName tdf.RefreshLink End If Next End Sub |
