TypeOf/OptionGroup/CheckBox question

[EManning]

Using A2003. I've got an option group that has a number of check
boxes. I have coding to clear the option group if the user wishes to
cancel their choice. This coding also clears the rest of the controls
on the form. Snippet of the coding:

<..snipped..>
ElseIf TypeOf oCtrl Is CheckBox Then
oCtrl.Value = False
<..snipped..>
ElseIf TypeOf oCtrl Is OptionGroup Then
oCtrl.Value = 0

I get the error message "You can't assign a value to this object" when
this code hits the first check box in the option group. I assume it's
because the check box is part of the option group.

I tried adding an "..oCtrl is OptionButton" but continued to get the
error.

I take it that the check boxes within the option group have to be
ignored. Is there a way to test the check box and if it belongs to the
option group, then ignore it? Or do I have to refer them by name to
ignore? Something like this:

ElseIf TypeOf oCtrl Is CheckBox Then
<if name of control is CheckXX or CheckYY or ... then ignore
this check box>

Thanks for any help or advice.

[RoyVidar]

"EManning" <ma**********@h otmail.comwrote in message
<11************ **********@d34g 2000cwd.googleg roups.com>:

Using A2003. I've got an option group that has a number of check
boxes. I have coding to clear the option group if the user wishes to
cancel their choice. This coding also clears the rest of the
controls on the form. Snippet of the coding:

<..snipped..>
ElseIf TypeOf oCtrl Is CheckBox Then
oCtrl.Value = False
<..snipped..>
ElseIf TypeOf oCtrl Is OptionGroup Then
oCtrl.Value = 0

I get the error message "You can't assign a value to this object"
when this code hits the first check box in the option group. I
assume it's because the check box is part of the option group.

I tried adding an "..oCtrl is OptionButton" but continued to get the
error.

I take it that the check boxes within the option group have to be
ignored. Is there a way to test the check box and if it belongs to
the option group, then ignore it? Or do I have to refer them by
name to ignore? Something like this:

ElseIf TypeOf oCtrl Is CheckBox Then
<if name of control is CheckXX or CheckYY or ... then
ignore this check box>

Thanks for any help or advice.

I think there might be more than one way of dealing with such. Here's
one idea - assign the parent of the control to an object, and check
whether it is an option group. Some air code

dim x as object
ElseIf TypeOf oCtrl Is CheckBox Then
set x = oCtrl.Parent
if not typeof x is OptionGroup then
oCtrl.Value = False
end if
set x = nothing

or check the name property of the parent control against the form name
- though, I think maybe objects on the form might have the same name
as the form?

ElseIf TypeOf oCtrl Is CheckBox Then
if oCtrl.Parent.Na me = me.name then
oCtrl.Value = False
end if

--
Roy-Vidar

[Terry Kreft]

Test the parent controltype e.g.

ElseIf TypeOf oCtrl Is CheckBox Then
If Not TypeOf oCtrl.Parent Is OptionGroup Then
oCtrl.Value = False
End If
ElseIf TypeOf oCtrl Is OptionGroup Then
oCtrl.Value = 0
--

Terry Kreft
"EManning" <ma**********@h otmail.comwrote in message
news:11******** **************@ d34g2000cwd.goo glegroups.com.. .

Using A2003. I've got an option group that has a number of check
boxes. I have coding to clear the option group if the user wishes to
cancel their choice. This coding also clears the rest of the controls
on the form. Snippet of the coding:

<..snipped..>
ElseIf TypeOf oCtrl Is CheckBox Then
oCtrl.Value = False
<..snipped..>
ElseIf TypeOf oCtrl Is OptionGroup Then
oCtrl.Value = 0

I get the error message "You can't assign a value to this object" when
this code hits the first check box in the option group. I assume it's
because the check box is part of the option group.

I tried adding an "..oCtrl is OptionButton" but continued to get the
error.

I take it that the check boxes within the option group have to be
ignored. Is there a way to test the check box and if it belongs to the
option group, then ignore it? Or do I have to refer them by name to
ignore? Something like this:

ElseIf TypeOf oCtrl Is CheckBox Then
<if name of control is CheckXX or CheckYY or ... then ignore
this check box>

Thanks for any help or advice.

[EManning]

Hey thanks. Your idea of "set x = oCtrl.Parent... " worked just fine.
RoyVidar wrote:

"EManning" <ma**********@h otmail.comwrote in message
<11************ **********@d34g 2000cwd.googleg roups.com>:

Using A2003. I've got an option group that has a number of check
boxes. I have coding to clear the option group if the user wishes to
cancel their choice. This coding also clears the rest of the
controls on the form. Snippet of the coding:

<..snipped..>
ElseIf TypeOf oCtrl Is CheckBox Then
oCtrl.Value = False
<..snipped..>
ElseIf TypeOf oCtrl Is OptionGroup Then
oCtrl.Value = 0

I get the error message "You can't assign a value to this object"
when this code hits the first check box in the option group. I
assume it's because the check box is part of the option group.

I tried adding an "..oCtrl is OptionButton" but continued to get the
error.

I take it that the check boxes within the option group have to be
ignored. Is there a way to test the check box and if it belongs to
the option group, then ignore it? Or do I have to refer them by
name to ignore? Something like this:

ElseIf TypeOf oCtrl Is CheckBox Then
<if name of control is CheckXX or CheckYY or ... then
ignore this check box>

Thanks for any help or advice.

I think there might be more than one way of dealing with such. Here's
one idea - assign the parent of the control to an object, and check
whether it is an option group. Some air code

dim x as object
ElseIf TypeOf oCtrl Is CheckBox Then
set x = oCtrl.Parent
if not typeof x is OptionGroup then
oCtrl.Value = False
end if
set x = nothing

or check the name property of the parent control against the form name
- though, I think maybe objects on the form might have the same name
as the form?

ElseIf TypeOf oCtrl Is CheckBox Then
if oCtrl.Parent.Na me = me.name then
oCtrl.Value = False
end if

--
Roy-Vidar

[salad]

EManning wrote:

Using A2003. I've got an option group that has a number of check
boxes. I have coding to clear the option group if the user wishes to
cancel their choice. This coding also clears the rest of the controls
on the form. Snippet of the coding:

<..snipped..>
ElseIf TypeOf oCtrl Is CheckBox Then
oCtrl.Value = False
<..snipped..>
ElseIf TypeOf oCtrl Is OptionGroup Then
oCtrl.Value = 0

I get the error message "You can't assign a value to this object" when
this code hits the first check box in the option group. I assume it's
because the check box is part of the option group.

I tried adding an "..oCtrl is OptionButton" but continued to get the
error.

I take it that the check boxes within the option group have to be
ignored. Is there a way to test the check box and if it belongs to the
option group, then ignore it? Or do I have to refer them by name to
ignore? Something like this:

ElseIf TypeOf oCtrl Is CheckBox Then
<if name of control is CheckXX or CheckYY or ... then ignore
this check box>

Thanks for any help or advice.

In response to Terry's post, I would check for a Frame/Option group
prior to a checkbox. In fact, I wouldn't bother checking for checkboxes
unless you have ones not contained within an option group. In an option
group, the radio buttons/checkboxes are irrelevent...yo u get the value
of the option group and let Access determine if its checked or not.