Similar thing to what I did (I've changed it a little to give you a better picture..
If someone selects option 1, then it displays a message and changed the option to 4:
[tt]
Code:
Private Sub Frame7_AfterUpdate()
If Me.Frame7.Value = 1 Then
Me.Frame7.Value = 4
Dim Response
Response = MsgBox("Don't be silly, you can't select a!", vbDefaultButton1, "Can't Select!") 'Send Msg
End If
End Sub
[/tt]
You need to put it in the after update of the group frame (NOT each individual option buttons)
OK. Are you using option buttons within an option group? Where you have the frame and the buttons within it? or are you using individual ones (like a check box)?
Have you dimmed the variable correctly? If you are using an option frame, plus buttons, then each button will have been given a numeric value by access, so the variable needs to be an Integer, or Long.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.