OpenRecordSet Produces Type MisMatch 1

[NiallWestland1974]

Hi All,
I'm trying to populate a recordset from a simple query, but I keep getting Type MisMatch (error 13) errors.. Anyone have any idea what the problem is, and how to solve it?

Dim dbs2 As Database
Set dbs2 = CurrentDb
Dim rst As Recordset
Dim qry As QueryDef

Set qdf = dbs2.QueryDefs("qryTest&quot
Set rst = qdf.OpenRecordset(dbOpenSnapshot)


If rst.BOF = True And rst.EOF = True Then
MsgBox "Nothing Found"
Else
rst.MoveLast
MsgBox "OrgID found: " & rst.Fields("OrgID&quot
End If

dbs2.Close

Thanks

 

[MakeItSo]

Replace Dim qry as QueryDef with Dim qdf as QueryDef...


Cheers,
MakeItSo

Andreas Galambos
EDP / Technical Support Specialist
Bowne Global Solutions Wuppertal, Germany
(andreas.galambos@bowneglobal.de)
HP:

http://home.arcor.de/andygalambos

 

[NiallWestland1974]

D'oh! Rookie error

Mind you, still getting the "error 13 - Type MisMatch" error, with rst=Nothing in the debug window..

 

[MakeItSo]

Replace it with Set rst=Nothing
cause rst is an object..

MakeItSo

Andreas Galambos
EDP / Technical Support Specialist
Bowne Global Solutions Wuppertal, Germany
(andreas.galambos@bowneglobal.de)
HP:

http://home.arcor.de/andygalambos

 

[KenReay]

Hi

Do you have a reference to teh DAO library?

Do you also have a reference to the ADO library?

Recordset is present in both

Qualify it to avoid confusion

Dim rst As DAO.Recordset

Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK

 

[NiallWestland1974]

Thats it! The

Dim rst As DAO.Recordset

Did the trick - thanks Ken - it never even occurred to me that there would be some confusion with the declaration of the recordset without declaring which library it used.

Many Thanks
Niall