زر نسخ سجلات النموذج الفرعي

[محمدنجار]

الاخوه الاعزاء كل عام وانت بخير ....وسلمت ايديكم على ((تكبيرات العيد))

هل بالامكان عمل زر لنسخ  او duplicate سحلات النموذج الفرعي .ليتم لصقها ثانية في سجلات جديدة .

مع شكري وتقديري.

 

نسخ مجموعة سجلات.rar

[ابوخليل]

تفضل

ضع المؤشر  داخل السجل الذي تريد تكراره  ثم انقر الزر

نسخ مجموعة سجلات2.rar

[محمدنجار]

43 دقائق مضت, ابوخليل said:

تفضل

ضع المؤشر  داخل السجل الذي تريد تكراره  ثم انقر الزر

نسخ مجموعة سجلات2.rar

مرحبا استاذي العزيز ابو خليل حفظك الله

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

حيث انه يمكنني نسخها بواسطة (Ctrl+C) عند تضليلها من محدد السجلات ,  ومن ثم  لصقها مع عميل جديد . لكن اريد ان امكن ان تتم بواسطة ضغطة زر .

مع شكري لحضرتك .

 

[القعر]

‎أخي الكريم / بحثت وجدت أكواد نسخ  حبيت أنقلها لعلها تكون المطلوبة لبرنامجك حاولت أوظفها لتلبي طلبك لا أعرف . أترك الموضوع لإساتذة المنتدى ليفيدونا بارك الله فيهم وجزاهم الله الف خير 
******
‎زر النسخ للنموذج الرئيسي ضع الكود التالي
‎كود:
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy

‎وولصق بيانات النموذج الرئيسي استخدم الكود
‎كود:
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdPaste

‎اما زر نسخ بيانات النموذج الفرعي فاستخدم هذا الكود
‎كود:
Me![ChildSubform].form.Setfocus
with [ChildSubform].form
    DoCmd.RunCommand acCmdSelectAllRecords
    DoCmd.RunCommand acCmdCopy
End With

‎اما كود اللصق فهو
‎كود:
Me![ChildSubform].form.Setfocus
with [ChildSubform].form
DoCmd.GoToRecord , , acNewRec
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdPaste
End with

‎ملاحظة استبدل الكلمة ChildSubform باسم النموذج الفرعي

‎أو الكود التالي لا أعرف أيهما أفضل وعملي الكود السابق أم هذا

ABB"
DoCmd.RunCommand acCmdSelectAllRecords
    DoCmd.RunCommand acCmdCopy  
‎وكود اللصق كذلك 
‎كود PHP:
DoCmd.GoToControl "ABB"
DoCmd.GoToRecord , , acNewRec
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdPaste  

[محمدنجار]

4 ساعات مضت, القعر said:

‎أو الكود التالي لا أعرف أيهما أفضل وعملي الكود السابق أم هذا

 
DoCmd.RunCommand acCmdSelectAllRecords
    DoCmd.RunCommand acCmdCopy  
‎وكود اللصق كذلك 
‎كود PHP:
 
DoCmd.GoToRecord , , acNewRec
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdPaste  

السلام عليكم اخي الكريم

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