Set controls Value to True

[Thompyt]

How do I set the checkbox control to be true if the caption value is met? I am having issues with the bold. Thanks

Private Sub Report_Load()

    Call SearchControlCaption("RptSoleSource", Forms!frmSoleSingle.CHCks)

End Sub

Sub SearchControlCaption(reportName As String, searchCaption As String)
Dim rpt As Report
Dim ctrl As Control
    
    Set rpt = Reports(RptSoleSource)
    
    For Each ctrl In rpt.Controls
        If TypeOf ctrl Is Label Then
            If ctrl.Caption = searchCaption Then
                If ctrl Is CheckBox Then
                  Set ctrlv.Value = True
                    Exit Sub
                End If
            End If
        End If
    Next ctrl
    
End Sub

[Micron]

You're testing if ctrl is a label, therefore within those nested IF's it cannot be a checkbox as well.

I don't recognize some of the words you've used there, such as label or checkbox as a control type. Methinks it's acCheckbox and acLabel. I also think that TypeOf is an operator that's used to return the data type of an expression. However, if you use TypeName(ctrl) then checkbox, label or textbox would be valid. The property name of an object is not the same as the type property.

[jojowhite]

is the checkbox associated with the Label?
if it is, try:

Sub SearchControlCaption(reportName As String, searchCaption As String)
Dim rpt As Report
Dim ctrl As Control
    
    Set rpt = Reports(RptSoleSource)
    
    For Each ctrl In rpt.Controls
        If TypeOf ctrl Is CheckBox Then
            If ctrl.Controls(0).Caption = searchCaption Then
                Set ctrl.Value = True
                Exit Sub
            End If
        End If
    Next ctrl
    
End Sub

[June7]

jojo, don't use Set with setting a control's value. Just ctrl.Value = True. Then code works.
Use Set for setting object variables.

Thom, what report section is this control located in? I don't understand report setup. Why would unbound checkbox value be dependent on caption?

[Thompyt]

jojowhite
The checkbox is associated with the label. Your code fails on "Set ctrl.Value = True" and give runtime error 94 Object required. Same as what I was getting with mine.

Micron
I changed the names to acctrl & acreport. Makes sense and less confusion.

I am searching among the checkbox controls with the caption that is the same as searchCaption. Once found I want to set the checkbox to have a checkmark. Setting it to true. I have all the checkbox controls referenced to 1 control ChkBoxID with the Name of the control changed to the reference ID from a previous form combobox.

[Welshgasman]

You have a typo?
ctrlv.value not ctrl.value

[Micron]

did you see post 4? Set is for objects only.

[Micron]

Either of these versions should work

For Each ctrl In rpt.Controls
    If TypName(ctrl) = "Checkbox" And ctrl.Controls(0).Caption = searchCaption Then ctrl = True
Next

For Each ctrl In rpt.Controls
    If TypeName(ctrl) = "Checkbox" And ctrl.Controls(0).Caption = searchCaption Then 
        ctrl = True
        Exit Sub
    End If
Next

EDIT - if there is any checkbox that doesn't have a label or later, you dis-associate one, I'm fairly certain either of those will raise an error.
EDIT 2 - edited code. I have a habit of typing ctl, not ctrl so had to fix, and fix typo on TypeName

[Micron]

Sighhh, you can't have both tests on one line. I got this to run

Dim ctrl As Control
Dim searchCaption As String

searchCaption = "Check12"
''For Each ctrl In rpt.Controls
For Each ctrl In Me.Controls
    If TypeName(ctrl) = "CheckBox" Then
        If ctrl.Controls(0).Caption = searchCaption Then
            ctrl = True
            Exit Sub
        End If
    End If
Next

NOTE I don't have the report so I used the form that the checkbox was on. You can adapt?

[moke123]

You could even get away with

For Each ctl In Me.Controls
    
        On Error Resume Next
        
        If ctl.Caption = SearchCaption Then
            ctl.Parent.Value = True
        End If

    Next

Ignore the errors and then use the parent property to set value

[Micron]

Yikes. Maybe OK for this example, but not exactly best practice? If there is more going on in the procedure, you'd have to alter the On Error statement to suit. Not my style.

[CJ_London]

I changed the names to acctrl & acreport. Makes sense and less confusion.

on the contrary acReport is a vba constant - it's value is 3. acForm is 2, acCheckBox is103, acLabel is 100, etc

[moke123]

Yikes. Maybe OK for this example, but not exactly best practice? If there is more going on in the procedure, you'd have to alter the On Error statement to suit. Not my style.

Yea I somewhat agree but it's debatable, not unheard of. It's kind of why I worded it as "you could get away with".
The 2 possible errors, 2465 and 438, both relate to an object without caption properties and could be trapped within conventional error trapping. This doesn't appear to be a complicated procedure unless the
label captions are dynamic or unknown and the scope of the procedure is pretty limited and unlikely to affect other code. Not sure why you'd be running it in a report though.

[jojowhite]

I change the code, unfortunately it won't work if the checkbox is Bound to a field:

Sub SearchControlCaption(reportName As String, searchCaption As String)
Dim rpt As Report
Dim ctrl As Control, p As Control
    
    Set rpt = Reports(reportName)
    
    For Each ctrl In rpt.Controls
        If TypeOf ctrl Is CheckBox Then
            Set p = ctrl.Controls(0)
            If p.Caption = searchCaption Then
                ctrl.Value = True
                Exit Sub
            End If
        End If
    Next ctrl
    
End Sub

[moke123]

In a report you likely need to make changes in the underlying data. Reports are designed for display, not data entry.