how to coding the checkbox in Continuous Form

[uoghk]

I create a Continuous Form as below

When form open, it shows records, chkAll and chkBill are clear.
Whenever i click anyone of the chkBill, it makes all chkBill to on or off.
But the xPayAmt does not set to BalAmt accordingly, it always 0.
I want the xPayAmt set to BalAmt when its corresponding chkBill is on and xPayAmt set to 0 when chkBill is off.


Also if chkAll is on, all chkBill is on and all xPayAmt set to BalAmt.
How do I code this case?
Thanks.

[Gicu]

Few things to consider:

-to make the chkBill work as you want (for individual records) it needs to be bound to a Yes\No fields in the form's recordsource; unbound controls in continuous forms will have the same value for all records.

-once you bind the that check box to a field you can start working on your functionality; you should use the Current event of the form to load the proper value for the xPayAmt based on the value of the checkbox (you can do that by simply calling the checkbox AfterUpdate event you currently have:

Call chkBill_AfterUpdate

-to make the chkAll update all the individual chkBill in each record you can use the form's recordsetclone to loop through all records in the AfterUpdate event of the chkAll checkbox:

Private Sub chkAll_AfterUpdate()
Dim rs as DAO.Recordset

Set rs=Me.RecordsetClone
If rs.recordcount=0 then Exit sub

Do Until rs.EOF
    rs.Edit
    rs("YourChkBillField")=Me.chkAll 'note you need to use the field not the chkBill control bound to it
    rs.Update
rs.MoveNext
Loop
'Refresh the form
Me.Refresh
End Sub

For future post please consider copying and pasting the actual code (using the code tags) in the forum instead of screen shots of it; it makes it easier for people helping you to edit it instead of having to type it all over again.

Cheers,

[uoghk]

Thanks Gicu.

[uoghk]

After first click the chkAll checkbox to run the event chkAll_AfterUpdate(), it works and set all individual checkboxes to ON.
But when I click the chkAll checkbox again, it cannot set all individual checkboxes to OFF.
I debug to see that the rs.EOF is true, coding inside the DO LOOP have not been executed.
I try adding rs.Close and set rs to nothing at the end of DO LOOP, but it fails.
How can I fix it?
Thanks

[Gicu]

Just reset the cursor position:

Private Sub chkAll_AfterUpdate()
Dim rs as DAO.Recordset


Set rs=Me.RecordsetClone
If rs.recordcount=0 then Exit sub
rs.MoveFirst  'reset to first record
Do Until rs.EOF
    rs.Edit
    rs("YourChkBillField")=Me.chkAll 'note you need to use the field not the chkBill control bound to it
    rs.Update
rs.MoveNext
Loop
rs.Close
Set rs=Nothing
'Refresh the form
Me.Refresh
End Sub

Cheers,

[uoghk]

Thanks Vlad Cucinschi.

[Gicu]

You're welcome!
Cheers,