Total records in a query

C

Charles Tam

I would like to retrieve the total records in a query. Is my following code
correct?
MS said to use the MoveLast command, but I have to install an error handle
if the recordset is empty.
....
Set qry = currentDatabase.OpenRecordset("Query1")
qry.MoveLast
debug.print qry.RecordCount
....
 
M

Marshall Barton

Charles said:
I would like to retrieve the total records in a query. Is my following code
correct?
MS said to use the MoveLast command, but I have to install an error handle
if the recordset is empty.
...
Set qry = currentDatabase.OpenRecordset("Query1")
qry.MoveLast
debug.print qry.RecordCount
...
Click to expand...


You can check for an empty recordset by checking its
RecordCount property. It won't actually tell you how many
records there are, but it will only be zero when there are
no records.

Set qry = currentDatabase.OpenRecordset("Query1")
If qry.RecordCount > 0 Then qry.MoveLast
debug.print qry.RecordCount
 
C

Charles Tam

Thanks for your information.

Marshall Barton said:
You can check for an empty recordset by checking its
RecordCount property. It won't actually tell you how many
records there are, but it will only be zero when there are
no records.

Set qry = currentDatabase.OpenRecordset("Query1")
If qry.RecordCount > 0 Then qry.MoveLast
debug.print qry.RecordCount
Click to expand...
 
Top