I have a problem with option group's code.

[llgtjb001]

As you see in the image, I have three options groups. When I check No of G and Yes of B, the ER option will be enabled( I choose enabled false on ER).

Private Sub frER_Click()

Dim lblNo1 As Boolean
Dim lblYes2 As Boolean






    If lblNo1.Checked = True And lblYes2.Checked = True Then
        frER.Enabled = True
        Else
        frER.Enabled = False
        End If
        
End Sub

After I type the code, it does not work. How could I fix it?
Thank you.

[ItsMe]

I do not recall if you can make more than one selection within an option group. I do not believe you can. The idea behind the Radio Button is when you select one, any previous selection reverts. In an Option Group, the value of the Option Group is what is used.

You need to determine the name of your option group. You can select your Option Group by clicking it or swooping with your cursor. You need to be careful to not select a radio button. Swooping the outer edge of the option group usually works best for me. With the option group selected, you can view the name of the option group within the properties sheet.

So you would evaluate the value of your option group

If Me.OptionGroupName.Value = 1 Then
'Do this
ElseIf Me.OptionGroupName.Value = 2 Then
'Do something else
else
'This should happen
End if

[llgtjb001]

Thank you for your reply. I try to fix it.

If Me.frG.Value = 2 And Me.frBrand.Value = 3 Then        frER.Enabled = True
        Else
        frER.Enabled = False
        End If

It still not work. Do I need to dim any value?

[ItsMe]

Did you use the Wizard to create your Option Group? What ever the value is of the selected Radio Button, will be the value of your Option Group. You can look at the properties of a Radio Button to make sure they are not all Option Value = 1

One Radio Button should have Option Value = 1 and another should have Option Value = 2.

Perhaps you should start by testing one of the Option Groups.

In the AfterUpdate event of frG, you could place the following code and then test frG while in Form View.

msgbox Me.frG.Value

[llgtjb001]

Private Sub frER_Click()







    If Me.frG.Value = 2 And Me.frBrand.Value = 3 Then
        frER.Enabled = True
        Else
        frER.Enabled = False
        End If
        
End Sub

Still not work.

[ItsMe]

Why are you using this Event?

Private Sub frER_Click()

Does not seem like the code you have is ever going to be able to execute.

Perhaps the AfterUpdate event of frG AND the AfterUpdate event of frBrand would be more appropriate.

[llgtjb001]

I think I use the form design and choose the option group. First group I set the ration button1 =1 and another =2. Then I set the second as 3 and 4, and third as 5 and 6.

also, where I can see the value of ration button? and how do I test it? Just type in

Private Sub frER_AfterUpdate()    
    MsgBox Me.frG.Value
    
End Sub

like this?

[llgtjb001]

I think I got it. Thank you I have to copy paste the code for both frG and frB. That will work.
Because I am not sure which event that I should type in.

[ItsMe]

I have to admit that I do not know what that screenshot is. If you are creating Macros, you should not be mixing VBA in the same event.

The VBA you posted in post #7 will work. It will tell you the value of the Radio Button you select via a message box. It will also let you know that your code is working.

If you want to look at the properties sheet, you can see the value of a Radio Button there, too. But the property sheet is not going to tell you whether or not your VBA code is executing.

[ItsMe]

...
Because I am not sure which event that I should type in.

I suggest you use the AfterUpdate Event for both option groups that are being evaluated.

AfterUpdate event of frG AND the AfterUpdate event of frBrand

[llgtjb001]

Do you mean to select the ration button to see the value? I do not find them. In which menu of properties?

[ItsMe]

I know it can get confusing. There are different properties for different controls. If you select one of the two radio buttons within option group frG you can view its properties within the Properties Sheet. The Option Value property is under the data tab.

If you use the VBA code you posted in post #7, you should expect a message box to display the same value as indicated in the Option Value property.