نسخ الحقول في النماذج الفرعية

[صابر سليمان]

السلام عليكم 
 بعد إذن السادة الأفاضل 
أريد مساعدتي في هذا السؤال 

لقد بحثت كثيرا في المنتدي الرائع أوفيسنا لايجاد حل  لسؤالي لكني لم أوفق ووجدت الأكواد لكنها لم تعمل معي 

ارجو مساعدتي 

السؤال موضح في المرفق 

نسخ الحقول في النماذج.rar

[kanory]

ضع هذا الكود تحت زر النسخ ....

DoCmd.RunSQL "UPDATE safy_madfoa INNER JOIN tasweat ON safy_madfoa.emp_code = tasweat.emp_code1 SET tasweat.madfoa_kabl_tasweat = [safy_madfoa].[safy_madfoa], tasweat.mn1 = [forms]![quary]![mm], tasweat.yr1 = [Forms]![quary]![nn];"

 

[صابر سليمان]

شكرا لحضرتك  استاذي الكريم 
لقد تم نسخ الكود والكود يعمل بكفاءة 

لكن  يافندم الكود بيقوم بنسخ جميع القيم الموجود في الجدول الأول متجاهلا اختيار السنة والشهر 

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

نسخ حقل في 1النماذج.rar

[kanory]

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

[forms]![quary]![mm], tasweat.yr1 = [Forms]![quary]![nn];"

 

[صابر سليمان]

تمام ... ربنا يجزيك خير استاذي 

أنا أرسلت لحضرتك الملف وبه الكود اللي حضرتك تفضلت وأرستله .. ياريت حضرتك تفتحه علي الكمبيوتر 
في انتظار رد حضرتك ... 
وأنا هاقوم بالتجربة مرة أخري 

[kanory]

هل هناك علاقة بين الجدولين ..... لأن رقم الموظف مكرر في تلك الجداول ؟؟؟؟؟؟

 

[صابر سليمان]

اعتبر حضرتك ان الجدولين جدول واحد وعايز أعمل نسخ للعمود ( الصافي المدفوع ) في العمود ( الصافي المستحق قبل التسويات )بناءا علي السنة والشهر 
 

[kanory]

اذن . لاحظ ان السجلات في الجدول المنسوخ والمنسوخ اليه هناك سجلات غير فريدة اي متكررة من حيث العام والشهر لموظف واحد بنفس الكود . الاختلاف فقط في المبلغ . هل هذا طبيعي في برنامجك 

[صابر سليمان]

نعم طبيعي 

[kanory]

جرب هذا الكود .....

DoCmd.RunSQL "UPDATE DISTINCTROW tasweat LEFT JOIN safy_madfoa ON tasweat.emp_code1 = safy_madfoa.emp_code SET tasweat.madfoa_kabl_tasweat = [safy_madfoa].[safy_madfoa] " & vbCrLf & _
"WHERE (((tasweat.mn1)=[forms]![quary]![mm]) AND ((tasweat.yr1)=[forms]![quary]![nn]));"

 

[صابر سليمان]

الكود يعمل بمنتهي الكفاءة 
شكرا جزيلا استاذي @kanory

ربنا يجزيك كل خير 

لكن هو فيه مشكلة صغيرة 
بعد الرسالة اللصق اللي بتظهر وبالضغط علي موافق لا يظهر النسخ الا بعد غلق النموذج وفتحه مرة أخري او الدخول داخل النموذج 

نسخ حقل في النماذج - Copy.rar

تم تعديل نوفمبر 11, 2018 بواسطه صابر سليمان

[kanory]

استبدل الكود بهذا .....

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE DISTINCTROW tasweat LEFT JOIN safy_madfoa ON tasweat.emp_code1 = safy_madfoa.emp_code SET tasweat.madfoa_kabl_tasweat = [safy_madfoa].[safy_madfoa] " & vbCrLf & _
"WHERE (((tasweat.mn1)=[forms]![quary]![mm]) AND ((tasweat.yr1)=[forms]![quary]![nn]));"
DoCmd.SetWarnings True
Me.tasweat.Requery

 

[صابر سليمان]

استاذنا 
انا لسه ملاحظ شئ دلوقتي 
عند إختيار السنة 2018 والشهر 1 بيقوم بنسخ قيم شهر 1 مظبوط مفيش فيها اي مشاكل 
لكت لما أختار شهر 2 بينسخ نفس القيم اللي موجودة في  شهر 1 وليست الموجوده في شهر 2 

نسخ حقل في النماذج - Copy (2).rar

[kanory]

تفضل جرب هذا  .....

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE DISTINCTROW kan2 LEFT JOIN kan1 ON kan2.emp_code1 = kan1.emp_code SET kan2.madfoa_kabl_tasweat = [kan1].[safy_madfoa] " & " WHERE (((kan2.mn1)=[forms]![quary]![mm]) AND ((kan2.yr1)=[forms]![quary]![nn]));"
DoCmd.SetWarnings True
Me.tasweat.Requery

 

[صابر سليمان]

أنا اسف جدا يااستاذنا @kanory

تعبت حضرتك معايا جدا 
بس المصطلحين 

kan1 , kan2 ؟؟؟؟؟؟؟
 مش موجودين في قاعدة البيانات بتاعتي لكني أستبدلتهم بالمصطلحات اللي عندي .... وبرضه الكود بينسخ قيم شهر 1 فقط 

نسخ حقل في النماذج - Copy (4).rar

تم تعديل نوفمبر 11, 2018 بواسطه صابر سليمان

[kanory]

لا تستبدل شيئ ... انسخ والصق فقط

[صابر سليمان]

ظهرت لي هذه الرسالة 

[صابر سليمان]

مازلت منتظر الاجابة 

تم تعديل نوفمبر 12, 2018 بواسطه صابر سليمان

[kanory]

تفضل جرب هذا  .....

 

نسخ حقل في 1النماذج.rar

[صابر سليمان]

ممتاز

أنا عاجز عن الشكر استاذي الكريم @kanory

وأسف جدا اني تعبت حضرتك معايا 

[kanory]

بارك الله فيك .... بالعكس نحن في الخدمة ...... لم نتواجد هنا الا للاستفاده والافادة .... 

[صابر سليمان]

معذرة استاذي 
الكود لا يعمل مع الاستعلامات التي لا يمكن التعديل فيها ( للقراءة فقط )

 في برنامجي النموذج الفرعي  الاول عبارة عن استعلام ( للقراءة فقط ) عند اللصق في النموذج الفرعي الثاني تظهر رسالة  تفيد بأنه لابد أن يكون الجدول قابل للتحديث وليس ( للقراءة فقط )

 

[صابر سليمان]

بعد اذن  حضرتك استاذ @kanory
احنا ممكن نحل المشكلة بعمل 2 زرار نسخ ولصق علي اعتبار ان ركزنا علي الحقل المطلوب نسخه و ضغطنا كليك يمين بتظهر القائمة اللي فيها النسخ وكذلك اللصق
عايز احول هذه العمليه الي زرارين نسخ ولصق كما هو موضح في المثال الاتي  

كود النسخ واللصق.rar

[kanory]

[صابر سليمان]

لا يافندم 
النموذج الفرعي safy_madfoa اللي علي اليمين هو عبارة عن استعلام ( للقراءة فقط ) والنموذج الفرعي tasweat جدول عادي يمكن التعديل والاضافة والحذف والنسخ 
المشكلة في النموذج الفرعي الأول المراد النسخ منه وليس النموذج الفرعي الثاتي المراد اللصق فيه