Counting the Number of records in a record set

[JBurlison]

This only returns "1" but there are 11 how do i count them all?

Dim db As DAO.Database
Dim rs As DAO.Recordset
DoCmd.GoToRecord , , acNewRec

Set db = CurrentDb
Set rs = db.OpenRecordset("RMA", dbOpenDynaset)

With rs
    CurrentNumber = .RecordCount
End With

rs.Close

 

[boblarson]

With rs
    .MoveLast
    .MoveFirst
    CurrentNumber = .RecordCount
End With

 

[JBurlison]

HA! you the man bob!

 

[boblarson]