Type Mismatch

[Leonard]

Can anyone tell me why I keep getting a "Run-time error
13... Type Mismatch" on the following code?

Any help appreciated.

'===========================================
Dim dbs As Database, rst As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("MyQuery")

If rst.RecordCount >= 1 Then
MsgBox "At least one record has been entered"
End If
'===========================================

 

[Allen Browne]

Database is a DAO object, and so is Recordset in that context.

Details:
http://allenbrowne.com/ser-38.html

 

[Van T. Dinh]

Both ADO and DAO have the Recordset Object and your rst is
defaulted to ADO Recordset while you need DAO Recordset.

Disambiguate your dec. like:

Dim dbs As Database
Dim rst as DAO.Recordset

HTH
Van T. Dinh
MVP (Access)

 

[Leonard]

Thanks Folks