Check if radio button is selected in frames.

[papaz87]

I tried searching for this but as i dont know the command I can't seem to find the code.
What im trying to do, I think is pretty easy. I have a Userform with two frames with 4 radio buttons in one and 2 radio buttons in another.
The user must select one in both frames when clicking a command button in the userform. When that is done the userform will unload otherwise i want a MsgBox saying that the user need to select a radio button before finishing.

I tried this even though the "value" option doesnt exist for frames....

 If Frame1.Value And Frame2.Value = True ThenUnload Me
Else: MsgBox "You have to select an option"
End If

I know this doesnt exist for frames.. but what is the option to see if something is selected inside a frame?

Thanks for the help!

 

[Norie]

Why not refer to the option buttons directly instead of via the frame(s)?

 

[papaz87]

Ive tried this.. But i cant think of any other way.. This doesnt solve anything right?

If optionbutton1.value = true or optionbutton2.value = true or optionbutton3.value = true or optionbutton4.value = true And optionbutton5.value = true or optionbutton6.value = true Then
Unload me
End If

 

[papaz87]

yea. Forgot the msg box..This is what I wrote...

If optionbutton1.value = true or optionbutton2.value = true or optionbutton3.value = true or optionbutton4.value = true And optionbutton5.value = true or optionbutton6.value = true Then
Unload me
Else Msgbox "you need to select an option"
End if

 

[My Aswer Is This]

Here is how to loop through the Frame OptionButtons

I will let you do the rest:

Private Sub CommandButton2_Click()
Dim x As Long
x = 0
    For Each xControl In Frame1.Controls
            If TypeName(xControl) = "OptionButton" Then
                If xControl.Value = True Then x = x + 1
            End If
            
    Next xControl
If x = 0 Then MsgBox "You must select a option button"
End Sub

 

[papaz87]

Really grateful for the help. Didnt know how to loop. But two things about that code. This only loops thru Frame1 and not frame 2. Ive tried just adding an "And" but that didnt work.

Also i need the userform to Unload if the radio buttons are selected.. This is the code ive tried but that didnt work...


Dim x as Long
x = 0
For Each xControl In Frame1.Controls And Frame2.controls
If TypeName(xControl) = "OptionButton" Then
If xControl.Value = True Then x = x + 1
End If

Next xControl
If x = 0 Then MsgBox "You must select a option button"
If x = 1 Then
Unload Me

End Sub

 

[My Aswer Is This]

So if any option button in Frame 1 or Frame 2 is selected you want to close the Userform. Is that what you want?

 

[papaz87]

Yes please.

 

[papaz87]

Or no. One needs to be selected in both frame 1 and 2. Only then the command button will close the userform.

 

[My Aswer Is This]

Do not understand

first you said yes then you said:

One needs to be selected in both frame 1 and 2<strike></strike>

So what is it?