Cant assign a value to this object ... when trying to clear a checkbox

[annbb]

I have a piece of code which resets all the control on a form ..but if
I also put an option group on the form and the relevant code in the
routine to reset it I get an error message saying that you cant assign
a value to this object when the code reaches the line for the checkbox.
The code works perfectly if EITHER option group or checkbox are in BUT
not when both are in

Any suggestions please

Public Sub ClearForm()
Dim frm As Form
Dim ctl As Control
Set frm = Screen.ActiveForm

For Each ctl In frm.Controls
If ctl.ControlType = acTextBox Then
ctl.Value = ""
End If
If ctl.ControlType = acListBox Then
ctl.Value = Null
End If
If ctl.ControlType = acComboBox Then
ctl.Value = Null
End If
If ctl.ControlType = acCheckBox Then
ctl.Value = 0

End If
Next
End Sub

Many Thanks AnnBB

[Allen Browne]

The controls (check boxes or option buttons or whatever) that are part of
the option group do not have a Value, so you cannot set them.

Either check the Parent of the control to see if it is the option group, or
use error handling to resume on the next line.

BTW, setting a text box to a zero-length string is probably less desirable
than setting it to Null.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"annbb" <an***@yahoo.com> wrote in message
news:11**********************@o13g2000cwo.googlegr oups.com...

I have a piece of code which resets all the control on a form ..but if
I also put an option group on the form and the relevant code in the
routine to reset it I get an error message saying that you cant assign
a value to this object when the code reaches the line for the checkbox.
The code works perfectly if EITHER option group or checkbox are in BUT
not when both are in

Any suggestions please

Public Sub ClearForm()
Dim frm As Form
Dim ctl As Control
Set frm = Screen.ActiveForm

For Each ctl In frm.Controls
If ctl.ControlType = acTextBox Then
ctl.Value = ""
End If
If ctl.ControlType = acListBox Then
ctl.Value = Null
End If
If ctl.ControlType = acComboBox Then
ctl.Value = Null
End If
If ctl.ControlType = acCheckBox Then
ctl.Value = 0

End If
Next
End Sub

Many Thanks AnnBB