mferrisi
06-12-2007, 07:38 AM
I am attemping to create a multi array of unknown size, which holds an id and a date within a loop. The following cose gives me a 'subscript outn of range' error. Any suggestions?
thank you
Dim Info() As Variant
Dim ijk As Integer
Dim x As integer
For x = 1 to 1000
If (some event) Then
ReDim Preserve Info(1 To ijk, 1 To 2)
Info(ijk, 1) = Id
Info(ijk, 2) = TempW(x, 5)
ijk = ijk + 1
Else End if
Next x
thank you
Dim Info() As Variant
Dim ijk As Integer
Dim x As integer
For x = 1 to 1000
If (some event) Then
ReDim Preserve Info(1 To ijk, 1 To 2)
Info(ijk, 1) = Id
Info(ijk, 2) = TempW(x, 5)
ijk = ijk + 1
Else End if
Next x