مساعدة فى وضع كود أضنه بسيط (أعادة البحث) أو بدء عملية البحث

[walid7799]

بسم الله والصلاة والسلام على سيد ولد أدم محمد بن عبد الله خير الكلام ما دكر فيه الله عز وجل (الجميل)

أخوانى الكرام دائما وأبداً ألاقى الكثير والكثير مما تفضل الله بنعمته عليكم من العلم زادكم الله من فضله ما أحياكم

الرجاء المساعدة فى كود زر إعادة البحث أو بدء عملية البحث

ولكن المشكلة عندى عدد (6) كومبوبوكس تعمل كفلتر للسجلات بالنمودج وعند الضغط على الزر لا يمكن الأتى :-

1- إعادة عرض كافة السجلات .

2- إعادة تصفيه الكومبوبوكس الــ (6) خالية من البيانات التى تم اختيارها منها

هل من مستجيب ... أستجير بالله ثم بعونكم .. من أعان مسلماً أعانه الله يوم القيامة (اللهم أجعلنا من من يحسنون الظن بك وممن تسجيرهم) عظم شأنك وتعالى فضلك

[Amr Ashraf]

عليكم السلام

ارفق القاعدة أخى الكريم , وهل المطلوب هو عند الضغط على الزر يقوم باخلاء الكومبوبوكس من الاختيارات السابقة ؟

[walid7799]

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

لدى نمو>ج مستمر مبنى على استعلام لجدولين مرتبطين (one to mine) وتم عمل نمو>ج البحث بحيث تتم التصفية والفلترة من خلال القوائم المنسدلة الستة بعدد خانات البحث فقط مرتبظة فى استعلام لتقوم بنفس عمل الفلتر 

وهى والحمد لله وبفضله تعمل على أكمل وجه ولكن ..

عند إعادة البحث من جديد لا بد من مسح كل ما تم اختياره يدويا بالــ (6) كومبوبوكس حتى تبدأ بحث جديد أو أغلاق النمو>ج وإعادة فتحه .

المطلوب هل يمكن وضع زر عند الضغط عليه يقوم بإعادة البحث (عرض جميع السجلات مرة أخرى + أرجاع الكومبوبوكس الــ (6) كما كانت لم يتم اختيار أى بيانات بها)

ومن ثم إعادة البحث مرة أخرى واتاحة الاحتيارات 

هل يمكن وضع القاعدة على متصفح خارجى لأرسالها لحضرتك (يمكنك الانتظار) أو وقتك لا يسمح ؟

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

على الرابط التالى

https://www.mediafire.com/file/0h7z6mbr8w5h8lj/Latter+Out.rar/file

[Amr Ashraf]

10 دقائق مضت, walid7799 said:

المطلوب هل يمكن وضع زر عند الضغط عليه يقوم بإعادة البحث (عرض جميع السجلات مرة أخرى + أرجاع الكومبوبوكس الــ (6) كما كانت لم يتم اختيار أى بيانات بها)

يمكن اخى الكريم , فى حدث زر اعادة البحث اكتب التالى :

Me.Combo1 = ""
Me.Combo2 = ""
Me.Combo3 = ""
Me.Combo4 = ""
Me.Combo5 = ""
Me.Combo6 = ""
Me.Requery

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

تم تعديل يناير 22, 2022 بواسطه Amr Ashraf

[walid7799]

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

[Amr Ashraf]

12 دقائق مضت, walid7799 said:

مشكلاتان أولاً عدم أظهار الخيارات داخل القوائم وعدم أظهار جميع السجلات

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

الا اذا كانت الكومبوبوكس تسجل الاختيار فى حقل نصى آخر وهو ما يعتمد عليه عمليه البحث , بمعنى ان فلتر الاستعلام ليس الكومبوبوكس نفسه ولكن حقل نصى يساوى نتيجة الكومبوبوكس فى هذه الحالة يتم تعديل الكود كالتالى :

Me.Combo1 = ""
Me.Combo2 = ""
Me.Combo3 = ""
Me.Combo4 = ""
Me.Combo5 = ""
Me.Combo6 = ""
Me.Txt1 = ""
Me.Txt2 = ""
Me.Txt3 = ""
Me.Txt4 = ""
Me.Txt5 = ""
Me.Txt6 = ""
Me.Requery

 

تم تعديل يناير 22, 2022 بواسطه Amr Ashraf

[walid7799]

تم أرفاق القاعدة كاملة بالرابط أعلاه

وهو 

https://www.mediafire.com/file/0h7z6mbr8w5h8lj/Latter+Out.rar/file

[ابو جودي]

ارفع قاعدتك افضل على 
https://top4top.io/