一维数组的ReDim抛出'下标超出范围'

Question

I want to redim an one-dimentional array by "cutting off" the first five entries as they have to be removed for a later logic.

1. I created a record set from a query
2. I filled an array recordSet() As Variant (size is 147). Now: size of recordSet = size of daoRst3
3. I try to remove the first five elements of the array recordSet.

Code:

Set daoRst3 = gDB.OpenRecordset("SELECT * FROM TEST")

For i = 0 To daoRst3.Fields.Count - 1
ReDim Preserve recordSet(0 To i)
If daoRst3.Fields(i).Value = Empty Then
    recordSet(i) = 0
Else: recordSet(i) = daoRst3.Fields(i).Value
End If
Next

'First five values in record set are not needed anymore.
ReDim Preserve recordSet(5 To i - 1)

The last row

ReDim Preserve recordSet(5 To i - 1)

throws "Subscript out of range". I already checked with debugging that i is 148 at this moment.

What might be the problem?

Many thanks in advance!

Answer 1

Alright this time i got it...

Private Sub this()

    Dim rs As DAO.Recordset

    Set rs = CurrentDb.OpenRecordset("SELECT * FROM tmpCardList")

    Dim msg As String
    Dim myArray() As String
    Dim array2() As String
    ReDim array2(0 To rs.Fields.Count - 1)
    Dim i As Long

    For i = 0 To rs.Fields.Count - 1
        Debug.Print ; rs.Fields(i).Name
        array2(UBound(array2, 1) - i) = rs.Fields(i).Name
    Next i

    ReDim Preserve array2(UBound(array2) - 5)
    ReDim myArray(0 To UBound(array2, 1))

    For i = 0 To UBound(array2, 1)
        myArray(UBound(array2, 1) - i) = array2(i)
    Next i

    rs.Close
    Set rs = Nothing

End Sub

Turns out you have to write you own custom thing to sort the array. A little bit of an extra hoop. Just realized the final output is reversed but you could easily "undo" that by replicating my initial reversing logic.

Final Edit - this time with less typing - WOOHOO