كيفية البحث في استعلامين دفعة واحدة

اخي العزيز، محمد فؤاد،،

الخطأ في جملة ادخال السجلات واضح وهو ان الحقول المراد الادخال اليها هي 2 بينما الحقول التي تم وضعها كمصدر للبيانات هي 1 فقط،

هنا يجب ان تكتب:

DoCmd.RunSQL "insert into [Tbl_2] (id,name) values ( Forms![form1]![Q_1 subform]![id],Forms![form1]![Q_1 subform]![name])"

اي تاخذ القيمة من حقلين وتدخلها في حقلين ايضا،، اذ ان جملة INSERT حسب خبرتي المتواضعة لا تقبل الادخال الا اذا تك تحديد عدد الحقول من المصدر الى الهدف،، من خلال * او من خلال تسمية الحقول واحدا واحدا داخل INTO و Values

وها هو المرفق،، لكن لي ملاحظة،، البحث لا يعمل.. ؟؟ لماذا؟؟

ساحاول التاكد....من ذلك ،،،

Search.rar

اقتباس

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

اقتباس

وها هو المرفق،، لكن لي ملاحظة،، البحث لا يعمل.. ؟؟ لماذا؟؟

ساحاول التاكد....من ذلك ،،،

أولاً بخصوص جملة Insert فالحمد لله ادت الغرض

ثانياً بخصوص

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

السلام عليكم

اقتباس

البحث لا يعمل لان النموذج يحتوي علي عدد 2 نموذج فرعي

البحث الأن أصيح يعمل

EKSEER

Ek_Search.rar

أخي الغالي أكسير

بارك الله فيك

أخي الغالي همام شكراً

شكراً لكم جميعا علي المساعدة

اخي الغالي اكسير،، كل الشكر على التعديل،،

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

لكن ساحاول العمل على هذه المشكلة..

مرة اخرى شكرا لك اخ اكسير،،

واسف على التاخير اخي محمد..

همام

أخي الغالي همام

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

فعلاً انت محق بنسبة 300% في هذه الجزئية وبالطبع انا حاولت مع الاخ Refresh والاخت Requry لاظهار نتيجة الاستعلام مباشرة بالنموذج الفرعي ولم أفلح علي العموم انا منتظر ردك بخصوص هذه النقطة

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

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

ستجد أن الصنف المراد ادراجه في عمود Compact item code قد تم ادراجه في العمود ولكن في صف جديد والمطلوب ادراجة بجانب الكود المناظر له

AH5123PC942

أمام

AH5123PC942

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

أتمني أن أكون قد استطعت شرح المشكلة بالتفصيل وبشكل واضح

مرفق الملف بعد ادراج به البيانات الفعلية

Mapping.rar

بارك الله فيكم وجزاكم الله خير ونفع الله بعلمكم

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

واليوم الحمد لله وجدت المطلوب بفضل الله ثم بفضل جهود خبراءنا الافاضل

شكرا لكم وفقكم الله واتمنى ان ارى اهتمام اكثر بهذا الموضوع

احترامي وتقديري لكم جميعا

الاخ همام أو عرقوب

الاخ أكسير

الاخوة الزملاء

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

لقد توصلت لكود وفي بالغرض تماماً وقد استبدلت جملة insert into بهذه الجملة

If MsgBox("هل تريد ادراج هذا الصنف بالنموذج الفرعي", vbCritical + vbYesNo, "رسالة تأكيد") = vbNo Then
Exit Sub
Else
Forms![form1]![Q_2 subform]![Compact_Item_Code] = Me![TEX_ItemCode]
Forms![form1]![Q_2 subform]![Compact_Color_Code] = Me![TEX_ColorCode]
Forms![form1]![Q_2 subform]![Compact_Size_Code] = Me![TEX_SizeCode]
Me.Refresh
End If

بذلك نكون قد وصلنا الي 95% من المطلوب ومش باقي غير اظهار النتائج مباشر بعد الادراج بدون الضغط علي زر تحديث

مرفق الملف علي آخر تحديث

Mapping_up.rar

تفضل اخي محمد فؤاد

الملف بعد التعديل

1. تم تعديل مربع التحرير والسرد بحيث يعرض القيم الفريده فقط ولا يعرض القيم المكرره

2. بمجرد اختيار اي قيمه من مربع التحرير والسرد سوف يتم عرض نتائج البحث بسرعة بدون زر أمر تحديث حيث تم حذفه

3. تم إضافة اكواد في النموذج الرئيسي بحيث يتم التحديث بسرعه للنموذج الفرعي الثاني

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

وهذا برنامجك بعد التعديل

za_Mapping_up.rar

بارك الله فيك وجزاك الله خير يااخت زهرة

ونفع الله بعلمك

الله يعطيك الصحة والعافيه

وفقك الله

الله يبارك فيكي يا أختنا الغالية زهرة

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

شكراً مرة أخري