indexing through a lot of text boxes

[jpl458]

I have a series of text boxes labled D01H1..D01.H16. I want to be able to set properties on these text boxes in a loop with the following code (that is test code, to see if the addressing of the text boxes works). I have included three abortive attempts at addressing the text boxes using the loop counter.

Thanks in advance

Private Sub Doit_Click()
Dim red As Integer
Dim blue As Integer
Dim green As Integer
red = 0
blue = 0
green = 0
For I = 1 To 16
Me.D01HI.BackColor = RGB(red, blue, green)
'Me.D01H& I.BackColor = RGB(red, blue, green)
'Me.D01H(I).BackColor = RGB(red, blue, green)
red = red + 1
Next
End Sub


jpl

 

[PHV]

Replace this:
Me.D01HI.BackColor
with this:
Me.Controls("D01H" & I).BackColor

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[jpl458]

Thats the ticket, worked like a champ. Now i gotta learn about Control (function?)

Thanks for the late nite response

jpl

 

[TheAceMan1]

How are ya jpl458 . . .

In the [blue]Tag[/blue] property of the controls in question, put a question mark [purple]?[/purple] [blue](no quotations please!)[/blue] Then replace your code with the following:

[blue]   Dim red As Integer, blue As Integer, green As Integer, ctl As Control
   
   red = 0
   blue = 0
   green = 0
   
   For Each ctl In Me.Controls
      If ctl.Tag = "[purple][b]?[/b][/purple]" Then
         ctl.BackColor = RGB(red, blue, green)
      End If
   Next[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997 [blue]Worthy Reading![/blue]
Also faq181-2886 [blue]Worthy Reading![/blue]