Botton that checks all boxes

[sobrien1234]

I have a form with about 10 check boxes on it that are ticked when answering the questions. I want a button that someone can press that checks all the boxes at once - i.e. a "yes to all" button. I also want one that clears them all as well.

Can anyone suggest how to do this?

Thanks

 

[dmt32]

Hi
Assuming you mean a Userform?

try

Private Sub CommandButton1_Click()
    AllCheckBoxes True
End Sub


Private Sub CommandButton2_Click()
    AllCheckBoxes False
End Sub


Sub AllCheckBoxes(ByVal State As Boolean)
Dim ctrl As Control
For Each ctrl In Me.Controls
    If TypeName(ctrl) = "CheckBox" Then ctrl.Value = State
Next
End Sub

Dave

 

[sobrien1234]

Hi
Assuming you mean a Userform?

try

Private Sub CommandButton1_Click()
    AllCheckBoxes True
End Sub


Private Sub CommandButton2_Click()
    AllCheckBoxes False
End Sub


Sub AllCheckBoxes(ByVal State As Boolean)
Dim ctrl As Control
For Each ctrl In Me.Controls
    If TypeName(ctrl) = "CheckBox" Then ctrl.Value = State
Next
End Sub

Dave

Doesn't appear to work. They are yes/no boxes that look like check boxes - would that affect it?

 

[dmt32]

Doesn't appear to work. They are yes/no boxes that look like check boxes - would that affect it?

Solution provided should work for CheckBoxes on a UserForm - If you have something different to this then please explain further.


Dave

 

[sobrien1234]

Doesn't appear to work. They are yes/no boxes that look like check boxes - would that affect it?

Still not working. Yes it is a userform and the buttons would be 35 and 36. The button is called Command35 but I changed the name to Command35 and still didn't work. No error message when I press it either. Just blinks then nothing happens.

 

[dmt32]

can you place copy of your workbook in a dropbox?

Dave

 

[sobrien1234]

can you place copy of your workbook in a dropbox?

Dave

sure - what's your email? It's on the form called "Content Review"

 

[dmt32]

just provide link to dropbox here

Dave

 

[sobrien1234]

just provide link to dropbox here

Dave

here it is

https://www.dropbox.com/sh/wok023df40dmd3b/AADvAz1eegJn9jODdTZIihAKa?dl=0

 

[dmt32]

Whoops, I should have looked at your post more closely, you are using Access –suggested solution was intended for Excel. Ever so sorry about that.
I don’t have Access on my system & its been about 15 years since I have done anything using it.

You can try replacing procedure with following updated version

 Sub AllCheckBoxes(ByVal State As Boolean)    
    Dim ctrl As Control
    For Each ctrl In Me.Controls
        If ctrl.ControlType = acCheckBox Then ctrl.Value = State
    Next ctrl
End Sub

This is very much a guess – if does not work hopefully, another here can step in & resolve for you

So sorry.

Dave