Trying to create two recordsets in one sub

[maha]

Hi,

I'm trying to create two recordsets in one sub. I'm having no problem with the first recordset, but with the second recordset I keep getting an "Object Required" message on my set rst2 line. This is the code for the second recordset I'm trying to create. My first recordset is created the same way and I'm having no problems with that one.

Dim db2 As Database
Dim rst2 As Recordset

Set db2 = CurrentDb
Set rst2 = db.OpenRecordset("SELECT * FROM Part WHERE [ReplacementParts] = """ & PartEntered & """&quot


Thanks a lot for any help,
Maha

 

[OrWolf]

I could be missing something else, but right off the bat I noticed that you forgot to change db.OpenRecordset to db2.OpenRecordset.

Give that a try.

 

[MichaelRed]

Also, Unless there is something different going on, there should be no need to define/instantiate the db twice in a single sub (or function)


MichaelRed
redmsp@erols.com

There is never time to do it right but there is always time to do it over