Option buttons

[Ecal]

Hello, All


I am trying to create two option buttons Option32 and Option34 what I would like to happen is if both are clicked making them -1 a message to pop up and tell the user to choose either optionbutton not both. Then once the ok button displayed at the bottom of the message is pressed it resets both Option34 and Option32 to 0 or False respectively. However when just Option32 is choosen it pulls up another form to fill out. This is what I have thus far........ Have not gotten to the form part still kind of new to programming in visual basic so any help would be greatly appreciated. Thanks in Advance.

Private Sub Option32_AfterUpdate()
If Option34.Value = -1 & Option32.Value = -1 Then

Dim Msg, Style, Title, Help, Ctxt, Response
Msg = "Can not have both options chosen. Click Yes or No" ' Define message.
Style = vbOKOnly + vbCritical + vbDefaultButton1 + vbApplicationModal
' Define buttons.
Title = "Error" ' Define title.
Help = "DEMO.HLP" ' Define Help file.
Ctxt = 1000 ' Define topic
' context.
' Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbOKOnly Then ' User chose Yes.

Me.Option32.Value = 0
Me.Option34.Value = 0
End If
End If


End Sub

Not sure where I am going wrong compiled and everything but in the view form when I go to test it does not work.

[June7]

If you put the option buttons in an Option Group control, then only one can be selected.

[Missinglinq]

As June7 said, creating an Option Group for your buttons will allow the Access Gnomes to do all of the heavy lifting for you! In Form Design View:

1. Click on the Option Group Icon and place on Form (Under the Design Tab on the Ribbon)
2. Follow the Wizard and enter the Caption for each Button
3. Hit 'Next'
4. Select "No, I don't want a Default'
5. Hit 'Next'
6. Hit 'Next' (Yes, hit it a second time to accept the Given Values)
7. 'Option Buttons' is the Default type of Control, so hit 'Next' again
8. Enter the Caption you want to appear above the Option Group
9. Hit 'Finish'

Now, to use the option that is chose, something like this:

Private Sub Frame0_AfterUpdate()
 Select Case Me.Frame0
  Case 1
    'Code goes here for when the first button is selected
   Case 2
    'Code goes here for when the second button is selected
 End Select
End Sub

Replace Frame0 with the actual name Access assigns to the Option Group; it will be 'Frame' followed by one or more digits.

Place whatever code you want to run when each button is selected in the designated place under the 'Cases.'

Access will now only allow one Option to be selected from the Group.

Linq ;0)>