كود لعمل سجل جديد وتحديث بيانات لنموذج اخر

[f16]

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

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

docmd. gotorecord, acNew

ونفس الشيئ مع الـ refresh 

docmd.refresh

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

ارجو اني وفقت في شرح ما اريده 

ولكم جزيل الشكر على مجهوداتكم اخوكم .

[kanory]

حبذا لو ادرجت مثالا ليتم التجربة عليه ..... على العموم أنظر هذا الكود ...

    DoCmd.OpenForm "ab", , , , , acHidden
    
    Call Forms("ab").bu100_Click
'نفترض أن النموذج الاول هو ab
'نفترض وجود زر في النموذج الاول لأدراج السجل والتحديث هو b001_Clik

 

[f16]

15 ساعات مضت, kanory said:

حبذا لو ادرجت مثالا ليتم التجربة عليه ..... على العموم أنظر هذا الكود ...

    DoCmd.OpenForm "ab", , , , , acHidden
    
    Call Forms("ab").bu100_Click
'نفترض أن النموذج الاول هو ab
'نفترض وجود زر في النموذج الاول لأدراج السجل والتحديث هو b001_Clik

 

ا/ kanory  سرني كثيرا رؤية ردك على سؤالي 

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

لك مني جزيل الشكر،،،،

[f16]

في ٢٤‏/١٠‏/٢٠١٨ at 17:49, kanory said:

حبذا لو ادرجت مثالا ليتم التجربة عليه ..... على العموم أنظر هذا الكود ...

 

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

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

DoCmd.GoToRecord , , acNewRec

ارجو ان تكون فكرتي وصلت إليك

 

مثال اوفيسنا حفظ نموذج اخر.rar

[kanory]

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

تفضل ملفك بعد التعديل ....

 

 

مثال اوفيسنا حفظ نموذج اخر.accdb

[f16]

13 ساعات مضت, kanory said:

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

تفضل ملفك بعد التعديل ....

 

 

 

 

اشكرك اخي kanory مره اخرى وسئل الله ان يجزيك خير على ما تقدمه من علم وانشاء الله سأعمل بنصيحتك . 

جمعة مباركة ...