Checking Option Buttons

[Jay Eshleman]

Do you know if it is possible to loop through specific controls with
in a frame (instead of " in controls")

ie...

Private Sub TestLoop()
Dim aControl As Control
Dim fraFrame As Frame

Set fra = fraSelection

With fra

For Each aControl In fra
If TypeOf aControl Is optionbutton Then
MsgBox aControl.Text
End If
Next

End With

End Sub

In other words, I am trying to loop through specific options buttons inside as specific frame
besure that the user has selected at least one option (before updating recordset)

[beachbum]

Hi Jay
You can use the Container property eg...

Private Sub Command2_Click()
    Dim ctrl As Control
    For Each ctrl In Controls
        If ctrl.Container Is Frame1 Then
            Debug.Print ctrl.Name; " is in frame"
        End If
    Next
End Sub

regards
Stuart