enable/disable radio buttons

[jessetcobanez]

Can someone help me regarding enable/disable radio buttons?

Sample:
Asia
-PHP
-SGP
-VIE

Europe
-ROM
-DEN

There will be radio buttons on each items.
If I select Asia, I want to disable all radio buttons in Europe including the options below Europe (ROM and DEN) and vice verse.

Thank you!

 

[DacEasy]

I am not sure how your form looks but I built one based on your description, I hope this helps.

Private Sub rdPHP_Click()
    rdAsia.Value = True
    'This clicks Asia and defaults Europe to unclicked.
    'Then the code in Asia runs so ROM and DEN becomes unclicked.
End Sub

Private Sub rdSGP_Click()
    rdAsia.Value = True
    'This clicks Asia and defaults Europe to unclicked.
    'Then the code in Asia runs so ROM and DEN becomes unclicked.
End Sub

Private Sub rdVIE_Click()
    rdAsia.Value = True
    'This clicks Asia and defaults Europe to unclicked.
    'Then the code in Asia runs so ROM and DEN becomes unclicked.
End Sub

Private Sub rdAsia_Click()
    rdROM.Value = False
    rdDEN.Value = False
    'This clicks Asia and defaults Europe to unclicked.
    'Then the code in Asia runs so ROM and DEN becomes unclicked.
End Sub

Private Sub rdROM_Click()
    rdEurope.Value = True
    'This clicks Europe and defaults Asia to unclicked.
    'Then the code in Europe runs so PHP, SGP, and VIE becomes unclicked.
End Sub

Private Sub rdDEN_Click()
    rdEurope.Value = True
    'This clicks Europe and defaults Asia to unclicked.
    'Then the code in Europe runs so PHP, SGP, and VIE becomes unclicked.
End Sub

Private Sub rdEurope_Click()
    rdPHP.Value = False
    rdSGP.Value = False
    rdVIE.Value = False
    'This clicks Europe and defaults Asia to unclicked.
    'Then the code in Europe runs so PHP, SGP, and VIE becomes unclicked.
End Sub

 

[DacEasy]

You could look into disabling frames also since the buttons are in Frame1 and Frame2.

 

[jessetcobanez]

I

I am not sure how your form looks but I built one based on your description, I hope this helps.

Private Sub rdPHP_Click()
    rdAsia.Value = True
    'This clicks Asia and defaults Europe to unclicked.
    'Then the code in Asia runs so ROM and DEN becomes unclicked.
End Sub

Private Sub rdSGP_Click()
    rdAsia.Value = True
    'This clicks Asia and defaults Europe to unclicked.
    'Then the code in Asia runs so ROM and DEN becomes unclicked.
End Sub

Private Sub rdVIE_Click()
    rdAsia.Value = True
    'This clicks Asia and defaults Europe to unclicked.
    'Then the code in Asia runs so ROM and DEN becomes unclicked.
End Sub

Private Sub rdAsia_Click()
    rdROM.Value = False
    rdDEN.Value = False
    'This clicks Asia and defaults Europe to unclicked.
    'Then the code in Asia runs so ROM and DEN becomes unclicked.
End Sub

Private Sub rdROM_Click()
    rdEurope.Value = True
    'This clicks Europe and defaults Asia to unclicked.
    'Then the code in Europe runs so PHP, SGP, and VIE becomes unclicked.
End Sub

Private Sub rdDEN_Click()
    rdEurope.Value = True
    'This clicks Europe and defaults Asia to unclicked.
    'Then the code in Europe runs so PHP, SGP, and VIE becomes unclicked.
End Sub

Private Sub rdEurope_Click()
    rdPHP.Value = False
    rdSGP.Value = False
    rdVIE.Value = False
    'This clicks Europe and defaults Asia to unclicked.
    'Then the code in Europe runs so PHP, SGP, and VIE becomes unclicked.
End Sub

This is very helpful! Thank you so much! Is it possible to do this if I have the form ready already? I don't have the Data Entry form type but simple survey created in Excel cells.

 

[DacEasy]

Yes, maybe post a screenshot of what you currently have in Excel.

 

[jessetcobanez]

Something like this. Initial question is the Yes/No options then the selection in column F and H will be dependent on their initial answer.

 

[DacEasy]

So using my code example, you would set up "Yes" and "No" similar to Europe and Asia. "Yes" and "No" would turn the opposite of it's subgroup to False.

Private Sub rdEurope_Click()
    rdPHP.Value = False
    rdSGP.Value = False
    rdVIE.Value = False
    'This clicks Europe and defaults Asia to unclicked.
    'Then the code in Europe runs so PHP, SGP, and VIE becomes unclicked.
End Sub

Private Sub rdAsia_Click()
    rdROM.Value = False
    rdDEN.Value = False
    'This clicks Asia and defaults Europe to unclicked.
    'Then the code in Asia runs so ROM and DEN becomes unclicked.
End Sub

The buttons in the subgroup would make a call back to either "Yes" or "No" when it's clicked. Which clears the ones not in the group with it's False statement that was set up above. Like with ROM below:

Private Sub rdROM_Click()
    rdEurope.Value = True
    'This clicks Europe and defaults Asia to unclicked.
    'Then the code in Europe runs so PHP, SGP, and VIE becomes unclicked.
End Sub