تكرار سجل مع السجلات الفرعية التابعة له

[shatat]

السلام عليكم

 

اريد تكرار سجل في نموذج مع السجل الفرعي التابع له في المثال التالي حيث قمت بالبحث ووجدت بعض الامثلة ولكنه لم تنجح معي ارجو مساعدتي في المثال المرفق ط

 

 

 

شاكر لكم حسن تعاونكم معي

 

 

 

 

PR.rar

[ابو جودي]

السلام عليكم ورحمة الله وبركاته
طيب معلش انا مش قادر افهم واستوعب حضرتك عاوز ايه بالظبط ممكن معلش اتاقل على حضرتك وتوضح لى اكتر طلب حضرتك ايه 

[shatat]

اريد عند الضغط على زر تكرار

ان يتم تكرار السجل الرئيسي مع السجلات الفرعية

 

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

[ابو جودي]

http://www.officena.net/ib/?showtopic=35398

[shatat]

قبل ان اكتب الموضوع بحثت في المنتدى عن مواضيع مشابهة وقمت بتطبيق نفس الموضوع هذا الا انه لم يعمل معي نفس الكود

[رمهان]

سؤال جميل !

لي عودة !

[shatat]

شكرا رمهان على ردك

ونحن في انتظار عودتك

[رمهان]

تفضل !

الصق الكود التالي في حدث عند النقر لزر امر

x = Me.CurrentRecord
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy
    DoCmd.RunCommand acCmdRecordsGoToNew
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdPaste
    DoCmd.GoToRecord , , acGoTo, x
Me.PayReqSub.SetFocus
    DoCmd.RunCommand acCmdSelectAllRecords
    DoCmd.RunCommand acCmdCopy
  Me.no.SetFocus
  DoCmd.RunCommand acCmdRecordsGoToLast
    Me.PayReqSub.SetFocus
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdPaste
  Me.no.SetFocus

بالتوفيق