احصاء سنوات الميلاد حسب كل قسم

[بلال اليامين]

السلام عليكم

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

مثل سنة اولى عدد مواليد 2015 و2016 للذكور +الاناث  

وتجدون البرنامج

المستخدم - Copie.rar

تم تعديل يوليو 2, 2021 بواسطه بلال اليامين

[محمد أبوعبدالله]

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

ضع الكود التالي بحقل الذكور لعام 2010
 

=iif([الجنس]="ذكر";sum(iif(Year([تاريخ الازدياد])=2010;1;0));0)

 

وضع الكود التالي بحقل الاناث لعام 2010

=iif([الجنس]="أنثى";sum(iif(Year([تاريخ الازدياد])=2010;1;0));0)

واكمل باقي الحقول بنفس الطريقة مع تغيير العام 2010  الى العام الذي تريد

المستخدم - Copie.rar

تحياتي

[بلال اليامين]

السلام عليكم

اخي هذا الكود لم يحدد القسم او رقم القسم في الكود

اخي يوجد من الاولى الى الخامسة

[محمد أبوعبدالله]

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

تفضل اخي الكريم

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

Private Sub نص96_Change()

        If Me.نص96 = "جميع المستويات" Then
                Me.RecordSource = "معلومات التلاميذ"
                Me.t1.Form.FilterOn = False
        Else
                Me.RecordSource = "Query1"
                myCriteria = myCriteria & "("
                myCriteria = myCriteria & "[معلومات التلاميذ].[القسم]= '" & Me.نص96 & "'"
                myCriteria = myCriteria & ")"
                
                Me.t1.Form.Filter = myCriteria
                Me.t1.Form.FilterOn = True
                        
        End If
    Me.Requery
End Sub

المستخدم - Copie.rar

تحياتي