Unexpected results with DAO recordset

[GraeagleBill]

The following code is a partial implementation of a function that creates a recordset based on a query. When the query runs independently, there are 127 records found. Yet, when I run the code in debug mode and check the value of "iRow" at the "jCol = " statement , its value is one (1). iRow and iCol are global to the module. What am I missing?



Function LoadGroup_ALL()
'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* =*=*=*=*=*=*=*=*=*=*
' Load up the rsGrpALL recordset, allocate and load the names and numbers in the BCarray. *
'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* =*=*=*=*=*=*=*=*=*=*
Dim rsGrpALL As DAO.Recordset
Dim iWork As Integer
Dim jWork As Integer

Set rsGrpALL = DBEngine(0)(0).OpenRecordset("QBroadcastGroupALL")
iRow = rsGrpALL.RecordCount
jCol = iGroups + 5

ReDim strBCarray(iRow, jCol)

iWork = 1
jWork = 1


rsGrpALL.Close
Set rsGrpALL = Nothing
End Function

[John_G]

Hi -

To get the correct value of the recordcount, you have to move to the last record of the recordset and then check the recordcount:

rsGrpALL.movelast
iRow = rsGrpALL.RecordCount
rsGrpALL.movefirst

The recordcount property is intialized to 1 when the recordset is opened.

If all you want is the number of records in the query, you don't need a recordset - you can use DCount with no criteria:

irow = DCount("*", "QBroadcastGroupALL")

What is iGroups? It is also global to the module?

John