عند نقل بيانات من نموذج (رئيسى مرتبط مع فرعى) الى جدولين مرتبطين أيضا ب باستخدام ID
تم نقل البيانات بالفعل ولكن النموذج الفرعى عندما يحتوى على اكثر من سجل ينقل فقط السجل الأول ويكرره
وهذا هو الكود
On Error Resume Next
If Me.mz = False Then
Me.mz.Value = 1
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim i
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("head")
rst.AddNew
rst("ID").Value = Nz(DMax("ID", "head")) + 1
rst("التاريخ").Value = Me![التاريخ]
rst("رقم الاذن").Value = "SYS" & Me![رقم الاذن]
rst("مميز الحركة").Value = Me![مميز الحركة]
rst("كود نوع الحركة").Value = Me![كود نوع الحركة]
rst("كود المخزن").Value = Me![الى مخزن]
rst("Descreption").Value = "قيد اضافة مخزنى لاذن رقم" & Me![رقم الاذن]
rst.Update
rst.Close
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("details")
rst.AddNew
For i = 1 To Me![tttt]
rst.AddNew
rst("ID").Value = Nz(DMax("ID", "head"))
rst("كود الصنف").Value = Me![d_s12]![كود الصنف]
rst("الوارد بالكرتونة").Value = Me![d_s12]![المنصرف بالكرتونة]
rst("الوارد الفرعى").Value = Me![d_s12]![المنصرف الفرعى]
DoCmd.GoToRecord , , acNewRec
rst.Update
Next
MsgBox " تم التحويل بين المخازن بنجاح ", vbInformation, "رسالة"
rst.Close
Set rst = Nothing
End If
abdel.rar
