"Run-time error "2427"

Question

Why would I get the following error when I try to run the code shown below?

"Run-time error '2427': You entered an expression that has no value."

The error occurs at the "If ctl.Value = True", and I have verified that ctl is a CheckBox control with the Add Watch feature.

Dim selectedTrainingEvent As String

Dim ctl As Control

For Each ctl In Me.Controls

    With ctl

        Select Case .ControlType

            Case acCheckBox

                If ctl.Value = True Then selectedTrainingEvent = ctl.Name

        End Select

    End With

Next

Any help would be greatly appreciated.

Dean

Answer 1

Have you placed one or more check boxes in an option group? If so, those check boxes don't have a value of their own. Instead, the Option Value of the check box that is ticked becomes the Value of the option group (so you won't have to loop through the check boxes - simply look at the value of the option group)

Answer 2

Thank you very much,

That is exactly what my problem was.

Regards,

Dean Hornsby