Access VBA：連続サブフォームのレコードセットを編集する

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