ms-access - Access VBA : Editing a RecordSet in a continuous subform

Question

我正在尝试编写一个函数来循环遍历连续子表单中的记录，并清除每个记录的特定字段(Entity_Under_Consideration，这是由子表单上的组合框表示的查找字段)中的值。

以下内容无效。它也不会抛出任何错误。谁能看出我哪里出了问题吗？

Public Function clearEUCData(subform As Control)

    'take a clone of the subform's recordset
    Dim entityRecSet As Recordset
    Set entityRecSet = subform.Form.Recordset.Clone()

    'if there are any records in the subform...
    If entityRecSet.RecordCount > 0 Then

        'start with the first record
        entityRecSet.MoveFirst

        'iterate through each row, clearing the data in the EUC field
        Do Until entityRecSet.EOF

            With entityRecSet
                .Edit
                    Entity_Under_Consideration = 0
                .Update
            End With

        entityRecSet.MoveNext
        Loop

    End If

    'close and purge the cloned recordset
    entityRecSet.Close
    Set entityRecSet = Nothing

End Function

Answer 1

你必须更明确:

With entityRecSet
    .Edit
        .Fields("Entity_Under_Consideration").Value = 0
    .Update
End With