Deafault Values of Textboxes

[bong25]

Hi,

I have textboxes in userform and frames, I need to set their default values but not for all of them with the same value,for example:

textbox1 to textbox15 = ""
textbox16 = "common"
textbox17 to 20 = ""
textbox21 = "standard"

Thanks in advance.

 

[bong25]

Hi Again I managed to make it work.

This is the code below:

Private Sub UserForm_Initialize()

Dim cCtrl As Control, cCtrlF As Control

'Loops through all Controls on UserForm Including Inside Frames
    For Each cCtrl In Me.Controls
        If TypeName(cCtrl) = "TextBox" Then
            If cCtrl.Name = "TextBox27" Then
               cCtrl.Value = "Mr. Name 01"
                   ElseIf cCtrl.Name = "TextBox28" Then
                       cCtrl.Value = "Mr. Name 02"
                           Else: cCtrl.Value = " "
                           If TypeName(cCtrl) = "Frame" Then
                               For Each cCtrlF In cCtrl.Controls
                                   If TypeName(cCtrlF) = "TextBox" Then
                                       If cCtrlF.Name = "TextBox24" Then
                                           cCtrlF.Value = "Mr. Name 03"
                                               Else: cCtrlF.Value = " "
                                       End If
                                   End If
                               Next cCtrlF
                           End If
            End If
        End If
    Next cCtrl
End Sub

Thanks for the replies guys.

 

[bong25]

Ooops!

It's actually not fully working.

    If TypeName(cCtrl) = "Frame" Then
        For Each cCtrlF In cCtrl.Controls
            If TypeName(cCtrlF) = "TextBox" Then
                If cCtrlF.Name = "TextBox24" Then
                    cCtrlF.Value = "Mr.Name 03"
                    Else: cCtrlF.Value = " "
                End If
            End If
        Next cCtrlF

The above did not work.

 

[repairman615]

Ooops!

It's actually not fully working.

    If TypeName(cCtrl) = "Frame" Then
        For Each cCtrlF In cCtrl.Controls
            If TypeName(cCtrlF) = "TextBox" Then
                If cCtrlF.Name = "TextBox24" Then
                    cCtrlF.Value = "Mr.Name 03"
                    [COLOR=red]Else:[/COLOR] cCtrlF.Value = " "
                End If
            End If
        Next cCtrlF

The above did not work.

The Try changing the Else: to Else without the colon.

Not really sure, but worth a shot.

 

[bong25]

repairman615,

I removed the colon but the colon came back automatically.

 

[repairman615]

... Try like:

[COLOR=#ff0000]Else[/COLOR]
     cCtrlF.Value = " "

In other words, remove the colon. Then press enter for a new line.