I am trying to get a button to update the records in a subform via the data in a parent form field. The below code works but only on the first record of the subform and I need the code to update all the subform records. Any help on what I am missing will be greatly appreciated.
Dim rs As DAO.Recordset
Set rs = Me.[Tbl CheckExpenseType subform].Form.RecordsetClone
With rs
.MoveFirst
Do While Not .EOF
.Edit
[Tbl CheckExpenseType subform]!Number = [Number]
.Update
.MoveNext
Loop
End With
Set rs = Nothing