You have more than One problem, so let's go through them one at a time.
You use this.
This means that every time you open a Record you recalculate the values.Code:Private Sub Form_Current() Call CalcProduced Call CalcProduced1 Call CalcProduced2 End Sub
Why?