Message box to appear if option not selected

[joacro]

Hi there

I wish that a message box to appear if no option is selected:
- if txtCh1 = true and opt 1, opt2 or opt3 is not selected then msgbox (please select age group of child / adult dependant)
- if txtCh2 = true and opt4, opt5 or opt6 is not selected then msgbox (please select age group of child / adult dependant)
- if txtCh3 = true and opt7, opt8 or opt9 is not selected then msgbox (please select age group of child / adult dependant)
- if txtCh4 = true and opt10, opt11 or opt12 is not selected then msgbox (please select age group of child / adult dependant)
- if txtCh5 = true and opt13, opt14 or opt 15is not selected then msgbox (please select age group of child / adult dependant)
- if txtCh6 = true and opt16, opt17 or opt18 is not selected then msgbox (please select age group of child / adult dependant)

Hope someone can help me with this

Thanx in advance

Joacro

 

[mikerickson]

Changing this line should do that

On Error Resume Next
    pollOptGroup = Not (pollOptGroup) Imp CBool(Len(Me.Controls(textName).Text))
    On Error GoTo 0
End Function

 

[joacro]

It keeps on giving me a message box now

 

[repairman615]

Try adding a command button to the userform. then use this code:

Private Sub CommandButton1_Click()
Dim i As Long
Dim j As Long
j = 0
    For i = 1 To 6
        If UCase(Me.Controls("txtCh" & i).Value) = "TRUE" [COLOR=red]And[/COLOR] Me.Controls("opt" & j + 1).Value = False [COLOR=red]And[/COLOR] _
                Me.Controls("opt" & j + 2).Value = False [COLOR=red]And[/COLOR] Me.Controls("opt" & j + 3).Value = False Then
            MsgBox "please select age group of child / adult dependant"
        End If
        j = j + 3
    Next i
End Sub

call the userform and test to see if anything happens...

You could try changing the And to Or.

 

[mikerickson]

I just had a thought, wouldn't all this fussing about testing and TextBoxes and MsgBoxes be avoided by setting the default value of opt1, opt4, opt7, opt10 and opt 13 to True?