جمع فصول مدرسة بشروط

للرفع جزاكم الله خيرا

للرفع جزاكم الله خيرا

اعمل انت فى تصميم الجدول عمود يكون اسمة مجموعة داخل هذا العمود ادخل كل المدارس الابتدائية اعطيها اسم ابتدائى والمدارس الثانوية المراد تجميعها اعطها اسم ثانوي وفى النهاية جمع على اساس الحقل الجديد المسمى مجموعة وليس على اساس مجموع الفصول ( اول ثانوي + ثاني ثانوي طبيعي + ثالث ثانوي طبيعي )

اتمنى اكون فهمت كلامك تمام

جزاك الله خيرا اخي على الرد very

لكن المطلوب هو جمع فصول (اول ثانوي + ثاني ثانوي طبيعي + ثالث ثانوي طبيعي ) للمدرسة الواحدة يظهر في مربع النص الموضح في المثال المرفق

أخي في الله adb1423

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

تجد حل ما طلبت في المرفق أدناه

وأليك أيجاز ما تم عمله للفائدة العامة لك وللجميع

بعد تحديث القائمة المنسدلة combsch في النموذج frmsch

تتحدد 3 ثلاث عناصر في القائمة المنسدلة (رقم المدرسة - اسم المدرسة - رمز المرحلة)

يتم أستخراج المعايير وفقاً لما يلي:

إذا كانت المدرسة أبتدائية:

' إذا كانت مرحلة المدرسة أبتدائية نفذ الإجراء التالي
If combsch.Column(2) = 1 Then
Txt = DSum("[class]", "TclassRow", "[schoolid]=[combsch]")   ' اجمع عدد فصول هذه المدرسة المحددة
Txt1 = "عدد فصول وطلاب " & combsch.Column(1)                       ' اعمل Caption باسم المرحلة وحدد اسم المدرسة
txt2 = DSum("[pupil]", "TclassRow", "[schoolid]=[combsch]")  'اجمع عدد طلاب هذه المدرسة المحددة
Mrhah = "الإبتدائية"                                          ' حدد المرحلة
End If

إذا كانت المدرسة متوسطة:

' إذا كانت مرحلة المدرسة متوسطة نفذ الإجراء التالي
If combsch.Column(2) = 2 Then
Txt = DSum("[class]", "TclassRow", "[schoolid]=[combsch]")   ' اجمع عدد فصول هذه المدرسة المحددة
Txt1 = "عدد فصول وطلاب " & combsch.Column(1)                       ' اعمل Caption باسم المرحلة وحدد اسم المدرسة
txt2 = DSum("[pupil]", "TclassRow", "[schoolid]=[combsch]")  'اجمع عدد طلاب هذه المدرسة المحددة
Mrhah = "المتوسطة"                                            ' حدد المرحلة
End If

إذا كانت المدرسة ثانوية: وأردنا جمع عدد فصول وطلاب (أول ثانوي+ ثاني وثالث طبيعي)

تم أضافة أستعلام Qry يقوم بتصفية المدارس الثانوية فقط وتحديد الفصول المطلوبة (أول ثانوي، ثاني طبيعي ، ثالث طبيعي)

وعند طلب أستخراج أعداد الطلاب والفصول .. فإن الدالة تعطف على هذا الإستعلام لغرض الإستخراج

' إذا كانت مرحلة المدرسة ثانوية نفذ الإجراء التالي
If combsch.Column(2) = 3 Then
Txt = DSum("[class]", "Qry", "[schoolid]=[combsch]")   ' اجمع عدد فصول هذه المدرسة المحددة
Txt1 = "عدد فصول وطلاب (أول ثانوي + ثاني طبيعي + ثالث طبيعي)" & combsch.Column(1) '  اعمل Caption باسم المرحلة وحدد اسم المدرسة
txt2 = DSum("[pupil]", "Qry", "[schoolid]=[combsch]") 'اجمع عدد طلاب هذه المدرسة المحددة
Mrhah = "الثانوية"                                          ' حدد المرحلة
End If

هذا وبالله التوفيق

أخوك: (أبومحمد)

adb1423 _PMS.rar

بعد اذن اخوانى

تفضل أخى حل أبسط

كل ما أضفناه هو الاستعلام الموجود بالمرفق

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

db1.rar

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

فعلا هذا هو المطلوب