User Forms with runtime controls

[kcroom]

I have a userform that asks the following-

Equipment Type: [ComboBox]
Qty: [TextBox]

I have the code that opens the form and all of the initial controls - it is rather long but this is basically what it looks like:

Private Sub UserForm_Initialize()

With ComboBox_BoilerType
.AddItem "Hydronic"
End With

ComboBox_BoilerType.ListIndex = 0

End Sub

I would like to take this information and have hidden controls become visible:

"Label-1" "TextBox-1"
"Label-2" "TextBox-2"
etc. up to number entered in QTY


I have no idea how to do this... any help would be greatly appreciated

 

[bstory84]

Well here is 1 way.
in the code below QTY_BX is the textbox name that the user keys the QTY into.

Private Sub CommandButton1_Click()
On Error goto ERRQTY
 
For i = 1 To QTY_BX
    For Each ctl In Me.Controls
        If TypeOf ctl Is MSForms.TextBox Then
              If ctl.Name Like "TextBox" & i Then
                ctl.Visible = True
              End If
         ElseIf TypeOf ctl Is MSForms.Label Then
            If ctl.Name Like "Label" & i Then
                ctl.Visible = True
            End If
        End If
    Next ctl
    
Next i
Exit sub
 
ERRQTY:
msgbox "No QTY entered"
 
End Sub

 

[Norie]

What should the captions be for the labels?

Also how many label/textbox pairs will there be?

Is that based on the quantity entered in the textbox?