I was wondering if someone out there might know how I would be able to
do the following:

I have 3 ComboBoxes and 3 Labels that are named as follows

Label_1
Label_2
Label_3

ComboBox_1
ComboBox_2
ComboBox_3

I am trying to create a subroutine to go through a loop from 1-3 and
hide both the comboboxes and labels, but for some reason I can not use
variables to call an object. Any ideas how I could make this work?


here is my subroutine so far


sub removeitems ()

dim counter as integer
dim tag1 as string
dim tag2 as string
dim ctl as control

counter = 1
tag1 = "ComboBox_"
tag2 = "Label_"

do until counter = 3

ctl = tag1 & counter (I have also tried using Set ctl =)
ctl.visible = false
ctl = tag2 & counter
ctl.visible = false

counter = counter + 1

loop

end sub

*** Sent via Developersdex http://www.developersdex.com ***

Controls on a userform?

Dim iCtr as long
for ictr = 1 to 3
me.controls("label_" & ictr).visible = false
me.controls("combobox_" & ictr).visible = false
next ictr

Superman wrote:
>
> I was wondering if someone out there might know how I would be able to
> do the following:
>
> I have 3 ComboBoxes and 3 Labels that are named as follows
>
> Label_1
> Label_2
> Label_3
>
> ComboBox_1
> ComboBox_2
> ComboBox_3
>
> I am trying to create a subroutine to go through a loop from 1-3 and
> hide both the comboboxes and labels, but for some reason I can not use
> variables to call an object. Any ideas how I could make this work?
>
> here is my subroutine so far
>
> sub removeitems ()
>
> dim counter as integer
> dim tag1 as string
> dim tag2 as string
> dim ctl as control
>
> counter = 1
> tag1 = "ComboBox_"
> tag2 = "Label_"
>
> do until counter = 3
>
> ctl = tag1 & counter (I have also tried using Set ctl =)
> ctl.visible = false
> ctl = tag2 & counter
> ctl.visible = false
>
> counter = counter + 1
>
> loop
>
> end sub
>
> *** Sent via Developersdex http://www.developersdex.com ***

--

Dave Peterson

Thank you very much for your help. That seems to do the trick.

*** Sent via Developersdex http://www.developersdex.com ***