I have the following code. My recordset has one or more records. I can loop through them, but I am making an error with counting the records. Can you spot the error?
Dim FindRecordCount As Long Dim rst1 As DAO.Recordset Set rst1 = db.OpenRecordset("s_qryLinearInfo") If rst1.EOF Then FindRecordCount = 0 Else rst1.MoveLast FindRecordCount = rst1.RecordCount End If MsgBox "rst1.RecordCount = ", FindRecordCount