Deselect a Group of Check Boxes

[klove1209]

Good afternoon,

I would like to know if anyone can direct me as to how I can write a VBA code to deselect about 26 check boxes, for all records.

I have been searching the internet, but I haven't came across anything.

Right now I have a command button on the form, that is able to deselect one checkbox for a single record. I don't want to have to hard code in all the checkboxes names into VBA.

Thanks

[Rabbit]

Dim Ctl As Control
For Each Ctl In Me.Controls
   If Ctl.Properties("ControlType") = acCheckBox Then Ctl = False
Next Ctl
 

[klove1209]

Thank you so much. Now the only problem is that it work for 1 out of 22 records. For each row (record), there are about 22 check boxes, so in actuality, I need to clear about 400 check boxes.

Dim Ctl As Control
For Each Ctl In Me.Controls
   If Ctl.Properties("ControlType") = acCheckBox Then Ctl = False
Next Ctl
 

[Rabbit]

For ease of implementation, put the code in the On Current event of the form. Change the form to continous form view. Then open the form. You can change it back after.

[klove1209]

Ok I did as you suggested. When the I switched it to form view, only the first row deselected. All the other rows remained the same.

For ease of implementation, put the code in the On Current event of the form. Change the form to continous form view. Then open the form. You can change it back after.

[klove1209]

I just tested using the move next record button, and once I did that, it deslected each row as it appeared. I guess I need to have a movenext function in there?

Ok I did as you suggested. When the I switched it to form view, only the first row deselected. All the other rows remained the same.

[Rabbit]

Are you sure you set the Default View to Continous Form?

[klove1209]

it was already set to that.

Are you sure you set the Default View to Continous Form?

[Rabbit]

Odd, it should work. I just tested it and it works. Not an exact replica of what you have but something similar.

Post your code along with the Event Statements.

[klove1209]

There aren't really any event statements. It just the deselect button that I am not using. All my records return true/false statements back to a table.

Here is the code:

Private Sub Form_Current()
Dim chk As CheckBox
Dim Ctl As Control

For Each Ctl In Me.Controls

If Ctl.Properties("ControlType") = acCheckBox Then Ctl = False

Next Ctl


End Sub

Odd, it should work. I just tested it and it works. Not an exact replica of what you have but something similar.

Post your code along with the Event Statements.

[Rabbit]

Try this:

Private Sub Form_Load()
 
Dim Ctl As Control
Dim i As Integer
 
For i = 1 to Me.RecordSet.Count
   For Each Ctl In Me.Controls
      If Ctl.Properties("ControlType") = acCheckBox Then Ctl = False
   Next Ctl
   DoCmd.GoToRecord ,, acNext
   i = i + 1
Next i
 
End Sub

[klove1209]

I am getting an error with the .Count propert. It says the object doesn't support that property.

Try this:

Private Sub Form_Load()
 
Dim Ctl As Control
Dim i As Integer
 
For i = 1 to Me.RecordSet.Count
   For Each Ctl In Me.Controls
      If Ctl.Properties("ControlType") = acCheckBox Then Ctl = False
   Next Ctl
   DoCmd.GoToRecord ,, acNext
   i = i + 1
Next i
 
End Sub

[Rabbit]

I am getting an error with the .Count propert. It says the object doesn't support that property.

Guess we'll have to use a clone:

Private Sub Form_Load()
 
Dim Ctl As Control
Dim i As Integer
Dim Rst As RecordSet
 
Set Rst = Me.RecordsetClone
For i = 1 to Rst.Count
   For Each Ctl In Me.Controls
      If Ctl.Properties("ControlType") = acCheckBox Then Ctl = False
   Next Ctl
   DoCmd.GoToRecord ,, acNext
   i = i + 1
Next i
 
End Sub

[klove1209]

I got it working. Instead of using the recordset.count, I used Me.controls.count!

I am getting an error with the .Count propert. It says the object doesn't support that property.

[klove1209]

The only problem with this, it that it is moving next about 10 records instead of stopping at the last checkbox.

I got it working. Instead of using the recordset.count, I used Me.controls.count!

[Rabbit]

The only problem with this, it that it is moving next about 10 records instead of stopping at the last checkbox.

Use the code from post 13 instead

[klove1209]

I tried using that also,
I got an error on the RecordsetClone.

Use the code from post 13 instead

[Rabbit]

Private Sub Form_Load()
 
Dim Ctl As Control
Dim i As Integer
Dim Rst As RecordSet
 
Set Rst = CurrentDb.OpenRecordset("[Table Name]")
For i = 1 to Rst.Count
   For Each Ctl In Me.Controls
      If Ctl.Properties("ControlType") = acCheckBox Then Ctl = False
   Next Ctl
   DoCmd.GoToRecord ,, acNext
   i = i + 1
Next i
 
End Sub

[Rabbit]

Ooops, my bad. I forgot it's not .Count, it's .RecordCount