Deselect All Option Groups

[Guest]

I have about 20 Option Groups on a subform. I noticed that once a user
selects one of the 2 options, they cannot reset the Option Group to
"Unselected". How can I create a Command Button that will allow the user to
"Deselect" ALL of the Option Groups on the form without me having to create
20 separate command buttons.

Thanks.

- Steve

 

[Allen Browne]

Loop through the controls on the form. If its ControlType indicates it is an
option group, set its value to null:

Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acOptionGroup Then
ctl = Null
End If
Next
Set ctl = Nothing

 

[Guest]

That worked! Thanks so much.

- Steve

Loop through the controls on the form. If its ControlType indicates it is an
option group, set its value to null:

Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acOptionGroup Then
ctl = Null
End If
Next
Set ctl = Nothing