The .Value of a Check Box

[Darryl Kerkeslager]

I wanted to test for only one True value in a bunch of checkboxes, so I
figured I could just test for a value of exactly -1 after adding the values.

In case 0 below, it worked. But in all other cases, it failed, with a Type
error. Come to find out, sometimes, for no *apparent* reason - "True" is
returned, at other times, -1.

Can someone explain this (seemingly) random behavior, and tell me a way to
force the integer result? CInt(Me!c20) did not work, nor di using the
explicit .Value property.

-------------------------------------------------
Dim i As Integer

Select Case Me!tPages.Value
Case 0
i = Me!c2 + Me!c3
Case 1
i = Me!c20 + Me!c36 + Me!c15 + Me!c25 + Me!c29
End Select

If i <> -1 Then
--------------------------------

--
Darryl Kerkeslager

[Larry Linson]

"Darryl Kerkeslager" wrote

I wanted to test for only one True value in
a bunch of checkboxes, so I
figured I could just test for a value of
exactly -1 after adding the values.

In case 0 below, it worked. But in all
other cases, it failed, with a Type
error. Come to find out, sometimes,
for no *apparent* reason - "True" is
returned, at other times, -1.

Can someone explain this (seemingly)
random behavior, and tell me a way to
force the integer result? CInt(Me!c20)
did not work, nor did using the
explicit .Value property.

I don't know why CInt(Me!c20) didn't work for you.

The following is copied directly from the Immediate Window.

? Cint(True)
-1
? Cint(-1)
-1

So, it appears to me that Cint should return -1 whether the Control has a
value of True or a value of -1.

I'd suggest uusing some Debug.Print statements on each of the Controls, and
on CInt applied to each of them to try to debug.

Larry Linson
Microsoft Access MVP

[Darryl Kerkeslager]

"Larry Linson" <bo*****@localh ost.not> wrote

I don't know why CInt(Me!c20) didn't work for you.

The following is copied directly from the Immediate Window.

? Cint(True)
-1
? Cint(-1)
-1

So, it appears to me that Cint should return -1 whether the Control has a
value of True or a value of -1.

Got lucky! Based on your faith in the correctness of my code, I looked for
another problem. I realized that all the problem areas were calling this
code first:

Private Sub tPages_Change()
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acCheckBox Then ctl.Value = ctl.DefaultValu e
Next
Set ctl = Nothing
End Sub
So I searched Google for "ctl.DefaultVal ue" and just happened to read one
post where the author used Eval() to enclose the ctl.DefaultValu e.

I assume that Access was randomly (about 15% of the time) interpreting my
default True and False values as strings. Eval() fixed that.
--
Darryl Kerkeslager

[lylefair]

There are only strings.

[Wayne Morgan]

Are the checkboxes each bound to a field? If so, what is the data type of
the field each checkbox is bound to? Are they all Yes/No data type fields?

--
Wayne Morgan
MS Access MVP
"Darryl Kerkeslager" <ke*********@co mcast.net> wrote in message
news:Au******** ************@co mcast.com...

"Larry Linson" <bo*****@localh ost.not> wrote

I don't know why CInt(Me!c20) didn't work for you.

The following is copied directly from the Immediate Window.

? Cint(True)
-1
? Cint(-1)
-1

So, it appears to me that Cint should return -1 whether the Control has a
value of True or a value of -1.

Got lucky! Based on your faith in the correctness of my code, I looked
for another problem. I realized that all the problem areas were calling
this code first:

Private Sub tPages_Change()
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acCheckBox Then ctl.Value = ctl.DefaultValu e
Next
Set ctl = Nothing
End Sub
So I searched Google for "ctl.DefaultVal ue" and just happened to read one
post where the author used Eval() to enclose the ctl.DefaultValu e.

I assume that Access was randomly (about 15% of the time) interpreting my
default True and False values as strings. Eval() fixed that.
--
Darryl Kerkeslager

[Bruce Rusk]

Maybe I'm misunderstandin g what you're doing, but if you're dealing with a
bunch of true/false cases, it's a boolean, why do you need to use an
integer? Isn't it just an OR?

How about (aircode):

dim bln as boolean

Select Case Me!tPages.Value
Case 0
bln = Me!c2 OR Me!c3
Case 1
bln = Me!c20 OR Me!c36 OR Me!c15 OR Me!c25 OR Me!c29
End Select

if bln=true then
....

And if there's a possibility one of the checkboxes will be null, just
enclose each in

Nz(Me!cX,false)

"Darryl Kerkeslager" <ke*********@co mcast.net> wrote in message
news:Au******** ************@co mcast.com...

"Larry Linson" <bo*****@localh ost.not> wrote

I don't know why CInt(Me!c20) didn't work for you.

The following is copied directly from the Immediate Window.

? Cint(True)
-1
? Cint(-1)
-1

So, it appears to me that Cint should return -1 whether the Control has a
value of True or a value of -1.

Got lucky! Based on your faith in the correctness of my code, I looked
for another problem. I realized that all the problem areas were calling
this code first:

Private Sub tPages_Change()
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acCheckBox Then ctl.Value = ctl.DefaultValu e
Next
Set ctl = Nothing
End Sub
So I searched Google for "ctl.DefaultVal ue" and just happened to read one
post where the author used Eval() to enclose the ctl.DefaultValu e.

I assume that Access was randomly (about 15% of the time) interpreting my
default True and False values as strings. Eval() fixed that.
--
Darryl Kerkeslager

[Darryl Kerkeslager]

"Wayne Morgan" <co************ *************** @hotmail.com> wrote

Are the checkboxes each bound to a field? If so, what is the data type of
the field each checkbox is bound to? Are they all Yes/No data type fields?

No. Unbound.

--
Darryl Kerkeslager

[Darryl Kerkeslager]

"Bruce Rusk" <br************ ***@stanford.ed oo> wrote

Maybe I'm misunderstandin g what you're doing, but if you're dealing with a
bunch of true/false cases, it's a boolean, why do you need to use an
integer? Isn't it just an OR?

I need to know that ONE and ONLY ONE is checked. Or can't tell me that.

--
Darryl Kerkeslager

[Fred Zuckerman]

If all of the check boxes are unbound and you want to insure that one (and
only one) is checked, then why not use an option box control instead of
multiple check boxes?
Fred Zuckerman

"Darryl Kerkeslager" <ke*********@co mcast.net> wrote in message
news:l_******** ************@co mcast.com...

"Bruce Rusk" <br************ ***@stanford.ed oo> wrote

Maybe I'm misunderstandin g what you're doing, but if you're dealing with a bunch of true/false cases, it's a boolean, why do you need to use an
integer? Isn't it just an OR?

I need to know that ONE and ONLY ONE is checked. Or can't tell me that.

--
Darryl Kerkeslager

[Wayne Morgan]

In that case, do any of them appear to have a gray center? If so, the value
of those with a gray center is Null. If you don't have the check box set for
Triple State, it will still start off as Null until you check it one time,
then it will alternate between True and False. The way around this is to set
the Default Value of the checkbox to True or False, as desired.

--
Wayne Morgan
MS Access MVP
"Darryl Kerkeslager" <ke*********@co mcast.net> wrote in message
news:U_******** ************@co mcast.com...

"Wayne Morgan" <co************ *************** @hotmail.com> wrote

Are the checkboxes each bound to a field? If so, what is the data type of
the field each checkbox is bound to? Are they all Yes/No data type
fields?

No. Unbound.