Using indexing on controlsin a form

[SiddersAtCHEP]

I have a form which has several textboxes. Depending on choices made in a listbox, I need to fill one, some or all of the textboxes with information. I do not want to have to refer to them as TextBox1, TextBox2 etc. I would prefer to use something like:

for i = 1 to 10
textBox(i) = activecell.value
activecell.offset(1,0).select
next i

In effect I want an array of controls that I can refer to by their index number. I have tried naming the controls TextBox(1) etc. but I keep getting an error when I try this.

Any suggestions?

 

[Fat Cat]

There's a couple of ways of doing it.

To do all the textbox controls on a Form you could;

For Each ctl In Me.Controls
    If TypeOf ctl Is MSForms.TextBox Then
        ctl.Text = True
    End If
Next ctl

To just do specific textboxes you can use the following;

Me.Controls(1).Text = "Box 1"
Me.Controls(2).Text = "Box 2"
Me.Controls(3).Text = "Box 3"

Where Me.Controls(1) is the control on the Form that has its TABINDEX property set to 1

Or in a loop;

For i=1 To 3
     Me.Controls(i).Text = "Box " & i
Next i