how to update a recordset in a subform using vb (I am getting error #3426) in Access 2007

I am trying to update a control in a subform. Actually I am calculating the number of months. here is the code: (开发者_运维技巧which doesn't work!)

 While (Not Me.Form.Recordset.EOF)
months = Round((Me.End - Me.Start) / 30, 0)
Form_FinanceSubform.[number of months] = 0
Me.[number of months] = months
Me.Form.Recordset.MoveNext
Wend

the error i get is: "this action was cancelled by an associated object" on the line Me.Form.Recordset.MoveNext

could someone please help me out here?? thanks!

Just put this part of your code in the form's BeforeUpdate event:

months = Round((Me.End - Me.Start) / 30, 0)
Form_FinanceSubform.[number of months] = 0
Me.[number of months] = months

I do think you could shorten your code to this:

Me.[number of months] = Round((Me.End - Me.Start) / 30, 0)