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

[moho58]

  في 26‏/11‏/2023 at 06:34, ابوخليل 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

Expand  

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

مثلا اختيار:

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

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

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

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

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

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

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

 

[ابوخليل]

  في 26‏/11‏/2023 at 07:29, شايب said:

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

 

Expand  

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

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

[شايب]

  في 26‏/11‏/2023 at 07:47, moho58 said:

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

Expand  

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

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

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

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

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

الشايب

 

 

 

 

basey(1).accdbFetching info...

[ابوخليل]

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

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

[شايب]

  في 26‏/11‏/2023 at 08:10, ابوخليل said:

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

Expand  

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

[moho58]

  في 26‏/11‏/2023 at 08:03, شايب said:

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

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

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

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

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

الشايب

 

 

 

 

basey(1).accdb 672 kB · 6 downloads

Expand  

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

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

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

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

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

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

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

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

[moho58]

  في 26‏/11‏/2023 at 08:10, ابوخليل said:

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

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

Expand  

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

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

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

مثلا اختيار:

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

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

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

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

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

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

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

[ابوخليل]

تفضل 

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

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

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

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

bzy.rarFetching info...

[شايب]

  في 26‏/11‏/2023 at 09:52, moho58 said:

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

Expand  

 

  في 26‏/11‏/2023 at 10:37, ابوخليل said:

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

Expand  

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

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

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

 

[moho58]

  في 26‏/11‏/2023 at 10:37, ابوخليل said:

تفضل 

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

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

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

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

bzy.rar 47.35 kB · 3 downloads

Expand  

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

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

  في 26‏/11‏/2023 at 11:47, شايب said:

 

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

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

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

 

Expand  

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

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

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

 

[شايب]

  في 26‏/11‏/2023 at 11:50, moho58 said:

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

Expand  

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

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

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

تحياتي

 

[ابوخليل]

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

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

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

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

 

bzy.rarFetching info...

[ابوخليل]

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

 

bzy2.rarFetching info...

[moho58]

  في 26‏/11‏/2023 at 12:05, شايب said:

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

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

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

تحياتي

 

Expand  

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

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

[شايب]

  في 26‏/11‏/2023 at 14:14, moho58 said:

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

Expand  

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

  في 26‏/11‏/2023 at 14:14, moho58 said:

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

Expand  

هو مثل دارج

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

تحياتي

[moho58]

  في 26‏/11‏/2023 at 12:33, ابوخليل said:

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

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

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

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

 

bzy.rar 47.35 kB · 0 downloads

Expand  

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

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

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

 

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

 

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

 

  في 26‏/11‏/2023 at 14:31, شايب said:

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

هو مثل دارج

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

تحياتي

Expand  

إن شاء الله

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

[ابوخليل]

  في 26‏/11‏/2023 at 14:31, moho58 said:

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

Expand  

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

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

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

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

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

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

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

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

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

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

 

[moho58]

  في 26‏/11‏/2023 at 16:03, ابوخليل said:

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

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

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

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

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

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

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

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

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

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

 

Expand  

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

 

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

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

[moho58]

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

[شايب]

  في 26‏/11‏/2023 at 18:10, moho58 said:

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

Expand  

ههههه

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

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

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

الشايب

 

basey(٢).accdbFetching info...

[moho58]

 

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

الأستاذ @kkhalifa1960

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

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

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

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

 

  في 26‏/11‏/2023 at 18:32, شايب said:

ههههه

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

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

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

الشايب

 

basey(٢).accdb 584 kB · 4 downloads

Expand  

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

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

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

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

[ابوخليل]

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

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

  في 26‏/11‏/2023 at 18:32, شايب said:

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

 

Expand  

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

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

[شايب]

  في 26‏/11‏/2023 at 18:32, شايب said:

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

Expand  

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

  في 26‏/11‏/2023 at 19:47, moho58 said:

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

Expand  

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

  في 26‏/11‏/2023 at 22:16, ابوخليل said:

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

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

Expand  

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

اخونا الشايب

[ابو البشر]

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

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

Expand  

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

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

[شايب]

  في 28‏/11‏/2023 at 12:20, ابو البشر said:

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

Expand  

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

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

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

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

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

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

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

 

basey(٢)(1).accdbFetching info...