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

[عفرنس]

لدي نموذج مصدره استعلام وفيه تقديرات الطلاب ( ممتاز - جيدجدا - جيد - مقبول - ضعيف ) 

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

شاكر لكم .. 

[biskra]

جرب الكود التالي في حقل التقدير بعد التحديث

Dim strX As String
strX = Me.اسم الحقل التقدير

If strX <> "" Then

Me.Filter = "اسم الحق في الاستعلام الموجود به التقدير = '" & strX & "'"
Me.FilterOn = True

Else

Me.Filter = ""
Me.FilterOn = False

End If