مشكله فى الكود لنسخ قيمه من الجدول الرئيسي الي الفرعي

[ahmedabuzena]

السلام عليكم ورحمة الله وبركاته ارجو مساعدتي فى تصحيح الكود لنسخ قيمه من الجدول الرئيسي الي الفرعي 

بالضغط على update

يتم نسخ القيمه فى الجدول الفرعي  

فى حقل discount napsa  

ويتم التطبيق فقط علي التاريخ المراد

مرفق مثال لشرح ما اريد وجزاكم الله خيرا

 

napsa.mdb

[husamwahab]

عليكم السلام

تفضل التعديل ارجو ان يكون طلبك 

napsa-1.rar

[د.كاف يار]

2 ساعات مضت, ahmedabuzena said:

السلام عليكم ورحمة الله وبركاته ارجو مساعدتي فى تصحيح الكود لنسخ قيمه من الجدول الرئيسي الي الفرعي 

بالضغط على update

يتم نسخ القيمه فى الجدول الفرعي  

فى حقل discount napsa  

ويتم التطبيق فقط علي التاريخ المراد

مرفق مثال لشرح ما اريد وجزاكم الله خيرا

 

napsa.mdb 928 kB · 3 downloads

طريقة اخرى بإستخدام الحلقة التكرارية داخل النموذج الفرعي

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim LineNumber As Integer
LineNumber = 0
Set db = CurrentDb
Set rs = [Forms]![date_napsa]![WORKERS_DETAILS Subform].Form.Recordset
rs.MoveFirst
Do Until rs.EOF
[Forms]![date_napsa]![WORKERS_DETAILS Subform]![discount_napsa] = [discount_napsa_main]
rs.MoveNext
Loop

 

napsa.mdb napsa.zip

[ahmedabuzena]

بارك الله فيكم جميعا اشكركم