السلام عليكم هذا الكود المستعمل: On Error Resume Next Dim Rs As DAO.Recordset Set Rs = Forms!frm_ajrd!SubSales.Form.RecordsetClone Dim Rc As Integer, x As Integer x = 0 Rc = Rs.RecordCount If Rc > 0 Then Rs.MoveFirst Do Until Rs.EOF If Rs!Rajmsanf = Rajmsanf Then Rs.Edit Rs!Alkmiah = Rs!Alkmiah + Alkmiah Rs.Update Rajmsanf = Null Alkmiah = Null Exit Sub End If Rs.MoveNext Loop End If Rs.AddNew Rs!Rajmsanf = Rajmsanf Rs!Alkmia