CheckBoxALL to Auto Check 52 other checkboxes Loop Question

[kcdoell]

I have a list of states on a form, in which the user can click on various states that are applicable to the form. There is a "ALL State" option (CheckBoxALL) in which if selected all of the state checkboxes will be checked. Below is the following code:



Private Sub CheckBoxALL_Click()



If CheckBoxAll = True Then

CheckBoxState01 = True
CheckBoxState02 = True
CheckBoxState03 = True
CheckBoxState04 = True
etc.....
CheckBoxState52 = True

Else

CheckBoxState01 = False
CheckBoxState02 = False
CheckBoxState03 = False
CheckBoxState04 = False
CheckBoxState05 = False
CheckBoxState06 = False
etc.........CheckBoxState52 = False

End If

End Sub

_______________________

My question is if there is a cleaner way to write this code than the way I wrote it since I am still in VBA learning mode?

I tried something like this but it keeps error out:

Private Sub CheckBoxALL_Click()

Dim CheckALL As Boolean

Set CheckALL = ActiveDocument.FormFields("CheckBoxALL").CheckBox. Value

If CheckALL("CheckBoxALL").CheckBox.Value = True Then

For i = 1 To 52
CheckALL("CheckBoxState0" & i).CheckBox.Value = True
Next i

Else

For i = 1 To 52
CheckALL("CheckBoxState0" & i).CheckBox.Value = False
Next i

End If
End Sub

_________________


My result so far has been compile errors and coding that does not work. Does anybody have any ideas??

Thanks,



Keith.

[FishVal]

Hi, Keith.

You may use the following code.

For i = 1 To 52
    Me.Controls("CheckBox" & Format(i, "00")).Value = True
Next i
 

Just out of curiosity. Does that mean you have a table with 52 Yes/No fields?

Regards,
Fish

[missinglinq]

Private Sub CheckBoxAll_AfterUpdate()
 
Dim ctl As Control
 
If Me.CheckBoxAll = -1 Then
 
 For Each ctl In Me.Controls
 
   If ctl.ControlType = acCheckBox Then
 
     ctl = -1
 
   End If
Next
 
Else
 
If Me.CheckBoxAll = -1 Then
 
 For Each ctl In Me.Controls
 
   If ctl.ControlType = acCheckBox Then
 
     ctl = 0
 
  End If
  Next
End If
End Sub

Linq ;0)>

[missinglinq]

Even better, Fish, when the controls are sequentially named! But the checkbox names are "CheckBoxState" & i so

Me.Controls("CheckBoxState" & Format(i, "00")).Value = True

Linq ;0)>

[FishVal]

Even better, Fish, when the controls are sequentially named! But the checkbox names are "CheckBoxState" & i so

Me.Controls("CheckBoxState" & Format(i, "00")).Value = True

Linq ;0)>

Private Sub CheckBoxAll_AfterUpdate()
 
    Dim ctl As Control
 
    With Me
        For Each ctl In .Controls
           If ctl.ControlType = acCheckBox Then ctl = .CheckBoxAll
        Next
    End With
 
    Set ctl = Nothing
 
End Sub
 

Eye for eye, Linq. LOL.

Best regards,
Fish

[kcdoell]

Thanks for all the input... I just go back out of a meeting....


This is a form with a section in it for people to pick (CheckBoxes) the applicable state(s). I failed to mention that it was a form created out of Word 2003. That seems to make a difference because it does not recognize the command "Controls" (VBA error message:"Method or data member not found"). Does that mean that it can not be done if this form was created in Word or I would have to use some other command.....

Thanks,

Keith.

[FishVal]

Ok, Keith.

Try the following code.

Private Sub CheckBoxAll_Click()
 
    Dim fldField As Field
 
    For Each fldField In ThisDocument.Fields
        If TypeName(fldField.OLEFormat.Object) = "CheckBox" Then _
            fldField.OLEFormat.Object.Value = ThisDocument.CheckBoxAll
    Next
 
    Set fldField = Nothing
 
End Sub
 

[kcdoell]

Hello:

I tried that and got the following error:

Run time 91 "Object Variable or with Block Variable not Set"

I don't really understand what the code is doing to interpret the error message. Any ideas?

Thanks,

Keith

[FishVal]

Well. You may send me it via email. I will PM you my email address.

[kcdoell]

Well. You may send me it via email. I will PM you my email address.

Fish did you get it?? I sent it to you yesterday.

Thank,

Keith.

[FishVal]

Fish did you get it?? I sent it to you yesterday.

Thank,

Keith.

Hello, Keith.

Sorry for delay. I've send you a working copy of your file. The problem wasn't in coding but in the file itself - it was stucked in design mode in a hopeless try to create a control. So I've just copied the table to an empty word document and added the code posted above. Looks like it is working.

Regards,
Fish

[kcdoell]

Thanks Fish for all your help. I thought something fishy was going on no pun intended.

Thanks again :-)

Keith.

[maria9cy]

I have a list of states on a form, in which the user can click on various states that are applicable to the form. There is a "ALL State" option (CheckBoxALL) in which if selected all of the state checkboxes will be checked. Below is the following code:



Private Sub CheckBoxALL_Click()



If CheckBoxAll = True Then

CheckBoxState01 = True
CheckBoxState02 = True
CheckBoxState03 = True
CheckBoxState04 = True
etc.....
CheckBoxState52 = True

Else

CheckBoxState01 = False
CheckBoxState02 = False
CheckBoxState03 = False
CheckBoxState04 = False
CheckBoxState05 = False
CheckBoxState06 = False
etc.........CheckBoxState52 = False

End If

End Sub

_______________________

My question is if there is a cleaner way to write this code than the way I wrote it since I am still in VBA learning mode?

I tried something like this but it keeps error out:

Private Sub CheckBoxALL_Click()

Dim CheckALL As Boolean

Set CheckALL = ActiveDocument.FormFields("CheckBoxALL").CheckBox. Value

If CheckALL("CheckBoxALL").CheckBox.Value = True Then

For i = 1 To 52
CheckALL("CheckBoxState0" & i).CheckBox.Value = True
Next i

Else

For i = 1 To 52
CheckALL("CheckBoxState0" & i).CheckBox.Value = False
Next i

End If
End Sub

_________________


My result so far has been compile errors and coding that does not work. Does anybody have any ideas??

Thanks,



Keith.

Hi Keith! Can I ask you something please?
Is the first code you suggested right??
Because I have only 5 checkboxes and it seems easyer to use it...

Thanks
maria

[missinglinq]

Yes, Maria! This will work fine:

Private Sub CheckBoxALL_Click()
 
If CheckBoxAll = True Then
 
CheckBox1 = True
CheckBox2 = True
CheckBox3 = True
CheckBox4 = True
CheckBox5 = True
 
Else
 
CheckBox1 = False
CheckBox2 = False
CheckBox3 = False
CheckBox4 = False
CheckBox5 = False
 
End If
 
End Sub
 

You just wouldn't want to have to do all this for 50+ checkboxes!


Welcome to TheScripts!

Linq ;0)>