Loop through textboxes on a userform?!

[Webtechie]

Hello,

I have a userform that has over 30 textboxes. I need to check the database
and if a certain value is returned that matches a particular textbox, I need
to turn the backcolor to blue.

How do I loop through all the textboxes on a userform?

Here is the pseudo code of what I am trying to do:


For i=1 to userform.controls
if control.i.typename = " LISTBOX" then
if left(control.i.name,5) = "table" then
CheckFlag = CheckTable(control.i.name)
if CheckFlag then
control.i.backcolor = Green
end if
end if
end if
next

 

[john]

something like this should do what you want.

Dim ctl As Control

For Each ctl In UserForm1.Controls

If TypeName(ctl) = "TextBox" Then

'do you stuff here

End If

Next

 

[Webtechie]

Thanks!!

something like this should do what you want.

Dim ctl As Control

For Each ctl In UserForm1.Controls

If TypeName(ctl) = "TextBox" Then

'do you stuff here

End If

Next