How to notify when a checkbox is checked - ms-access

Question

Change on checkbox is not recognized when the check is performed by custom function.
We have form where checkboxes can be clicked. In this case the record will be added to a list, which will be updated with a save function. And there is mentioned function to check all check boxes, but this does not behave like when i click an individual checkbox.
code "Select all"
Private Sub Befehl83_Click()
With Me.RecordsetClone
.MoveFirst
Do Until .EOF
.Edit
!visited = True
.update
.MoveNext
Loop
End With
End Sub
clicked on checkbox
Private Sub chkVisited_Click()
If Not visitedList.Contains(Me.Form.Recordset.Fields("trainingMeasureID").Value) Then
visitedList.Add Me.Form.Recordset.Fields("trainingMeasureID").Value
Else
visitedList.Remove Me.Form.Recordset.Fields("trainingMeasureID").Value
End If
End Sub
Currently the state of checkboxes is not saved when used the select-all function. Only when a checkbox is selected individually.
It should save correctly in both cases.

Answer 1

Here's a not so ideal solution:
Private Sub Befehl83_Click()
With Me.Recordset
.MoveFirst
Do Until .EOF
.Edit
.Fields("visited") = True
.Update
Call chkVisited_Click()
.MoveNext
Loop
End With
End Sub
This will actively update the record set, you'll actually see the active record moving in the form.
Another solution would be to rebuild your code and do your updates directly to the underlying data source based on your form's recordset. Then update your list accordingly.
According to the docs, RecordsetClone is a read-only copy of the form's recordset. https://learn.microsoft.com/en-us/office/vba/api/access.form.recordsetclone

Answer 2

Use the AfterUpdate event:
Private Sub Befehl83_Click()
With Me.RecordsetClone
.MoveFirst
Do Until .EOF
If !visited.Value = False Then
.Edit
!visited.Value = True
.update
End If
.MoveNext
Loop
End With
End Sub