Access.Application.CurrentDb什么都没有?

All*_*nde 0 ms-access vba

我无法解释这个:

我收到一个错误:

错误"91"(对象或未设置块)

在下面的第二行:

Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("SELECT * FROM employees")
Run Code Online (Sandbox Code Playgroud)

以下还会导致它:

`Set rs = CurrentDb.OpenRecordset("employees")`
Run Code Online (Sandbox Code Playgroud)

?CurrentDb.Name在即时窗口中单独执行也会导致错误.

现在,显然数据库是打开的,因为我正在编辑其中的表单,那么什么可能导致此错误?

Bir*_*ger 7

如果您正在使用ADP项目,则应使用CurrentProject而不是CurrentDB.