Ini*_*ton 2 ms-access vba ms-access-2007 ms-access-2010
我正在尝试更改 Access 中的表的名称。我去了链接管理器并完成了该过程。它将更改为我放置的服务器,但它永远不会更改表名称(以黄色突出显示)。
看来您的目标是更改链接TableDef的SourceTableName,但我怀疑这是可能的。尝试这样做会触发错误 #3268:
一旦对象是集合的一部分,就无法设置此属性。
所以我认为你必须创建一个新的链接TableDef,Connect从旧链接和你的新SourceTableName价值Append到TableDefs集合。
Const cstrOldName As String = "dbo_tblFoo2"
Dim db As DAO.Database
Dim tdfOld As DAO.TableDef
Dim tdfNew As DAO.TableDef
Set db = CurrentDb
Set tdfOld = db.TableDefs(cstrOldName)
tdfOld.Name = cstrOldName & "_old" ' rename the old link
Set tdfNew = db.CreateTableDef
With tdfNew
.Name = cstrOldName
.Connect = tdfOld.Connect
.SourceTableName = "dbo.Dual"
End With
db.TableDefs.Append tdfNew
Run Code Online (Sandbox Code Playgroud)