Runtime error 13 Type Mismatch

[Pookiemeister]

On my userform, I have 16 checkboxes. Some of these checkboxes enable textboxes like the code below shows.

Private Sub chkbxAlignment_Click()
    If Me.chkbxAlignment.Value = True Then
        Me.txtbxAlignment.Enabled = True
        Me.txtbxAlignment.SetFocus
    Else
        Me.txtbxAlignment.Value = ""
        Me.txtbxAlignment.Enabled = False
    End If
End Sub

The error code in the title occurs on this line of code:

    If "TextBox" Like "*" & TypeName(cf) & "*" Then If cf.Value Then s = s & cf.Caption & ", "

What I am wanting to happen is if the user clicks on a checkbox that has a textbox I want the checkbox caption to display followed by a " - " and the textbox caption. Below is the code.

Case Is = "Frame2"
    For Each cf In ctrl.Controls
        If "CheckBox" Like "*" & TypeName(cf) & "*" Then If cf.Value Then s = s & cf.Caption & ", "
        If "TextBox" Like "*" & TypeName(cf) & "*" Then If cf.Value Then s = s & cf.Caption & ", "
    Next

Thak you

 

[DanteAmor]

I see that you decided for my code:

What checkbox and/or optionbutton has been selected inside a specific frame

On my userform, I have 10 frames, each containing checkboxes and option buttons. Some checkboxes control whether or not a textbox is enabled or not. I would like to loop through each frame and see what is selected and assign .caption to a string variable separated by a ",". How can I do this?

www.mrexcel.com

But you should comment or a feedback in the same thread.

Before you were checking an optionbutton, now you want to check a textbox.

As you now have a Texbox you cannot verify if it is true or false.
Do you want to check if it has text or is it empty?
And on the other hand, the Textbox does not have the .Caption property, if you want the content of the textbox, it would be .Value or .Text

 

[Pookiemeister]

This form has many frames, 10 to be exact. Inside some of the frames are either checkboxes, checkboxes that enable textboxes, and/or optionbuttons. I was trying to modify your code to allow it to work with textboxes but how can I bind the two together. There names are: chbxAlignment and txtbxAlignment. Would mind commenting your code please so I can learn from it? Thank You.

 

[DanteAmor]

to allow it to work with textboxes

For a checkbox, it is clear to me, if the checkbox is selected then s = checkbox.caption
That's what this code is for:
If "CheckBox" Like "*" & TypeName(cf) & "*" Then If cf.Value Then s = s & cf.Caption & ", "

What do you want for the textbox?
You can explain it with an example.

 

[Pookiemeister]

If the checkbox that enables a textbox is checked then I would like in this example to be if chkbxAlignment= true then s_1=chkbxAlignment.caption & " - " & txtbxAlignment.value but the question is can it find all three checkboxes that enable textboxes in a frame1 using a modified version of your For Loop? Thank you

 

[DanteAmor]

s_1

You could explain with examples.
You have 3 checkboxes, what are they called and what do they have in the caption?
and 3 textbox, what are they called?
Assuming that the 3 checkboxes are marked, and you have data in the textbox (put 3 examples one data for each texbox)
What would be the result in s?

 

[Pookiemeister]

My userform is used for maintenance work performed. I have 10 frames, each frame contains checkboxes and/or optionbuttons
In Frame1 (Named Adjustment) I have 16 checkboxes total. Three of those checkboxes enable textboxes. The first checkbox(chkbxAlignment) that has the caption "Alignment" at which point the corresponding textbox(txtbxAlignment) is enabled so the user must enter what was aligned.
Is there not a way to bind the two together so if the user clicks that checkbox it also pulls the value of the textbox as well?
Here's what I have so far:

Private Sub chkbxAlignment_Click()
    On Error Resume Next
    If Me.chkbxAlignment.Value = True Then
        Me.txtbxAlignment.Enabled = True
        Me.txtbxAlignment.SetFocus
    Else
        Me.txtbxAlignment.Value = ""
        Me.txtbxAlignment.Enabled = False
    End If
End Sub

Private Sub chkbxAlignment_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Me.chkbxAlignment.Value = True Then s2 = Me.chkbxAlignment.Caption & " - " & Me.txtbxAlignment.Value
End Sub

and for the textbox, I have this code:

Private Sub txtbxAlignment_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    fr2 = Me.chkbxAlignment.Caption & "-" & Me.txtbxAlignment.Value
    
    If txtbxAlignment.Value = "" Then Me.chkbxAlignment.Value = False And Me.txtbxAlignment.Enabled = False
    Dim result As Integer
        result = MsgBox("No value was entered inside the Alignment textbox. Please enter what was aligned?", vbQuestion, "Nothing Entered")
        If result = 1 Then Exit Sub
End Sub

This is probably a different issue, but my messagebox repeats twice before exiting the subroutine.
Here are all the checkboxes that enable textboxes in frame2:
chkbxAlignment & txtbxAlignment
chkbxBlank1 & txtbxBlank1
chkbxBlank2 & txtbxBlank2
If there is a For Loop that works with this, I was going to apply it to the other frames that have the same type of checkboxes. Thanks again for all your help.

 

[DanteAmor]

Sorry, but I am not understanding what the end goal is.