选中复选框时如何通知

Question

通过自定义函数执行检查时，无法识别复选框的更改。

我们有可以点击复选框的表单。在这种情况下，记录将被添加到列表中，该列表将使用保存功能进行更新。并且提到了检查所有复选框的功能，但这不像我单击单个复选框时那样。

代码“全选”

Private Sub Befehl83_Click()
    With Me.RecordsetClone
        .MoveFirst
        Do Until .EOF
            .Edit
            !visited = True
            .update
            .MoveNext
        Loop
    End With
End Sub

点击复选框

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

目前复选框的状态在使用全选功能时不会被保存。仅当单独选择复选框时。

这两种情况下都应该正确保存。

Answer 1

这是一个不太理想的解决方案：

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

这将主动更新记录集，您实际上会看到活动记录在表单中移动。

另一种解决方案是重建代码并根据表单的记录集直接对基础数据源进行更新。然后相应地更新您的列表。

根据文档，RecordsetClone 是表单记录集的只读副本。 https://docs.microsoft.com/en-us/office/vba/api/access.form.recordsetclone

Answer 2

使用 AfterUpdate 事件：

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