اضافة جديد في نموذج فرعي من خلال زر امر في نموذج رئيسي

[hussein arby]

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

عندي نموذج رئيسي به نموذج فرعي لاضافة اصناف مشتراه  النموذج الرئيسي به زر امر لعمل اضافه  اريد عند الضغط علي زر الامر اضافه يضف البيانات في النموذج الفرعي 

لاعطائي سجل جديد

[أبو عبدالله الحلوانى]

وعليكم السلام ورحمة الله وبركاته

لم أفهم المقصود من اضافة البيانات هل اضافة البيانات من النموذج الفرعى الى جدول وان كان الامر كذلك مالعلة من عدم ربط النموذج الفرعى بالجدول مباشرة

وهل تقصد من انتقال الى جديد افراغ محتويات النموذج الفرعى 

[سعيد صواب]

.وضعت رد بالخطاء ...

 

اعتذر

[hussein arby]

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

[رمهان]

لنفترض ان اسم النموذج الرئيسي frm_main  والنموذج الفرعي  frm_sub

frm_main.frm_sub.setfocus
DoCmd.GoToRecord , , acNewRec

بالتوفيق

[hussein arby]

اخي  الفاضل  رمهان غلبتك معي الكود لا يعمل

اليك مرفق

tast22.rar

[الحلبي]

الاخوة الافاضل 
كما اشار الاخ / رمهان 

 

النموذج الفرعي اسمه : FORM2

 
لذلك يلزم  تعديل الكود الي

 

Forms!frm_main!form2.SetFocus

 

DoCmd.GoToRecord , , acNewRec

 

مع ملاحظة وضع علامة  (!) بدل من (.)

[hussein arby]

شكرا علي مرورك اخي حلبي  لاكن طبقت ما قمت به بتعدل  ولا كن لم يفلح الامر

تم تعديل مارس 18, 2015 بواسطه حسين العربي

[أبو عبدالله الحلوانى]

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

1- خذ نسخة من الجدول المربوط به النموذج الفرعى وغير اسمه أو ميزه بسمةمثلا ليكن لدينا tblSub  و  tblSub1

2- أفرغ محتويات الجدول الثانى واجعله مصدر لسجلات النموذج الفرعى

3- انشأ استعلام اضافة من الجدول الثانى tblSub1 الى tblSub 

4- انشأ استعلام حذف لبيانات الجدول الثانى 

5- وأخيرا ضع هذا الكود لزر أمر جديد فى الفورم الرئيسي

Docmd.openquery "اسم استعلام الاضافة من الخطوة 3"

Docmd.openquery "اسم استعلام الحذف من الخطوة 4"

 

انتهى اﻷمر أرجو موافاتى بالنتيجة مع تمنياتى بالتوفيق

[hussein arby]

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

[رمهان]

اخ حسين

لا اعلم اين مشكلتك فما قام به الأخ حلبي لما طلبت بالتمام

ولكن جرب

Private Sub أمر4_Click()
Me.form2.SetFocus
DoCmd.GoToRecord , , acNewRec
End Sub

طبعا طبقه على المثال المرفق بالمشاركة 6

 

بالتوفيق

[hussein arby]

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

[رمهان]

اوك ! فهمنا نوعا ما !

وجدتك واضع الخاصية ادخال بيانات للنموذج = نعم

لذلك جرب الكود التالي وعلى المثال بالمشاركة رقم 6

Me.form2.Requery

بالتوفيق

[hussein arby]

الله يفتح عليك اخي رمهان ظبط معي الكود هذا ما اريده بالظبط جزاك الله خيرا  ومعلش غلبتك معي 

[hussein arby]

اخي رمهان اريدك انت تلقي نظره علي هذه المشاركه

http://www.officena.net/ib/index.php?s=d0b9e6a34de81f5093a0f608ddf9a070&showtopic=59905

[mohamed_abdo]

سلام اخواني عندي هذا المثال  عند اضافة add لم تظهر لي كل اشهر في نموذج الفرعي. اريد عند الاضافة تضهر لي كل الاشهر اتوماتكيا

hmd.rar

[رمهان]

في 3/6/2017 at 16:03, mohamed_abdo said:

سلام اخواني عندي هذا المثال  عند اضافة add لم تظهر لي كل اشهر في نموذج الفرعي. اريد عند الاضافة تضهر لي كل الاشهر اتوماتكيا

hmd.rar

اخي الكريم

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

بالتوفيق

[mohamed_abdo]

شكرا أخي كريم