تحديث بيانات جدول من نماذج مستمرة

يمكن استخدام هذا الحل ان كنت قد فهمت السؤال

db5.rar

احسنت

إذا أردت أن يضيف القيمة التي في RAS إلى القيمة التي في الجدول كيف يتم ذلك ؟

db5.rar

وجدت كود لعمل ذلك :

Dim rs
DoCmd.GoToRecord , , acFirst
For rs = 1 To Me.Form.Recordset.RecordCount
CurrentDb.Execute "UPDATE Cutomer SET Cutomer.ras = cutomer.ras + " & Me.ras & " where (((cutomer.cname)= '" & Me.CName & "' ));"
DoCmd.GoToRecord , , acNext
Next

هل يوجد حل آخر ؟