rs.recordset not working

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

MeSteve - 26 Mar 2008 21:36 GMT

I am trying to use rs.recordset to get the number of records in my table

Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase("my database path")
Set rs = db.OpenRecordset("tbl_Projects")

MsgBox rs.RecordCount

This returns 1 even though it will populate an array fully using do until
.EOF loop. What am I missing?

Reply to this Message

Ken Warthen - 26 Mar 2008 21:47 GMT

MeSteve,

Try this:

Dim db as Database
Dim rs as Recordset
Dim intRecordCount as Integer

Set db=CurrentDb
set rs=db.openrecordset("MyTable")
With rs
.MoveFirst
.MoveLast
intRecordCount = .RecordCount
End With
rs.close
set rs=nothing
MsgBox intRecordCount

Ken Warthen
kenwarthen@gmail.com

> I am trying to use rs.recordset to get the number of records in my table
>
[quoted text clipped - 7 lines]
> This returns 1 even though it will populate an array fully using do until
> .EOF loop. What am I missing?

Reply to this Message