كيف يتم ترتيب قيم Listbox تصاعدياً وبناء تقرير على ناتج استعلامه والتجميع بناء عليه

اخي الفاضل يوسف أحمد

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

لقد قمت بالتعديل على الكود الخاص بإنشاء الإستعلام في العبارة التالية

strWhere = " WHERE [grade] in (" & Left(strIN, Len(strIN) - 1) & ") ORDER BY tblnames.Grade"

الأن يتم الفرز تصاعديا بناء على الدرجة

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

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

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

db4UP.rar

اختنا ومعلمتنا الفاضلة زهرة

دائماً سباقة الى الخير ... جزاك الله خيراً

بالنسبة للكود المعدل من قبلك

strWhere = " WHERE [grade] in (" & Left(strIN, Len(strIN) - 1) & ") ORDER BY tblnames.Grade"

للتوضيح : اريده ان يقوم بترتيب الدرجات بالقائمة بحيث تكون مثلاً هكذا

All

الاولى

الثانية

الثالثة ... وهكذا بناءً على القيم المختارة للقائمة ان امكن ذلك

بالنسبة للتقرير فهو ممتاز جداً .. بارك الله فيك

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

الاولى

فلان

فلان

الثانية

فلان

فلان

الخ ... حسب الدرجات المختارة من القائمة ان امكن ذلك حتى لا تكرر قيم الدرجات بالتقرير.

لقد قمت بحذف كود الخطأ من كود الاستعلام واضافته الى كود فتح التقرير لتفادي فتح التقرير عند عدم الاختيار من القائمة.

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

db4UP.rar

اخي الفاضل يوسف احمد

بالنسبة لفرز القائمة فهي مفروزه تصاعديا بناء على اللغة العربية حيث لو تلاحظ انها بهذه الطريقة

All

الاولى

الثالثه

الثانيه - جاءت المرتبة الثالثة لأن حرف النون بعد حرف اللام - الثال - الثان

الخامسة - جاءت في المرتبة الرابعة لأن حرف الخاء بعد حرف الثاء الثا - الخا

الرابعة - جاءت في المرتبة الأخيره نظرا لوجود حرف الراء بعد حرف الخا - الخا - الر

هكذا يتم الفرز التصاعدي للأسماء في برنامج الأكسيس او اي برنامج آخر

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

All

1الاولى

2الثانيه

3الثالثه

4الرابعه

5الخامسه

لاحظ ان الفرزالتصاعدى هنا تغير لأنه تم الفرز بناء على الأرقام الموجوده في اول كل كلمه وهذا ما قمت بعمله لك اذا اعجبتك الطريقه فكان بها ونعما وان لم تعجبك قم بحذف الارقام من الجدولين وسوف تعود لسابق عهدك بقائمة غير مفروزه بناء على طلبك .

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

db4UP.rar

شكراً جزيلاً لك اختنا الفاضلة زهرة وجزاك الله خيراً

واعتذر عن التأخر في الرد لظروف السفر

ما قصرت التعديل جميل جداً يعطيك الف العافية

كل الشكر والتقدير