What is the VB macro code to "check" a Check Box forms control ?



- Ronald K.

Try setting the value to True.



On 10/09/2011 06:14, kittronald wrote:
What is the VB macro code to "check" a Check Box forms control ?



- Ronald K.



--
Dave Peterson

Dave,

Perhaps I'm not using the proper syntax.

Sheet2.CheckBox23.Value = True



- Ronald K.

Dave,

Thanks for the quick response.

Apparently, pressing the Send button was the solution.

Sheet2.CheckBoxes("Check Box 23").Value = True

In the future, I'll press the Send button before posting a question. 8)




- Ronald K.

Is this the shortest way to test if a Checkbox is already checked ?

Sub TEST()
If Sheet2.CheckBoxes("Check Box 23").Value = False Then
Sheet2.CheckBoxes("Check Box 23").Value = True
Else
Sheet2.CheckBoxes("Check Box 23").Value = True
End If
End Sub



- Ronald K.

kittronald expressed precisely :
Is this the shortest way to test if a Checkbox is already checked ?

Sub TEST()
If Sheet2.CheckBoxes("Check Box 23").Value = False Then
Sheet2.CheckBoxes("Check Box 23").Value = True
Else
Sheet2.CheckBoxes("Check Box 23").Value = True
End If
End Sub



- Ronald K.

No need to make the If evaluation redundant, it just adds extra
processing for VBA. No big deal on one-by-one basis but the cummulative
effect can add up...

Sub TEST()
If Not Sheet2.CheckBox23 Then Sheet2.CheckBox23 = True
End Sub

...so if it's NOT True then it gets changed to True. No need to set it
to True if it's already True! No need to test if its value = False
because Value is its default property. IOW, the control can only be
True (checked) or False (unchecked).

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc

This looks like it's a checkbox from the Forms toolbar -- not from the control
toolbox toolbar.

You can use xloff or xlon.

And if you just want to make it checked, there's no reason to check first.

sheet2.checkboxes("check box 23").value = xlon

If you are processing something based on the checkbox, you could use:

if sheet2.checkboxes("check box 23").value = xlon then
'or = xloff to check to see if it's empty


On 10/09/2011 09:10, kittronald wrote:
Is this the shortest way to test if a Checkbox is already checked ?

Sub TEST()
If Sheet2.CheckBoxes("Check Box 23").Value = False Then
Sheet2.CheckBoxes("Check Box 23").Value = True
Else
Sheet2.CheckBoxes("Check Box 23").Value = True
End If
End Sub



- Ronald K.



--
Dave Peterson