Option Button Question

[stemar]

I have a form with 10 option buttons in one frame. My OKButton for the form needs to check that one of them has been checked before hiding the form to do stuff with according to which button has been checked.

I can use a line for each:

If OptionLeave then OK = true
IfOptionSick then OK = true
...
if not OK then
nag user
exit sub

or use a single line

if not optionLeave or OptionSick or .... then
nag user
exit sub

It's similar using the results:

If OptionLeave then DoThis
IfOptionSick then DoThat
etc.

Is there a more elegant way of doing it?

 

[kpark91]

select Case would be another way but it'd be just like the IF statements so my answer would be no... there isn't a 'more' elegant way of doing this altho some people may come up with a solution.

 

[Norie]

Are they the only checkbox controls in the frame?

This will loop through all the controls within the frame and return either the caption of the selected option or 'No option selected'.

Option Explicit
 
Private Sub CommandButton1_Click()
Dim ctl As MSForms.Control
Dim boolChk As Boolean
Dim strOption As String
 
    For Each ctl In Frame1.Controls
 
        If TypeOf ctl Is MSForms.OptionButton Then
        
            If ctl.Value Then
                boolChk = True
                strOption = ctl.Caption
            End If

        End If

    Next ctl

    If boolChk Then
        Label1.Caption = "Option selected - " & strOption
    Else
        Label1.Caption = "No option checked"
    End If

End Sub