:: عليكم السلام اخي الكريم صـــــــالـح .... وشكرا لك لما تفضلت به.
:: بعد تعديل الكود اصبح كالتالي :
Dim i As Integer
For i = 1 To Me.emp_No
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT into tbl_employee(co_id, emp_no, cost) VALUES (" & Me.Frm_Employee.Form![co_id] & "," & (Me.Frm_Employee.Form![emp_No]) + 1 & "," & Me.Frm_Employee.Form![cost] & ")"
DoCmd.SetWarnings True
Next i
Me.Refresh
:: لكن المشكلة هي في emp_no في السجل الثاني فقط يزداد رقم واحد ويتكرر في بقية السحلات ؟! المطلوب لكل سجل يزيد رقم واحد ...
MultiDubl_1.rar