本文标签:数据库
在ACCESS VBA中运行如下代码,会得到运行时错误:对象无效或不再被设置。
Sub CurrentDbFail() Dim td As TableDef Set td = CurrentDb.TableDefs("Customers") MsgBox td.Name '报错' End Sub
这是由于CurrentDb 函数所返回的对象是临时的,因此td是一个无效的TableDef 对象,在代码中对td的任何后续引用将导致错误。
本文标签:数据库
在ACCESS VBA中运行如下代码,会得到运行时错误:对象无效或不再被设置。
Sub CurrentDbFail() Dim td As TableDef Set td = CurrentDb.TableDefs("Customers") MsgBox td.Name '报错' End Sub
这是由于CurrentDb 函数所返回的对象是临时的,因此td是一个无效的TableDef 对象,在代码中对td的任何后续引用将导致错误。