حساب عدد مدينة محددة و عدد الخلايا الصحيحة

[محمد احمد لطفى]

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

 كيف يمكن حساب عدد مدينة اسكندية فقط 
كيف يمكن حساب الخلايا الصحيحة 
كيف يمكن حساب الخلايا الفارغة

وجزاكم الله خيرا

6000.mdb

تم تعديل يوليو 5, 2018 بواسطه محمد احمد لطفى

[king5star]

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

6000.mdb

[محمد احمد لطفى]

شكر لك أستاذى 

 

=DCount("[Country]";"TestQ2";"[Country]='اسكندرية'")

ممكن افهم 
Country رقم و 1 ماذا تشير 
Country رقم 2 الى ماذا تشير 

بعد التجربة على 4000 سجل النموذج اصبح بطىء جدا عند فتح البيانات 

[محمد احمد لطفى]

النتيجة ليست سليمة 

الضغط على زر تصفية

660.2.Test2006.mdb

[محمد احمد لطفى]

هل من مساعدة

[محمد احمد لطفى]

هل من مساعدة

[محمد احمد لطفى]

للرفع

[محمد احمد لطفى]

للرفع

[محمد احمد لطفى]

للرفع

[محمد احمد لطفى]

للرفع

[محمد احمد لطفى]

@jjafferr

[jjafferr]

وعليكم السلام

 

في النموذج TestF نضيف الحدث على التحميل ، و وحدة نمطية لحساب عدد الحقول:

Function Count_Fields()

    Dim rst As DAO.Recordset
    'Set rst = Forms!main!Datamasterform!TestF.Form.RecordsetClone
    Set rst = Me.RecordsetClone
    rst.MoveLast: rst.MoveFirst: RC = rst.RecordCount
    K1 = 0: K2 = 0
    
    For i = 1 To RC
        If rst!Country = "اسكندرية" Then
            K1 = K1 + 1
        End If
        
        If rst![on or of] = -1 Then
            K2 = K2 + 1
        End If
        
        rst.MoveNext
    Next i
    
    Me.Count_Esk = K1
    Me.Count_True = K2
    Me.Count_False = RC - K2
    
End Function

Private Sub Form_Load()

    Call Count_Fields
End Sub

.

وعند الضغط على زر التصفية ، ننادي الوحدة النمطية اعلاه:

    Call Form_TestF.Count_Fields

 

 

جعفر

660.2.Test2006.mdb.zip

[محمد احمد لطفى]

جزاك الله خيرا أستاذى 😊