Redim MyArray

[Peter Pantus]

Hi,

I don't understand why Redim doesn't work.
I get a message that "Het aantal dimensies al is bepaald"
Can someone help me please

Dim MyArray(4, 10)

x = 1
With rs
.MoveFirst
Do Until .EOF
MyArray(0, x) = .Fields("Lozingsnummer").Value
MyArray(1, x) = .Fields("RedenLozing").Value
x = x + 1
ReDim Preserve MyArray(5, x)
.MoveNext
Loop
End With

 

[Peter Russell]

You have two problems.
First, to use ReDim you must declare the array without dimensions.
Dim MyArray()


Second, when using Preserve you can only redimension the final index.
so if you have
Dim MyArray()
Redim Myarray(3,6)
then you can do:
Redim Preserve MyArray(3,8)

but NOT

Redim Preserve MyArray(4,6)

You'll have to turn your dimensions round or find another way.

Regardsd

Peter Russell

 

[Peter Pantus]

Peter,

Thanks a lot. It works perfect

You have two problems.
First, to use ReDim you must declare the array without dimensions.
Dim MyArray()


Second, when using Preserve you can only redimension the final index.
so if you have
Dim MyArray()
Redim Myarray(3,6)
then you can do:
Redim Preserve MyArray(3,8)

but NOT

Redim Preserve MyArray(4,6)

You'll have to turn your dimensions round or find another way.

Regardsd

Peter Russell