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

[moho58]

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل

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

في هذا المثال في الجدول يوجد 08طلاب

و أنا عندي جدول به أكثر من 500 طالب 

يعني أحدد الدرجة والفوج سواء اختيار واحد أو عدة اختيارات من مربع القائمة  وهو يعطيني الإحصاء

والرجاء التعديل على الكود في زر عرض و زر طباعة وزر التحويل إلى صيغة  pdf

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

 

basey.accdb

[kkhalifa1960]

استاذ @moho58 ممكن ارسال الجدول فقط الذي به 500 طالب.

[moho58]

6 دقائق مضت, kkhalifa1960 said:

استاذ @moho58 ممكن ارسال الجدول فقط الذي به 500 طالب.

نعم أستاذنا الطيب

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

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

 

[kkhalifa1960]

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

[moho58]

34 دقائق مضت, kkhalifa1960 said:

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

نعم اخي الطيب 

سأدهب الى العمل واحضره وأرسله لك 

معذرة اخي  بعد حوالي 4 ساعات اوافيك به ان شاءالله

عندي ملاحظة اخي الطيب 

انا حاليا حوالي 500 موظف وهذا العدد ممكن يزيد في كل مرة يأتي موظف جديد نقوم بتسجيل بياناته في هذه السنة 2023 حتى انتهاء السنة الجارية 

لكن أخي  في سنة 2024  نسجل موظفين جدد غير هذا الموظفين الموجودين حاليا 

يعني السنة غير ثابثة وتتغيير  وكذا الموظفين

في سنة 2023 نسجل موظفين جدد

في سنة 2024 نسجل موظفين جدد

في سنة 2025 نسجل موظفين جدد وهكذا

اعذرني أخي الطيب

انا مبتدأ وهي العملية معقدة 

سامحني ان شاءالله هذه هيا جميع المعطيات قد وافيتك بها ويكون حل

 

 

 

 

[ابوخليل]

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

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل

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

في هذا المثال في الجدول يوجد 08طلاب

و أنا عندي جدول به أكثر من 500 طالب 

يعني أحدد الدرجة والفوج سواء اختيار واحد أو عدة اختيارات من مربع القائمة  وهو يعطيني الإحصاء

والرجاء التعديل على الكود في زر عرض و زر طباعة وزر التحويل إلى صيغة  pdf

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

 

basey.accdb 640 kB · 4 downloads

بعد اذن الاستاذ خليفة

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

اذا تتكرم ترسم لي ما تريده كنتيجة في التقرير

[moho58]

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

بعد اذن الاستاذ خليفة

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

اذا تتكرم ترسم لي ما تريده كنتيجة في التقرير

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

عندما اختار مثلا الدرجة أستاذ والفوج 1 

تظهر النتيجة في المجموع خطأ يعطيك دائما مجموع الدرجة ويتجاهل الفوج 

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

مثال

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

وأنا اريد عدد الطلبة الموجودين في الدرجة والفوج

 

أنا بعيد حاليا عن الكمبيوتر وعندما ارجع اعمل لك  رسم وتوضيح أكثر

وبارك الله فيك أستاذنا الكبير 

 

 

 

 

 

 

 

 

 

 

[moho58]

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

بعد اذن الاستاذ خليفة

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

اذا تتكرم ترسم لي ما تريده كنتيجة في التقرير

أرفقت لك صورتين أستاذنا وان شاء الله تكون وصلت لك الفكرة

المشكلة يقع عند اختيار واحد أو عند اختيار متعدد

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

 

[moho58]

6 ساعات مضت, kkhalifa1960 said:

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

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

[moho58]

9 ساعات مضت, kkhalifa1960 said:

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

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

basey2023.accdb

[ابوخليل]

انظر هذا التعديل وافدني

basey2.rar

[moho58]

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

انظر هذا التعديل وافدني

basey2.rar 27.4 kB · 4 downloads

أستاذنا مشكور كثيرا

لقد ارفقت لك الصورة:

أستاذنا عند اختيار الدرجة: أستاذ والفوج  (groupe):  1

نلاحظ في التقرير يظهر

الدرجة:

أستاذ

أستاذ

يعني مكررة

من المفروض  تظهر الدرجة : استاذ مرة وخاصة بالفوج رقم: 01

أستاذنا ممكن طريقة لاضافة الفوج في التقرير ربما يكون فيها الحل

وأنت أعلم مني

 

وإن شاء الله تكون قد فهمت المشكل بالضبط

وربي يجازيك أستاذنا

 

[ابوخليل]

انا طلبت منك ترسم لي بخط يدك النتيجة التي تريدها في التقرير

وقبلها قل لي ما الذي احدده على النموذج

[moho58]

1 دقيقه مضت, ابوخليل said:

انا طلبت منك ترسم لي بخط يدك النتيجة التي تريدها في التقرير

وقبلها قل لي ما الذي احدده على النموذج

أن شاء الله سأوافيك بعد قليل بهذا الرسم

 

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

ربما يكون الحل في التعديل على الكود

لأن في الكود أسفله: نلاحظ تحديد الدرجة(grade) فقط من مربع  القائمة

وربما يكون الحل في تحديد الدرجة والفوج معا

Private Sub cmd_Preview_Click()

    Dim varItem As Variant
    Dim myWhere As String
    
    myWhere = ""
    
    ' Loop through the selected items in the ListBox
    For Each varItem In Me.lst_XX.ItemsSelected
        ' Add each selected item to the string
        myWhere = myWhere & "'" & Me.lst_XX.ItemData(varItem) & "', "
    Next varItem
    
    ' Remove the trailing comma and space from the string
    myWhere = Left(myWhere, Len(myWhere) - 2)
    
    DoCmd.OpenReport "rap_stat_situat", acViewPreview, , "[grade] in (" & myWhere & ")"
  End Sub

[ابوخليل]

انت تفكر بطريقتك ،، وغيرك يفكر بطريقته

المهم : جدول يحتوي على بيانات

والمطلوب

تقرير يظهر البيانات على الشكل او الطريقة التالية ( توضح)

باستخدام  نموذج وسيط يتم من خلاله الفلترة حسب الطريقة التالية ( توضح)

...........

[moho58]

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

انا طلبت منك ترسم لي بخط يدك النتيجة التي تريدها في التقرير

وقبلها قل لي ما الذي احدده على النموذج

تفضل أستاذنا

 

[ابوخليل]

تمام

هل يوجد فلترة اخرى ؟  مثلا تضم الدرجات او الأفواج

لأن العمل يجب ان يأخذ بالاعتبار

[moho58]

1 دقيقه مضت, ابوخليل said:

تمام

هل يوجد فلترة اخرى ؟  مثلا تضم الدرجات او الأفواج

لأن العمل يجب ان يأخذ بالاعتبار

لا توجد أستاذنا

أختار السنة فقط من النموذج

 السنة تتغيير ممكن 2023 أو 2024 أو .. حسب سنة تسجيل الطالب

عند اختيار السنة يظهر لي في مربع القائمة الدرجات  وما يقابلها من أفواج

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

لأحصل على الأحصاء كما هو في التقرير

هذا ملخص أستاذنا

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

 

[ابوخليل]

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

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

ربما يكون الحل في التعديل على الكود

لأن في الكود أسفله: نلاحظ تحديد الدرجة(grade) فقط من مربع  القائمة

وربما يكون الحل في تحديد الدرجة والفوج معا

 

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

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

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

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

[شايب]

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

المشكلة يقع عند اختيار واحد أو عند اختيار متعدد

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

اقتباس

 

الان ترغب في فلترة حقلين

وهنا ممكن عملها بطريقتين

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

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

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

الشايب

 

[شايب]

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

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

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

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

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

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

تحياتي

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

[ابوخليل]

اهلا شايبنا صباح الخير

كلامك في محله .. وملاحظتك دقيقة

هل ترى ان اضافة الـــ ID الموجود في الجدول الى مصدر بيانات القائمة واشراكه كمعيار .. يحل المشكلة ؟

طبعا لا يمكن لأن الدرجة مجمعة وكذلك الفوج

[شايب]

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

طبعا لا يمكن لأن الدرجة مجمعة وكذلك الفوج

الحقيقة ان لدي ملاحظات على الجدول والاستعلام سبق ان اشرت اليها قي ردي السابق

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

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

الشايب

[شايب]

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

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

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

 

[moho58]

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

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

الان ترغب في فلترة حقلين

وهنا ممكن عملها بطريقتين

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

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

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

الشايب

 

مشكور الأخ شايب على الرد والمتابعة

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

وهو شغال و رائع جدا جدا جدا  و أكثر من ممتاز وما زلت أعمل به حاليا

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

وليس الرتبة فقط لوحدها

 

جاري تجربة الكود الخاص باستاذنا أبو خليل