نقل البيانات من نموذج الي اخر

[النجاشي]

السلام عليكم ورحمه الله وبركاته

استاتذتي الكرام 

المطلوب عندما ادخل رقم العرض بالفاتوره يفتح لي نموذج ARD

فيه خيار  تحديد الكل فعندما اعمل تحديد للكل واضغط زر  ادراج كامل السجلات اريد ينقل لي كامل السجلات 

تحياتي اليكم 

ادراج الموشر عليه.rar

[slamco2000]

الملف لا يفتح ... به مشكلة

[النجاشي]

53 دقائق مضت, slamco2000 said:

الملف لا يفتح ... به مشكلة

انظر لهذا

 

12345.rar

تم تعديل فبراير 2, 2018 بواسطه ابو زاهر

[النجاشي]

للرفع

[slamco2000]

لا أعلم ما المشكلة لكن الملف يظر لي damage ولا يفتح من الملف المضغوط

تم تعديل فبراير 3, 2018 بواسطه slamco2000

[صالح حمادي]

السلام عليكم

تفضل أخي أبو زاهر استعمل هذا الكود و إن شاء الله يكون هو الحل.

Dim i As Integer
Dim rst As DAO.Recordset
Set rst = Me.RecordsetClone
rst.MoveLast: rst.MoveFirst
RC = rst.RecordCount
rst.MoveFirst
Forms![frmSales].SetFocus
Forms![frmSales]![SubSales].SetFocus
For i = 1 To RC
  Me.Refresh
  If rst!Xsave = True Then
    DoCmd.GoToRecord , , acNewRec
    Forms![frmSales]![SubSales]![Rajmsanf] = rst!Rajmsanf
    Forms![frmSales]![SubSales]![ID_Sanf] = rst!ID_Sanf
    Forms![frmSales]![SubSales]![Alkmiah] = rst!Alkmiah
    Forms![frmSales]![SubSales]![Price] = rst!Price
    Forms![frmSales]![SubSales]![mjmo] = rst!mjmo
    Forms![frmSales]![SubSales]![safi] = rst!safi
  End If
  rst.MoveNext
Next i
rst.Close: Set rst = Nothing

 

ادراج الموشر عليه.rar

[النجاشي]

9 ساعات مضت, صالح حمادي said:

السلام عليكم

تفضل أخي أبو زاهر استعمل هذا الكود و إن شاء الله يكون هو الحل.

Dim i As Integer
Dim rst As DAO.Recordset
Set rst = Me.RecordsetClone
rst.MoveLast: rst.MoveFirst
RC = rst.RecordCount
rst.MoveFirst
Forms![frmSales].SetFocus
Forms![frmSales]![SubSales].SetFocus
For i = 1 To RC
  Me.Refresh
  If rst!Xsave = True Then
    DoCmd.GoToRecord , , acNewRec
    Forms![frmSales]![SubSales]![Rajmsanf] = rst!Rajmsanf
    Forms![frmSales]![SubSales]![ID_Sanf] = rst!ID_Sanf
    Forms![frmSales]![SubSales]![Alkmiah] = rst!Alkmiah
    Forms![frmSales]![SubSales]![Price] = rst!Price
    Forms![frmSales]![SubSales]![mjmo] = rst!mjmo
    Forms![frmSales]![SubSales]![safi] = rst!safi
  End If
  rst.MoveNext
Next i
rst.Close: Set rst = Nothing

 

ادراج الموشر عليه.rar

وعليكم السلام 

تسلم يديك استاذي صالح حمادي نعم هو المطلوب 

الله يعطيك العافيه الف الف شكر اليك يالغالي

تحياتي اليك

[صالح حمادي]

8 دقائق مضت, ابو زاهر said:

وعليكم السلام 

تسلم يديك استاذي صالح حمادي نعم هو المطلوب 

الله يعطيك العافيه الف الف شكر اليك يالغالي

تحياتي اليك

العفو أخي