Control Arrays - An easy one for you experts

I notice you are starting the index at 2. The index numbers must follow, so this will only work if you already have 2 of these controls on the form with index's set to 0 and 1 respectively.

Cheers Guy's

The Index on the first Control is 1 so hence starting the loop from 2. I have tried changing the loop to Me.Controls and makes no difference, still same error.

I think the problem lies with the

Load cX(sNo)

I think It thinks "cX" is a control name, not the actual value for cX which is ShapeD1T1.

ShapeD1(1) already exists, I am trying to achieve
ShapeD1(2) using the above as I need to do the same on other controls such as ShapeD2(1), ShapeD3(1) etc, etc.

Any more ideas guy's, I'm getting close to deadlines now..., which is 5pm today 8(

Cheers TwoDogs,

Still the same error though...

Originally posted by Cimperiali
Load cX.Name(cx.Ubound +1)
'Now Ubound is this loaded control
cX.Name(cx.Ubound).visible = true

Hi Cimperiali,

Tried the Load cX.Name(cx.Ubound +1) and get the error message :

"Object doesn't support this property or method"

Also tried ;

Load CX.Name(2) and
Load CX.Name(Sno) and get the original error ;

"Must specify index when using property array"

Surely there must be a way of loading a control this way ?

Cheers Two Dogs, but that don't work either,

Cheers for ally our help guys, but I'm going to have to leave it, project already 2 days overdue, I will have to fix the controls and if they change there mind in the future, right extra code and re-deploy new EXEs.

thanks again for all you help, shame we didn't crack it, but if anybody does find a solution, I'd really appreciate it finding out how to do it, I hate things beating me....

;)

Cheers Cimperiali

That code does indeed work, but unfortunately it still will not work with my example, So does this mean I just cannot do what I need it to ?

Your example like mine checks the first 5 letters of the control name

If Left(cX.Name, 5) = "Shape" Then...

this is because I have a Control Array Shape named for each Day ;

Eg.
Shape1(1) 'Monday
Shape2(1) 'Tuesday
Shape3(1) 'Wednesday
Shape4(1) 'Thursday
Shape5(1) 'Friday

(I also have 7 time slots during the day, hence the Shape1T1(1), Shape1T2(1) etc, etc )

Only problem is the code still needs the Actual Control Name to in the ;

Set cX = Shape1(Shape1.UBound)

This means My code is going to be huge as each one will have to be named individually in the loop. Does this mean I will have to repeat your code 35 times changing the Set Statement to include the original Shape name ?

cheers M8, I'm really sorry to be a pain...

Hi Cimperiali

I did say your code worked, just not with my example. I'll try and explain the problem using your Project example ;

1) If you take the Control Shape1(1) in your project and copy and paste it, it becomes Shape1(0)

2) Rename Shape1(0) to Shape2(1) and place it directly below Shape1(1),

3) now run and click the Load shapes button, Shape1(1) is indeed repeated but shape2 is not touched.

this is because you are naming shape1 in the ;

Set cX = Shape1(Shape1.UBound)

I have attached a screen shot of the app, as you can see I have 5 days lists and 7 Time slots. Within each time slot there can be a different number of session, for example 10:00-11:00 there are 4 and 9:00 - 10:00 there are 2.

I would like these to be customised by the user so this is why I'm trying to use the loop. I have not named each day Shape1 and increased the index, but have a different shape name for each day,

Shape1(1) 'Monday
Shape2(1) 'Tuesday
Shape3(1) 'Wednesday
Shape4(1) 'Thursday
Shape5(1) 'Friday

I want to perform exactly what you have done in the project example you sent me, but for every day not just day 1 ( or Shape1 ), but I want to be able to do this without having to create the For Next Statement in your example for every day and Hour slot.

I'm really sorry, its hard to explain, I know its impossible to help someone if you don't understand what they're trying to do, and I'm not the best at explaining myself :(

The picture you attached is a bit too small : I cannot understand
what you're trying to achieve. You could take and zip a larger
one...
What are the shapes? Are they green squares?
Why not use pictures instead of shapes?