Clear all check boxes

[Wayne Cramer]

I have a form with a check box that controls a report which sends faxes to appropriate recipients. When the form closes I would like all check boxes to clear so the next time it is opened I can select recipients. Currently I have to deselect each check box one by one. A control button which would clear all check boxes would be a good solution also.

[CraigDolphin]

Are the checkboxes bound to any fields or are they unbound?

If they are unbound, then change the default value to 0 (i.e., false).

If they are bound to a field, then you could create an update query that runs from vba code in the on_close event of the form and changes all the -1 (true) values in the form's record source to 0. You could use a similar approach in a command button also but, if you always want to do this when the form opens, you'd be better to use the on_close event of the form (or the on_current event instead if you want it to reset when you navigate off the record).

[Luddite Lad]

Easy just put the following code behind your form's on close event or on a button's on click event;

Me.Check1 = False
Me.Check2 = False
'Etc.

[boblarson]

This will clear all checkboxes on a form.

    Dim ctl As Control
    For Each ctl In Me.Controls
        If ctl.ControlType = acCheckBox Then
            ctl.Value = False
        End If
    Next ctl

[CEH]

To add to Bobs post... in case you might have other check boxes on the form you do not want to change by the event, you could "Tag" the ones you DO want to clear.....

Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acCheckBox Then
If ctl.tag = "*" then
ctl.Value = False
End If
End if
Next ctl

[CraigDolphin]

So few cats, so many ways to skin 'em

[missinglinq]

That's what I always say!

[BadScript]

Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acCheckBox Then
ctl.Value = False
End If
Next ctl

Many thanks, Excellent..
Is this possible for other controls as well? like clear all combo's and clear all textboxes or clear a whole form?
I have many controls in my unbound form and all I want is to clear my form with a button

[KenHigg]

Here's a stab:

Dim ctl As Control
For Each ctl In Me.Controls
ctl.Value = False
Next ctl

???
ken

[boblarson]

Originally Posted by BadScript

Many thanks, Excellent..
Is this possible for other controls as well? like clear all combo's and clear all textboxes or clear a whole form?
I have many controls in my unbound form and all I want is to clear my form with a button

Dim ctl As Control
   For Each ctl In Me.Controls
      Select Case ctl.ControlType
         Case acCheckBox
            ctl.Value = False
         Case acComboBox
            ctl.Value = Null
         Case acTextBox
            ctl.Value = ""
      End Select
Next ctl

[rainman89]

this thread is perfect. i said to myself this morning.. self.. wouldnt it be great if you had a select all option adn clear all option for the checkboxes?

and vualah?(sp i think its french or something) i found this thread.

[boblarson]

Originally Posted by rainman89

this thread is perfect. i said to myself this morning.. self.. wouldnt it be great if you had a select all option adn clear all option for the checkboxes?

and vualah?(sp i think its french or something) i found this thread.

Voila ...

[KenHigg]

And Bob likes to show off...

[BadScript]

Originally Posted by boblarson

Dim ctl As Control
   For Each ctl In Me.Controls
      Select Case ctl.ControlType
         Case acCheckBox
            ctl.Value = False
         Case acComboBox
            ctl.Value = Null
         Case acTextBox
            ctl.Value = ""
      End Select
Next ctl

Thanks, it all works except for the clear textboxes.. I get a debug error..

[boblarson]

Originally Posted by BadScript

Thanks, it all works except for the clear textboxes.. I get a debug error..

What's the text of the error?