Help with For Each ... Next and control

A

Ayo

I have a form that contains a Multipage control, with 4 pages, and about 5
textboxes, 5 labels and 5 commandbuttons on each page. I am trying to use
"For Each ctl In frmOpenFiles.Controls
If TypeName(ctl) = "TextBox" Then" to go through the controls on the
form and only look for the textboxes.

My problem is that I am looking for a way to do the textboxes for before
the other controls or if there is a way to tell the programme which controls
to start with.
I want it to start with the textboxes on the first page of the Multipage,
then the textboxes on the second page and so on.
 
L

Leith Ross

I have a form that contains a Multipage control, with 4 pages, and about 5
textboxes, 5 labels and 5 commandbuttons on each page. I am trying to use
"For Each ctl In frmOpenFiles.Controls
If TypeName(ctl) = "TextBox" Then" to go through the controls on the
form and only look for the textboxes.

My problem is that I am looking for a way to do the textboxes for before
the other controls or if there is a way to tell the programme which controls
to start with.
I want it to start with the textboxes on the first page of the Multipage,
then the textboxes on the second page and so on.

Hello Ayo,

This macro steps through each page of the MultiPage control and counts
the number of TextBoxes on each page, if any. After each page is
examined, a MessageBox displays the count. The macro was placed in the
UserForm Click event. You can use this code as template for your own.

Private Sub UserForm_Click()

Dim Ctrls As Object
Dim I As Long, N As Long
Dim txtbox As Object

For I = 0 To UserForm1.MultiPage1.Pages.Count - 1
Set Ctrls = UserForm1.MultiPage1.Pages(I).Controls
For Each txtbox In Ctrls
N = N + 1
Next txtbox
MsgBox "Page(" & I & ") has " & N & " TextBoxes"
N = 0
Next I

End Sub

Sincerely,
Leith Ross
 

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