subform data update via button

[ShostyFan]

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

[ItsMe]

Your subform container is named tblcheckexpensetype.....?

[ShostyFan]

yes that is the correct name.

[ItsMe]

Just after "With rs" place


dim intCount as integer
intcount = .recordcount

msgbox "There are only " & intcount & " records in the recordset clone."

[ShostyFan]

Thanks for the response.
The code you added returns the correct number of records.
I still have the problem that only the first record updates to the new value. It looks like the below line of code works but it is not looping in the "do while"
[Tbl CheckExpenseType subform]!Number = [Number]

[ItsMe]

That was the only thing that was suspect. You mentioned the first record was getting updated so thought I would check that first.

!Number = Me.Number

This will update the field named "Number" that resides within the recordset using the value that is present in the Main form's "Current" record.

[ShostyFan]

Perfect.
Thanks!

[ItsMe]

No problem. You don't have to use With and End With.

For instance, without the with thingy.....

rst![FieldName] = strFieldValue

strFieldValue = rst![FieldName]

and

rst.Update

rst.MoveNext

etc


Might help you keep track of where the recordset is. Then, after you get tired of typing the recordset name over and over, go back to With