Access.Application.CurrentDb - это ничто?

Question

Я затрудняюсь объяснить это:

Я получаю ошибку:

Ошибка «91» (объект или блок не установлен)

во второй строке ниже:

Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("SELECT * FROM employees")

Следующее также вызывает это:

`Set rs = CurrentDb.OpenRecordset("employees")`

Выполнение только ?CurrentDb.Name в ближайшем окне также вызывает ошибку.

Теперь, очевидно, база данных открыта, так как я редактирую форму в ней, так что может вызвать эту ошибку здесь?

Answer 1

Если вы работаете с проектом ADP, вы должны использовать CurrentProject вместо CurrentDB.

Answer 2

Вы должны назначить свой метод .openRecordset объекту dao.recordset или универсальному объекту (техника «позднего связывания»). попробуйте что-то вроде этого:

dim rs as dao.recordset
set rs = currentDb.openRecordset(your SELECT instruction,...)

Answer 3

Попробуйте создать объект базы данных и использовать его вместо ссылки на CurrentDb. Например:

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM Employees")

Answer 4

Причина, по которой я подозреваю, что код не будет работать, заключается в том, что в соответствии с M / Soft текст ссылки CurrentDb - это метод, который возвращает переменную объекта типа База данных, Таким образом, код, показанный Forester93, должен работать. Это то, что я бы использовал и использовал уже много лет.