Error 9 generated by Redim Preserve

[Roger Whiteley]

I have a number of arrays of controls in my code for a form, and when trying to redimension them to add additional controls I am getting a subscript out of range error when I try to increase the second dimension of a two dimensional array.

The arrays all contain controls which are built up on a form, the number of rows which is dependent on the amount of data for any enquiry

The original declaration is:

Public gatxtWTE() As Control

Before use the array is redimmed as follows:

ReDim gatxtWTE(1 To iNO_of_YEARS, colPOSITIONS.Count)

Where iNf Years represents the number of years which is constant for the processing run, and colPOSITIONS.Count is the size of a collection returned from a User Interface Support Layer.

The initial build up of the controls on the form works perfectly, but when I try to add an extra row of data I get the "subscript out of range error" on the highlighted line below.

    ReDim Preserve galblPOSITIONS(1 To UBound(galblPOSITIONS, 1) + 1)
    ReDim Preserve galblDESCRIPTIONS(1 To UBound(galblDESCRIPTIONS, 1) + 1)
    ReDim Preserve galblWTE(1 To UBound(galblWTE, 1) + 1)
    ReDim Preserve galblNO_OF_EMPLOYEES(1 To UBound(galblNO_OF_EMPLOYEES, 1) + 1)
[B][U]    ReDim Preserve gatxtWTE(1 To iNO_of_YEARS, 1 To UBound(gatxtWTE, 2) + 1)[/U][/B]
    ReDim Preserve maLABELS(1 To UBound(maLABELS, 1) + 4)
    ReDim Preserve maTEXT_BOXES(1 To UBound(maTEXT_BOXES, 1) + iNO_of_YEARS)

The one dimensional arrays expand correctly, at least up to the error.

Has anybody got any ideas?

 

[Andrew Poulsom]

Maybe try:

ReDim gatxtWTE(1 To iNO_of_YEARS, 1 To colPOSITIONS.Count)

Without it the second dimension will be zero based.

 

[Richard Schollar]

Without it the second dimension will be zero based.

That is assuming that Option Base 0 is set (or the option base hasn't been modified from the default) I believe.

 

[Andrew Poulsom]

That is assuming that Option Base 0 is set (or the option base hasn't been modified from the default) I believe.

Yeah, but then he wouldn't get the subscript out of range error.

 

[Roger Whiteley]

Thanks

Because the first part was working I was looking in the wrong place for my error. All the other first redims for the one dimensional arrays were (1 to etc)

Roger

 

[Roger Whiteley]

Thanks gentlemen

Code works perfectly now - Option base was not set

Roger