First, this is a plain text newsgroup--attachments and HTML/RTF posts aren't
welcomed by most.

Dim i as long
for i = 1 to 20
frmcreated.controls("lstate" & i).caption = ""
next i

If this is in code that is in the userform module, I'd use:
me.controls("lstate" & i).caption = ""



81147leo wrote:

Good Morning,

I have a user form with 20 labels on it - named 'lstate1' through 'lstate20'.
I would like to be able to set/clear the captions property within a loop by
using a variable to modify the label name. Something like this -

Sub frmclr()
dim i as integer
i =1
For i = i to 20
frmcreated.lstate1.caption = ""
next i
End sub

. . .but using the variable 'i' in place of the numeric in the label name to
select the proper label. I'm using a 'For each ctrl in Controls' routine that
works but I'd like to do it with the method suggested above.

thanks,
Leo

--

Dave Peterson

Thanks for changing format <bg.

And you're welcome.

81147leo wrote:

My apologies for using the wrong format.
Many thanks for the solution to the problem.

Dave Peterson wrote:
First, this is a plain text newsgroup--attachments and HTML/RTF posts aren't
welcomed by most.

Dim i as long
for i = 1 to 20
frmcreated.controls("lstate" & i).caption = ""
next i

If this is in code that is in the userform module, I'd use:
me.controls("lstate" & i).caption = ""



81147leo wrote:

Good Morning,

I have a user form with 20 labels on it - named 'lstate1' through 'lstate20'.
I would like to be able to set/clear the captions property within a loop by
using a variable to modify the label name. Something like this -

Sub frmclr()
dim i as integer
i =1
For i = i to 20
frmcreated.lstate1.caption = ""
next i
End sub

. . .but using the variable 'i' in place of the numeric in the label name to
select the proper label. I'm using a 'For each ctrl in Controls' routine that
works but I'd like to do it with the method suggested above.

thanks,
Leo




--

Dave Peterson

Good Morning,

I have a user form with 20 labels on it - named 'lstate1' through 'lstate20'.&nbsp; I would like to be able to set/clear the captions property within a loop by using a variable to modify the label name.&nbsp; Something like this -

Sub frmclr()
&nbsp;&nbsp;&nbsp; dim i as integer
&nbsp;&nbsp;&nbsp; i =1
&nbsp;&nbsp;&nbsp; For i = i to 20
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; frmcreated.lstate1.caption = ""
&nbsp;&nbsp;&nbsp; next i
End sub

&nbsp;. . .but using the variable 'i' in place of the numeric in the label name to select the proper label.&nbsp; I'm using a 'For each ctrl in Controls' routine that works but I'd like to do it with the method suggested above.

thanks,
Leo

My apologies for using the wrong format.
Many thanks for the solution to the problem.


Dave Peterson wrote:
First, this is a plain text newsgroup--attachments and HTML/RTF posts aren't
welcomed by most.

Dim i as long
for i = 1 to 20
frmcreated.controls("lstate" & i).caption = ""
next i

If this is in code that is in the userform module, I'd use:
me.controls("lstate" & i).caption = ""



81147leo wrote:

Good Morning,

I have a user form with 20 labels on it - named 'lstate1' through 'lstate20'.
I would like to be able to set/clear the captions property within a loop by
using a variable to modify the label name. Something like this -

Sub frmclr()
dim i as integer
i =1
For i = i to 20
frmcreated.lstate1.caption = ""
next i
End sub

. . .but using the variable 'i' in place of the numeric in the label name to
select the proper label. I'm using a 'For each ctrl in Controls' routine that
works but I'd like to do it with the method suggested above.

thanks,
Leo