[RESOLVED] Access 2003 Recordset problem

[dreamdelerium]

hey everyone. can anyone look at my code and tell me what im doing wrong? im trying to open up a recordset with all rows from a table but when i do, it just has the first row. i know the sql string is correct because when i run it in the querry builder, it has all rows

Option Compare Database
Private Sub Report_Open(Cancel As Integer)
On Error GoTo errorhandler
Dim SelectStrings As String
Dim MyRecordSets As Recordset
Dim QuestionArrays As Variant
Dim Counters As Integer

SelectStrings = "Select * From tblQuestionResults"
Set MyRecordSets = CurrentDb.OpenRecordset(SelectStrings)
 
If Not MyRecordSets.EOF Then QuestionArrays = MyRecordSets.GetRows(MyRecordSets.RecordCount)
Counter = MyRecordSets.RecordCount
MsgBox (Counter)
MyRecordSets.Close 

errorhandler:
If Err.Number = 0 Then
Else
MsgBox (Err.Description)
End If
End Sub

[Hack]

What number is displayed in the message box?

[anhn]

It is recommended that you use Option Explicit to avoid spelling mistakes in variable names.
You declared Counters, but later used Counter

To get correct RecordCount you have to MoveLast first,
but to Get all Rows you have to go back with MoveFirst.

With MyRecordSets
   If Not .EOF Then 
      .MoveLast
      Counter = .RecordCount
      .MoveFirst
      QuestionArrays = .GetRows(Counter)
   End If
   .Close
End With
MsgBox Counter

[dreamdelerium]

ooohhh. cool thanks

[anhn]

Please mark your thread as Resolved by using Thread Tools on the top of the web page.