GetRows() returning one record only

[ajetrumpet]

all,



I am inexperienced with this function. I have this partial code:

Function CrossFinance(tblName As String, typeData As String)

On Error GoTo ErrorHandler

Dim rsCol As Long
Dim rsRow As Long
Dim varRecs() As Variant
Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset(tblName, dbOpenDynaset)

   'Get Table Data
   varRecs = rs.GetRows(rs.RecordCount)

rs.MoveLast
rs.MoveFirst

For rsCol = LBound(varRecs(), 1) To UBound(varRecs(), 1)
   For rsRow = LBound(varRecs(), 2) To UBound(varRecs(), 2)
      Debug.Print "Field " & CStr(rsCol) & ", Row " & CStr(rsRow)
   Next rsRow
Next fldCtr

GoTo ErrorHandler

There are 3 records in the table. What I dont' understand is why it's outputting this:



I've tried importing to a new file and still does same thing. I've checked import report for both the module and the table. No dice. I've also tried running the loop without the move methods above it. The help file example does not use this process of opening the whole table before getting rows. What could be the problem? Any help appreciated! Thanks!

[ajetrumpet]

Nevermind! Sorry about this. Solution is:

Set db = CurrentDb
Set rs = db.OpenRecordset(tblName, dbOpenDynaset)
'Set tblDef = db.CreateTableDef(tblName & "_TRANSFORM")

rs.MoveLast
rs.MoveFirst

   'Get Table Data 
   varRecs = rs.GetRows(rs.RecordCount)
   rsCol = 1
   rsRow = 0

I guess what should be noted though is that MS says the following is supposed to get all the rows, but it doesn't for me:

Set db = CurrentDb
Set rs = db.OpenRecordset(tblName, dbOpenDynaset)
'Set tblDef = db.CreateTableDef(tblName & "_TRANSFORM")

rs.MoveLast
rs.MoveFirst

   'Get Table Data 
   varRecs = rs.GetRows()
   rsCol = 1
   rsRow = 0

MS says in help file that omitting the arg returns all rows. it only returned one for me.

[RuralGuy]

So Adam, is this thread Solved?

[ajetrumpet]

So Adam, is this thread Solved?

sorry Allen. Slip of the brain. thank you for the reminder.