Loop through textboxes on a userform?!

W

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
 
J

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
 
W

Webtechie

Thanks!!

john said:
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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top