إختيار واحد أو اختيار متعدد من مربع قائمة لعرض تقرير

[moho58]

منذ ساعه, ابوخليل said:

نعم هو ما تفضلت به

عملت لك كودا آخر يحدد الفوج ايضا  هكذا

وانظر الى المعيار في سطر فتح التقرير

Dim myWhere As String
Dim intNumColumns As String
Private Sub funGrop()
Dim varItem As Variant
     myWhere = ""
    For Each varItem In Me.lst_XX.ItemsSelected
      myWhere = myWhere & "'" & Me.lst_XX.ItemData(varItem) & "', "
    Next varItem
    myWhere = Left(myWhere, Len(myWhere) - 2)
End Sub

Private Sub fungrid()
 On Error Resume Next
 Dim varItem As Variant
 intNumColumns = ""
 If Me.lst_XX.ItemsSelected.Count > 0 Then
 For Each varItem In Me.lst_XX.ItemsSelected
 intNumColumns = intNumColumns & "'" & Me.lst_XX.Column(1, varItem) & "', "
 Next varItem
 intNumColumns = Left(intNumColumns, Len(intNumColumns) - 2)
 End If
End Sub

Private Sub cmd_Preview_Click()
  Call funGrop
  Call fungrid
    DoCmd.OpenReport "rap_stat_situat", acViewPreview, , "[groupe] in (" & intNumColumns & ")" & "And [grade] in (" & myWhere & ")"
End Sub

 

 

basey_2023.rar 34.69 kB · 2 downloads

أستاذنا بعد التجربة 

مثلا اختيار:

الدرجة أستاذ الفوج 1

الدرجة استاذ الفوج 2

الدرجة مساعد معلم الفوج 1

الدرجة مفتش الفوج 1

هناك تكرار في الدرجات عند عرض التقرير كما في الصورة

من المفروض يطلع الدرجات  في التقرير بدون تكرار

الدرجة أستاذ تكون مذكورة مرة واحة في التقرير  وبه مجموع الفوج 1 و 2  وهكذا.............

 

[ابوخليل]

31 دقائق مضت, شايب said:

وبعد التطبيق انتهت المشكلة والنتيجة صحيحة

 

قد وضح لك استاذنا الشايب من اين مكمن الخطأ

انظر محاولته الاخيرة اعلاه لحل المشكلة

[شايب]

14 دقائق مضت, moho58 said:

هناك تكرار في الدرجات عند عرض التقرير كما في الصورة

سبق ان اشرت اليها

في مشاركتي الاولى وكذلك في ردي على مشاركة استاذنا ابو خليل

لذا جرب المرفق

نفس كود اخي جعفر ولكن يفلتر الحقل المجمع في Column(3)

الاخ شايب يفضل النظر في الملاحظات التي اشار اليها ولكن النفس وما تريد

الشايب

 

 

 

 

basey(1).accdb

[ابوخليل]

myWhere = myWhere & "'" & Me.lst_XX.Column(3, varItem) & "', "

انا احرص على كتابة الاكواد النادرة هنا من اجل الرجوع اليها وقت الحاجة

[شايب]

3 دقائق مضت, ابوخليل said:

انا احرص على كتابة الاكواد النادرة هنا من اجل الرجوع اليها وقت الحاجة

ونحن اقصد الاخ شايب يفتخر انه من تلاميذكم 🌹

[moho58]

منذ ساعه, شايب said:

سبق ان اشرت اليها

في مشاركتي الاولى وكذلك في ردي على مشاركة استاذنا ابو خليل

لذا جرب المرفق

نفس كود اخي جعفر ولكن يفلتر الحقل المجمع في Column(3)

الاخ شايب يفضل النظر في الملاحظات التي اشار اليها ولكن النفس وما تريد

الشايب

 

 

 

 

basey(1).accdb 672 kB · 6 downloads

الأستاذ شايب معذرة على الـتأخر في الرد

لقد اخترت حسب ما في الصورة

الدرجة أستاذ الفوج1

الدرجة أستاذ الفوج 2

و ظهر في التقرير

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

ممكن تكون الدرجة معلم مذكورة مرة واحدة في التقرير  وتكون مجموع فوج 1 + فوج

وبارك الله فيك

[moho58]

1 ساعه مضت, ابوخليل said:

myWhere = myWhere & "'" & Me.lst_XX.Column(3, varItem) & "', "

انا احرص على كتابة الاكواد النادرة هنا من اجل الرجوع اليها وقت الحاجة

أستاذنا أبو خليل  أن شاء الله بقي استفسار

بالنظر إلى الكود الأخير  قبل اعتماده

هل طلبي هذا منطقي

مثلا اختيار:

الدرجة أستاذ الفوج 1

الدرجة استاذ الفوج 2

الدرجة مساعد معلم الفوج 1

الدرجة مفتش الفوج 1

هناك تكرار في الدرجات عند عرض التقرير كما في الصورة

من المفروض يطلع الدرجات  في التقرير بدون تكرار

الدرجة أستاذ تكون مذكورة مرة واحة في التقرير  وبه مجموع الفوج 1 و 2  وهكذا.............

[ابوخليل]

تفضل 

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

اتمنى ان تكون النتيجة 100%

تم ارفاق ملف خطأ

تمت الازالة ورفع المرفق الصحيح

bzy.rar

[شايب]

1 ساعه مضت, moho58 said:

الدرجة أستاذ تكون مذكورة مرة واحة في التقرير  وبه مجموع الفوج 1 و 2  وهكذا.............

 

منذ ساعه, ابوخليل said:

اتمنى ان تكون النتيجة 100%

جربت الملف ولكن لا يتم دمج الدرجات المتشابه ربما لم ترفق الملف المعدل وربما المشكلة من جهازي

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

ولكني ساتريث لحين مشاهدة طريقتك او اي من مداخلات الاساتذة

 

[moho58]

منذ ساعه, ابوخليل said:

تفضل 

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

اتمنى ان تكون النتيجة 100%

تم ارفاق ملف خطأ

تمت الازالة ورفع المرفق الصحيح

bzy.rar 47.35 kB · 3 downloads

أستاذنا الكبير لم يتم دمج الدرجات المتشابهة أم الحساب شغال بامتياز

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

5 دقائق مضت, شايب said:

 

جربت الملف ولكن لا يتم دمج الدرجات المتشابه ربما لم ترفق الملف المعدل وربما المشكلة من جهازي

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

ولكني ساتريث لحين مشاهدة طريقتك او اي من مداخلات الاساتذة

 

تحية طيبة الأخ شايب

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

ربما أستاذنا أبو خليل لم يرفق الملف المعدل الجديد

 

[شايب]

13 دقائق مضت, moho58 said:

تحية طيبة الأخ شايب

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

وتعطي نفس العدد المطلوب مثلا استاذ1 واستاذ2 ومساعد معلم 2 تعطي نفس النتيجة في صورتك اعلاه 89 ومثلها للاحتمالات الاخرى

ولكن اذا اعتمدنا مبدأ لا يفتى ومالك في المدينة فقد آن للشايب ان يتوقف

تحياتي

 

[ابوخليل]

هذه نتيجة الفلترة .. كما هو موجود في الاستعلام ,, اين التكرار هنا ... كل درجة وما يقابلها من الفوج .. والعدد تمام كما في الجدول

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

الآن انت تطلب شيئا جديدا آخر

تريد دمج الدرجات المتشابهه  وغض النظر عن الفوج

 

bzy.rar

[ابوخليل]

وهذه حسب طلبك الاخير

 

bzy2.rar

[moho58]

2 ساعات مضت, شايب said:

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

وتعطي نفس العدد المطلوب مثلا استاذ1 واستاذ2 ومساعد معلم 2 تعطي نفس النتيجة في صورتك اعلاه 89 ومثلها للاحتمالات الاخرى

ولكن اذا اعتمدنا مبدأ لا يفتى ومالك في المدينة فقد آن للشايب ان يتوقف

تحياتي

 

الأخ الشايب تحية طيبة

لم أفهم مبدأ لا يفتى ...

[شايب]

16 دقائق مضت, moho58 said:

الأخ الشايب تحية طيبة

ولك مثلها واطيب

16 دقائق مضت, moho58 said:

لم أفهم مبدأ لا يفتى ...

هو مثل دارج

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

تحياتي

[moho58]

1 ساعه مضت, ابوخليل said:

هذه نتيجة الفلترة .. كما هو موجود في الاستعلام ,, اين التكرار هنا ... كل درجة وما يقابلها من الفوج .. والعدد تمام كما في الجدول

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

الآن انت تطلب شيئا جديدا آخر

تريد دمج الدرجات المتشابهه  وغض النظر عن الفوج

 

bzy.rar 47.35 kB · 0 downloads

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

ربي يبارك فيك وفي أهلك ومالك وأولادك و ربي يرزقك من حيث لا تحتسب

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

 

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

 

أستاذنا الكبير إن لم تفهم عليا أو لم أستطع ايصال الفكرة  أو لم بكن لديك الوقت فهذا يفي بالغرض .

 

3 دقائق مضت, شايب said:

ولك مثلها واطيب

هو مثل دارج

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

تحياتي

إن شاء الله

مشكور كثيرا الأستاذ شايب  على المتابعة والاهتمام.  جزاء الله خير الجزاء ا وجعلها في ميزان حساناتك أخي

[ابوخليل]

منذ ساعه, moho58 said:

أستاذنا الكبير لا تغضب مني أن أكثرث عليك بالأسئلة أنا لم أغير السؤال ربما لم أجد طريقة طرح السؤال

بارك الله فيك ولماذا اغضب ؟ غفر الله لي ولكم

انا اعطيتك اجابات حسب فهمي للسؤال

الآن اتضح جيدا ما تريد

برمجيا يمكن تنفيذ الفكرة ولكن بطريقة تحتاج الى وقت وصبر ويتم تنفيذها على النحو التالي:

1- تصبح السجلات في التقرير  ثلاثة فقط ثابتة ( يمكن نضعها في رأس الصفحة بدلا من مقطع التفصيل )

2- تكون الحقول غير منضمة .. ( مصدر بياناتها متغيرات )

3- المسميات ثابتة للدرجات ( الاستاذ والمعلم والمفتش) كل واحد عبارة عن ليبل

4- عمل كود خاص يأخذ جميع البيانات من الاستعلام  ( الأعداد حسب النوع والفوج ) على هيئة متغيرات .. حسب الاختيار من القائمة .

عند نقر زر فتح التقرير تكون المتغيرات تحمل القيم المختارة

هذا تصور لطريقة التنفيذ .. ولا اعدك بالعمل عليه لانشغالي الوقت الحالي.. ولعل عند احد اخوانك طريقة ايسر  منها .. يتم تنفيذها من خلال الاستعلامات فقط

 

[moho58]

2 ساعات مضت, ابوخليل said:

بارك الله فيك ولماذا اغضب ؟ غفر الله لي ولكم

انا اعطيتك اجابات حسب فهمي للسؤال

الآن اتضح جيدا ما تريد

برمجيا يمكن تنفيذ الفكرة ولكن بطريقة تحتاج الى وقت وصبر ويتم تنفيذها على النحو التالي:

1- تصبح السجلات في التقرير  ثلاثة فقط ثابتة ( يمكن نضعها في رأس الصفحة بدلا من مقطع التفصيل )

2- تكون الحقول غير منضمة .. ( مصدر بياناتها متغيرات )

3- المسميات ثابتة للدرجات ( الاستاذ والمعلم والمفتش) كل واحد عبارة عن ليبل

4- عمل كود خاص يأخذ جميع البيانات من الاستعلام  ( الأعداد حسب النوع والفوج ) على هيئة متغيرات .. حسب الاختيار من القائمة .

عند نقر زر فتح التقرير تكون المتغيرات تحمل القيم المختارة

هذا تصور لطريقة التنفيذ .. ولا اعدك بالعمل عليه لانشغالي الوقت الحالي.. ولعل عند احد اخوانك طريقة ايسر  منها .. يتم تنفيذها من خلال الاستعلامات فقط

 

بارك الله فيك استاذنا وربي يجازيك خير الجزاء

 

ربما الأخ شايب عنده فتوى...

تم تعديل نوفمبر 26, 2023 بواسطه moho58

[moho58]

ننتظر الأخ  @شايب   ان شاء الله يحرر الفتوى

[شايب]

21 دقائق مضت, moho58 said:

ربما الأخ شايب عنده فتوى...

ههههه

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

اما مصدر التقرير فيكون استعلام جديد مبني على الجدول المؤقت

جرب المرفق لعله يكون المطلوب ولي عود غدا ان اراد الله

الشايب

 

basey(٢).accdb

[moho58]

 

أستاذنا الكبير @ابوخليل

الأستاذ @kkhalifa1960

الأستاذ @شايب      

أشكركم جميعا  على التفاعل والمشاركة والصبر معي

ربي يجازيكم خير الجزاء وجعلها الله في ميزان حساناتكم

مرة أخرى أجدد الشكر والتقدير للمشرفين على هذا المنتدى الجميل الذي تعلمنا فيه الكثيييرر  والكثيييرررر

 

منذ ساعه, شايب said:

ههههه

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

اما مصدر التقرير فيكون استعلام جديد مبني على الجدول المؤقت

جرب المرفق لعله يكون المطلوب ولي عود غدا ان اراد الله

الشايب

 

basey(٢).accdb 584 kB · 4 downloads

الأخ والأستاذ  @شايب  

روعة و إبداع و عمل ممتاز --- شغال بامتياز بامتياز---

جعله الله في ميزان حساناتك أخي شايب

و ربي يبارك فيك ويجازيك خير الجزاء

[ابوخليل]

الحمد لله على انقضاء حاجتك

وكما ذكر استاذنا انها اسهل طريقة

3 ساعات مضت, شايب said:

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

 

تم استخدام جدول مؤقت واستعلامين ( الحاق وتحديد ) كل هذا من اجل جزء صغير في الفلترة

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

[شايب]

12 ساعات مضت, شايب said:

ولي عود غدا ان اراد الله

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

11 ساعات مضت, moho58 said:

و ربي يبارك فيك ويجازيك خير الجزاء

جزاك الله وامين لنا ولكم

8 ساعات مضت, ابوخليل said:

تم استخدام جدول مؤقت واستعلامين ( الحاق وتحديد ) كل هذا من اجل جزء صغير في الفلترة

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

اتفق معكم استاذنا

اخونا الشايب

[ابو البشر]

في 27‏/11‏/2023 at 10:08, شايب said:

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

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

لانه لدي كود واريد ان استفيد من تعدد الطرق ...

[شايب]

18 دقائق مضت, ابو البشر said:

ممكن الكود الذي اشرت اليه ( الطريقة الثانية ) للعلم والاستفادة

تفضل يا ابا البشر

وانا كان فيها لزوم مالا يلزم

حيث يمكن ان نصل للنتيجة بدون جداول مؤقتة واستعلام الحاق واستعلام تحديد

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

على كل حال مرفق الملف حسب الطريقة الثانية

وسوف اشير الى الطريقة الثالثة في رد اخر

مع التأكيد ان اخونا شايب مجرد هاوي ويترك التجويد للاساتذة

 

basey(٢)(1).accdb