Form

[Bill]

Hello,
I have a form that contains a number of text boxes. I would like to add a
loop that sets each text box to an initial value such as 1. Each textbox is
cleverly names TextBox1, TextBox2. I tried a loop like:

For i = 1 to 10
userform1.textbox " & i = 1
next i

But that doesn't work. Any help?

Thanks.

Bill

[Duncan]

For Each cntrl In Me.Controls
On Error Resume Next
If TypeOf cntrl Is MSForms.TextBox Then
cntrl.Value = "1"
End If
Next cntrl


I think this should do it, havent tested though so post back and let us
know either way.

Duncan


Bill wrote:

> Hello,
> I have a form that contains a number of text boxes. I would like to add a
> loop that sets each text box to an initial value such as 1. Each textbox is
> cleverly names TextBox1, TextBox2. I tried a loop like:
>
> For i = 1 to 10
> userform1.textbox " & i = 1
> next i
>
> But that doesn't work. Any help?
>
> Thanks.
>
> Bill

[Norman Jones]

Hi Bill,

Try:

For i = 1 to 10
Userform1.Controls("Textbox" & i).Text = ""
Next i



---
Regards,
Norman



"Bill" <bill@bpiconsulting.com> wrote in message
news:8z8pg.536$cd3.237@newsread3.news.pas.earthlink.net...
> Hello,
> I have a form that contains a number of text boxes. I would like to add a
> loop that sets each text box to an initial value such as 1. Each textbox
> is cleverly names TextBox1, TextBox2. I tried a loop like:
>
> For i = 1 to 10
> userform1.textbox " & i = 1
> next i
>
> But that doesn't work. Any help?
>
> Thanks.
>
> Bill
>

[Bill]

Worked great. Thanks!

"Duncan" <duncan.mutchblache@googlemail.com> wrote in message
news:1151669825.270443.252630@p79g2000cwp.googlegroups.com...
> For Each cntrl In Me.Controls
> On Error Resume Next
> If TypeOf cntrl Is MSForms.TextBox Then
> cntrl.Value = "1"
> End If
> Next cntrl
>
>
> I think this should do it, havent tested though so post back and let us
> know either way.
>
> Duncan
>
>
> Bill wrote:
>
>> Hello,
>> I have a form that contains a number of text boxes. I would like to add
>> a
>> loop that sets each text box to an initial value such as 1. Each textbox
>> is
>> cleverly names TextBox1, TextBox2. I tried a loop like:
>>
>> For i = 1 to 10
>> userform1.textbox " & i = 1
>> next i
>>
>> But that doesn't work. Any help?
>>
>> Thanks.
>>
>> Bill
>

[Duncan]

Bill,

If you was saying that my loop worked then I just point out, using this
way means you can change the names of the textboxes, and can add more
without affecting the loop.

But both ways work just the same, a case of whether you want certain
textboxes excluded from your loop really.

Duncan




Bill wrote:

> Worked great. Thanks!
>
> "Duncan" <duncan.mutchblache@googlemail.com> wrote in message
> news:1151669825.270443.252630@p79g2000cwp.googlegroups.com...
> > For Each cntrl In Me.Controls
> > On Error Resume Next
> > If TypeOf cntrl Is MSForms.TextBox Then
> > cntrl.Value = "1"
> > End If
> > Next cntrl
> >
> >
> > I think this should do it, havent tested though so post back and let us
> > know either way.
> >
> > Duncan
> >
> >
> > Bill wrote:
> >
> >> Hello,
> >> I have a form that contains a number of text boxes. I would like to add
> >> a
> >> loop that sets each text box to an initial value such as 1. Each textbox
> >> is
> >> cleverly names TextBox1, TextBox2. I tried a loop like:
> >>
> >> For i = 1 to 10
> >> userform1.textbox " & i = 1
> >> next i
> >>
> >> But that doesn't work. Any help?
> >>
> >> Thanks.
> >>
> >> Bill
> >