对象无效或不再被设置

本文标签：数据库

在ACCESS VBA中运行如下代码，会得到运行时错误：对象无效或不再被设置。 

Sub CurrentDbFail()
    Dim td As TableDef
    Set td = CurrentDb.TableDefs("Customers")
    MsgBox td.Name '报错'
End Sub

这是由于CurrentDb 函数所返回的对象是临时的，因此td是一个无效的TableDef 对象，在代码中对td的任何后续引用将导致错误。

参考链接：http://support.microsoft.com/kb/167173/zh-cn