Zugriff VBA: Bearbeiten eines RecordSet in einem fortlaufenden Unterformular

Question

Ich versuche, eine Funktion zu schreiben, die Datensätze in einem fortlaufenden Teilformular durchlaufen und den Wert in einem bestimmten Feld (Entity_Under_Consideration, ein Lookup-Feld durch eine Combobox aktiviert) Unterformular) für jeden Datensatz.

Folgendes funktioniert nicht. Es wirft auch keine Fehler auf. Kann jemand sehen, wo ich falsch liege?

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

Sie müssen mehr explizit sein:

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