Keep certain text from showing in textbox

[JayH4]

Good evening,

I have the following code in a userform to automatically take what the operator has selected from a choice of checkboxes and puts the caption value in a textbox. However I have other checkboxes in the userform and it is picking up all of the checkboxes. Is there a way to make it only pick up the captions of check boxes that are within its own frame and not the entire userform. The frame where the checkboxes are located is called CallSign.

Private Sub WriteToTextBox()
    'Call Sign Textbox
    Dim c As Control
    Dim s As String
    
    For Each c In Me.Controls 'Loop through all controls
        If TypeName(c) = "CheckBox" Then 'Ensure control is a checkbox
            If c.Value = True Then 'We know it's a checkbox so check if it has been ticked
                s = IIf(s = "", c.Caption, s & ", " & c.Caption) 'Populate the string variable
               ' Me.txcallsign.Text.Replace("Protective Services Staff  Dispatched", "").Trim()
            End If
        End If
    Next c
    
    frcallsign.txcallsign = s 'write string to textbox
End Sub

I attempted to use a "Replace" however it did not work

Thank you for any help

 

[Domenic]

Try...

[FONT=Arial][COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] WriteToTextBox()
    [COLOR=green]'Call Sign Textbox[/COLOR]
    [COLOR=darkblue]Dim[/COLOR] c [COLOR=darkblue]As[/COLOR] Control
    [COLOR=darkblue]Dim[/COLOR] s [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR]
    
    [COLOR=darkblue]For[/COLOR] [COLOR=darkblue]Each[/COLOR] c [COLOR=darkblue]In[/COLOR] Me.frCallSign.Controls [COLOR=green]'Loop through all controls[/COLOR]
        [COLOR=darkblue]If[/COLOR] TypeName(c) = "CheckBox" [COLOR=darkblue]Then[/COLOR] [COLOR=green]'Ensure control is a checkbox[/COLOR]
            [COLOR=darkblue]If[/COLOR] c.Value = [COLOR=darkblue]True[/COLOR] [COLOR=darkblue]Then[/COLOR] [COLOR=green]'We know it's a checkbox so check if it has been ticked[/COLOR]
                [COLOR=darkblue]If[/COLOR] c.Caption <> "Protective Services Staff Dispatched" [COLOR=darkblue]Then[/COLOR]
                    s = s & ", " & c.Caption [COLOR=green]'Populate the string variable[/COLOR]
                [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
            [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
        [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
    [COLOR=darkblue]Next[/COLOR] c
    
    s = Trim(Mid(s, 3))
    
    Me.frCallSign.txCallSign = s [COLOR=green]'write string to textbox[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR][/FONT]

Hope this helps!

 

[JayH4]

I walked away from my screen for a bit and had an idea
I came back to my computer and tried it and it worked...then I came back here and saw that you had answered my question.
So thank you very much...I basically did the same thing

Private Sub WriteToTextBox()    'Call Sign Textbox
    Dim c As Control
    Dim s As String
    
    For Each c In Me.CallSign.Controls 'Loop through all controls
        If TypeName(c) = "CheckBox" Then 'Ensure control is a checkbox
            If c.Value = True Then 'We know it's a checkbox so check if it has been ticked
                s = IIf(s = "", c.Caption, s & ", " & c.Caption) 'Populate the string variable
            End If
        End If
    Next c
    
    frcallsign.txcallsign = s 'write string to textbox
End Sub

Thank you none the less

 

[Domenic]

That's great, glad you were able to solve it.

Cheers!