Trying to toggle Checkbox value

[FergalK]

Hi
I have a button which loops through the controls on my form and sets the Checkboxes to true.
I would like to modify this button so it serves as a toggle feature - ie; set all the Checkboxes = True if they are False, and set all the Checkboxes = False if they are True.

Private Sub CommandButton1_Click()
Dim oCtrl As Control
For Each oCtrl In Me.Controls
If TypeOf oCtrl Is msforms.CheckBox Then
oCtrl.Value = True
End If
Next
End Sub

I tried modifying the above to code to below but it's giving an error, seems like it doesn't like the "oCtrl.Value = False And" part...?

Private Sub CommandButton1_Click()
Dim oCtrl As Control
For Each oCtrl In Me.Controls
If oCtrl.Value = False And TypeOf oCtrl Is msforms.CheckBox Then
oCtrl.Value = True
End If
If oCtrl.Value = True And TypeOf oCtrl Is msforms.CheckBox Then
oCtrl.Value = False
End If
Next
End Sub


Appreciate any input!
Thanks
Fergal

[DBY]

Hi
Try the following code:

Please Login or Register  to view this content.

Seems to work on my test sheet.

DBY

[FergalK]

hi DBY
thanks for the code but I tried that but it still fails with the same error "Object doesn't support this property or method" error 438

[DBY]

Sorry I can't reproduce that error, the code works fine on my test sheet. Perhaps another forum member could shed some light on this error. A Google search reveals a number of possible causes. I have created a new workbook and added a User Form with a text box , option box , two check boxes and a command button and run the code from the command button click event and it toggles the check boxes checked/unchecked. Try this to see if it works on a new workbook, it may help to eliminate an application fault or an error within the particular workbook.

DBY

[FergalK]

found a way around, which seems odd but it worked:

Private Sub CommandButton1_Click()
'This code selects/de-selects all checkboxes
Dim oCtrl As Control
For Each oCtrl In Me.Controls
If TypeOf oCtrl Is msforms.CheckBox And oCtrl.ForeColor <> RGB(230, 230, 230) Then
If oCtrl.Value = False Then
oCtrl.Value = True
Else: oCtrl.Value = False
End If
End If
Next
End Sub

[DBY]

It works also on my test form but the problem is it doesn't just apply to the Check Boxes it also toggles the Option box. But if it does what you need all is well.