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

[moho58]

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

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

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

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

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

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

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

 

basey.accdbFetching info...

[kkhalifa1960]

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

[moho58]

  في 25‏/11‏/2023 at 06:27, kkhalifa1960 said:

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

Expand  

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

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

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

 

[kkhalifa1960]

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

[moho58]

  في 25‏/11‏/2023 at 08:09, kkhalifa1960 said:

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

Expand  

نعم اخي الطيب 

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

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

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

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

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

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

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

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

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

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

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

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

 

 

 

 

[ابوخليل]

  في 25‏/11‏/2023 at 06:16, moho58 said:

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

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

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

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

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

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

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

 

basey.accdb 640 kB · 4 downloads

Expand  

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

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

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

[moho58]

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

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

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

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

Expand  

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

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

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

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

مثال

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

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

 

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

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

 

 

 

 

 

 

 

 

 

 

[moho58]

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

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

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

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

Expand  

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

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

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

 

[moho58]

  في 25‏/11‏/2023 at 08:09, kkhalifa1960 said:

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

Expand  

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

[moho58]

  في 25‏/11‏/2023 at 08:09, kkhalifa1960 said:

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

Expand  

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

basey2023.accdbFetching info...

[ابوخليل]

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

basey2.rarFetching info...

[moho58]

  في 25‏/11‏/2023 at 18:59, ابوخليل said:

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

basey2.rar 27.4 kB · 4 downloads

Expand  

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

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

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

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

الدرجة:

أستاذ

أستاذ

يعني مكررة

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

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

وأنت أعلم مني

 

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

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

 

[ابوخليل]

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

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

[moho58]

  في 25‏/11‏/2023 at 19:42, ابوخليل said:

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

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

Expand  

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

 

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

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

لأن في الكود أسفله: نلاحظ تحديد الدرجة(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]

  في 25‏/11‏/2023 at 19:42, ابوخليل said:

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

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

Expand  

تفضل أستاذنا

 

[ابوخليل]

تمام

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

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

[moho58]

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

تمام

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

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

Expand  

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

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

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

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

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

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

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

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

 

[ابوخليل]

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

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

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

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

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

 

Expand  

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

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

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

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.rarFetching info...

[شايب]

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

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

Expand  

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

  اقتباس

 

Expand  

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

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

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

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

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

الشايب

 

[شايب]

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

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

Expand  

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

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

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

Expand  

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

تحياتي

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

[ابوخليل]

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

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

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

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

[شايب]

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

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

Expand  

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

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

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

الشايب

[شايب]

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

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

Expand  

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

 

[moho58]

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

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

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

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

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

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

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

الشايب

 

Expand  

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

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

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

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

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

 

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