Access.Application.CurrentDb is Nothing?

Question

I'm at a loss to explain this one:

I'm getting an error "91" (Object or With block not set) on the second line below:

Dim rs As DAO.Recordset

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

The following also causes it: Set rs = CurrentDb.OpenRecordset("employees")

Executing ?CurrentDb.Name alone in the immediate window causes the error as well.

Now, clearly the database is open since I'm editing the form within it, so what can cause this error here?

Answer 1

you should assign your .openRecordset method to a dao.recordset object or a generic object ('late binding' technique). try something like this:

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

Answer 2

If you are working with an ADP project, you should use CurrentProject instead of CurrentDB.

Answer 3

Try creating a database object and using that instead of the CurrentDb reference. For example:

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

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

Answer 4

The reason l suspect the code will not work is that according to M/Soft link text 'CurrentDb' is a method which will return an 'object variable of type Database'. So the code shown by Forester93 should work. Its what l would use and have been using for many years now.