DAO rs empty - same SQL has results

[bigal.nz]

Hi Guys,

I am stuck on this one.

If I try the SQL:

SELECT * FROM MAS

I get the expeced 1500 odd records.

If I try:

Dim rs As DAO.RecordSet
Dim db As DAO.Database
Dim strSQL As String

strSQL = "SELECT * FROM MAS"
Set db = CurrentDb

Set rs = db.OpenRecordset(strSQL)
debug.print(rs.RecordCount)

prints to console 1 (which is empty anyway).

I am not sure how to debug from here.

Tables are split if thats relevant.

 

[The_Doc_Man]

The record count on a recordset sometimes needs "priming" by doing this:

rs.MoveLast
rs.MoveFirst

THEN try your debug.print command.

 

[RuralGuy]

It looks okay to me. Have you disabled the errors?

 

[bigal.nz]

The record count on a recordset sometimes needs "priming" by doing this:

rs.MoveLast
rs.MoveFirst

THEN try your debug.print command.

Bingo!

Thanks.

 

[pbaldy]

Jason has more info here if interested:

http://www.baldyweb.com/RecordCounts.htm