Record Count Issue

[scottru]

Hello,

Here is the code I am trying to get to work.

Function Mas90RecordCount()

Dim MyDB As Database
Dim MyRS As Recordset
Set MyDB = CurrentDb()
Set MyRS = MyDB.OpenRecordset("SO_03SOHistoryHeader", dbOpenDynaset)
MyRS.MoveLast
Mas90RecordCount = MyRS.RecordCount
MyRS.Close

End Function

When I run this routine, I get a error # 13 on line
Set MyRS = MyDB.OpenRecordset("SO_03SOHistoryHeader", dbOpenDynaset)

What do I need to accomplish to correct this error.

Thanks,
Scott

 

[PauloRico]

If you are using Access 2000, then MyRS will probably refer to an ADO Recordset. MyDB.OpenRecordset will return a DAO recordset. What you need to do is declare your recordset to be a DAO Recordset - i.e.

Dim MyRS As DAO.Recordset