Record Counting Trouble

[sgfromny]

I have 5 records that match this criteria, yet recordcount always reports 1....
Anyone?? Thanks in advance

Code:

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sql As String
Dim RecordCount As Integer
EndDate = Now()


sql = "SELECT * FROM tblShopRawTime WHERE [current] = " & True
Set db = CurrentDb
Set rs = db.OpenRecordset(sql)


With rs

RecordCount = rs.RecordCount

 

[RoyVidar]

To retrieve an accurate recordcount from a DAO recordset, you'll need to fully populate it - for instance using a .movelast first (and hint - don't name variables the same as properties (recordcount)).

Roy-Vidar

 

[sgfromny]

Thanks that did it!