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

[sm44ms]

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

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

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

لو فيه داله او كود مبسط اكون شاكر لكم 

[Foksh]

ولو فيه ملف مرفق مبسط أكون مبسوط 😁😉

 

وكفكرة في رأسي ،

1. انشىء استعلام ومن خصائص الاستعلام على اليسار أو اليمين ( حسب لغة آكسيس ) ابحث عن خانة قيم فريدة - Unique Values ، واختر الحقل الذي تريد جلب بياناته الفريدة وهو حقل الإدارات في جدولك ، وسيتم جلبها دون تكرارات للقيم المكررة ، واحفظ الاستعلام بأي اسم تريد .

2. في مربع نص غير منضم ، اجعل مصدر بياناته:-

=DCount("*", "اسم_الاستعلام")

 

3. هذا استعلام افتراضي ( تخيلي ) :-

SELECT Count(*) AS عدد_الإدارات
FROM 
(SELECT DISTINCT الادارة FROM اسم_الجدول) AS مميز_الإدارات;

 

[SEMO.Pa3x]

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

 

Sub CountUniqueRecordsWithFilteredData()

    Dim rs As Recordset
    Dim uniqueIDs As Collection

    Set rs = Me.YourSubForm_sub.Form.RecordsetClone
    Set uniqueIDs = New Collection
    
    rs.MoveFirst
    Do Until rs.EOF
        On Error Resume Next
        uniqueIDs.Add rs!Id, CStr(rs!Id)
        On Error GoTo 0
        rs.MoveNext
    Loop
    
    uniqueCount = uniqueIDs.Count
    
    Set rs = Nothing
    Set uniqueIDs = Nothing
    
End Sub

 

تم تعديل أغسطس 9 بواسطه SEMO.Pa3x

[sm44ms]

شكرا