اذهب الي المحتوي
أوفيسنا

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


hussein arby

الردود الموصى بها

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

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

لاعطائي سجل جديدpost-114286-0-53511800-1426623588_thumb.

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

frm_main.frm_sub.setfocus
DoCmd.GoToRecord , , acNewRec

بالتوفيق

رابط هذا التعليق
شارك

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

 

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

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

 

Forms!frm_main!form2.SetFocus

 
DoCmd.GoToRecord , , acNewRec
 
مع ملاحظة وضع علامة  (!) بدل من (.)
  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

 

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

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

اخ حسين

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

ولكن جرب

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

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

 

بالتوفيق

  • Like 2
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

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

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

Me.form2.Requery

بالتوفيق

رابط هذا التعليق
شارك

  • 1 year later...
في 3/6/2017 at 16:03, mohamed_abdo said:

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

hmd.rar

اخي الكريم

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

بالتوفيق

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information