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

[qathi]

السلام عليكم أخواني الكرام ممكن  كود تجمع عدد سجلات في الفورم الفرعي بشرط حقل يحتوي على نص معين؟

[Shivan Rekany]

ممكن توضيح مع المرفق

[qathi]

أهلاً بالأستاذ @Shivan Rekany

اسم لنموذج EmployeeMovement_F يوجد أربعة حقول اسفل الفورم الفرعي المطلوب تجميع
عدد السجلات بشرط أن نص حقل Status يساوي كالتالي:
SumD = دوام كامل +دوام جزئي
SumK = غائب
SumS = أستئذان
SumG = أجازة

تفضل المرفق:

Employee 12 .rar

[Shivan Rekany]

بعد لم يكتمل الشرح
ماذا تريد ان تجمع بذلك الشروط
هل تريد ان تجمع وقت العمل او اي حقل بالضبط

[qathi]

49 دقائق مضت, Shivan Rekany said:

بعد لم يكتمل الشرح
ماذا تريد ان تجمع بذلك الشروط

 

منذ ساعه, qathi said:

عدد السجلات بشرط أن نص حقل Status يساوي كالتالي:
SumD = دوام كامل +دوام جزئي
SumK = غائب
SumS = أستئذان
SumG = أجازة

أستاذ @Shivan Rekany أعطيك مثال بعد الضغط على زر بحث سيتم الفرز ..

المطلوب على حسب نتائج البحث تجميع عدد أيام الغياب في حقل SumK بشرط أن يكون حقل Status يحتوي كلمة "غائب" وقس على ذلك الحقول الأخرى

تم تعديل نوفمبر 21, 2018 بواسطه qathi

[Shivan Rekany]

17 دقائق مضت, qathi said:

المطلوب على حسب نتائج البحث تجميع عدد أيام الغياب في حقل SumK بشرط أن يكون حقل Status يحتوي كلمة "غائب" وقس على ذلك الحقول الأخرى

حسب فهمي لطلبك حضرتك تريد تعرف عدد سجلات غائب او اجازة ... الخ
اتفضل بعد البحث استخدم هذا
 

  Dim db As Database
Dim rs As Recordset
Dim rc As Long
Dim StrShrit As String
Dim D, K, S, G
    Set db = CurrentDb
    Set rs = Form_EmployeeMovemSub_F.RecordsetClone
    Form_EmployeeMovemSub_F.SetFocus
    rs.MoveLast: rs.MoveFirst
    rc = rs.RecordCount
    For I = 1 To rc
    StrShrit = rs!Status
    If StrShrit = "دوام كامل" Or StrShrit = "دوام جزئي" Then
        D = D + 1
    ElseIf StrShrit = "غائب" Then
        K = K + 1
    ElseIf StrShrit = "أستئذان" Then
        S = S + 1
    ElseIf StrShrit = "أجازة" Then
        G = G + 1
    End If
    rs.MoveNext
    Next I
    Form_EmployeeMovemSub_F.SumD = D
    Form_EmployeeMovemSub_F.SumG = G
    Form_EmployeeMovemSub_F.SumK = K
    Form_EmployeeMovemSub_F.SumS = S
    rs.Close
    Set rs = Nothing

 

Employee 12 .rar

[jjafferr]

السلام عليكم 🙂

 

ولنفس الغرض ، ولكن بوضع Sum في الحقل مباشرة (انظر الرقم 1 ) :

 

.

جعفر

[qathi]

ياأستاذ @Shivan Rekany .. حفضك الله ورعاك .. بل هذ الكود أفضل وزيادة عن المطلوب .. فكرتك هي الأروع  من ما كنت طلبته بنفسي

شكراً لك جزاك الله خيراً  

 

تم تعديل نوفمبر 21, 2018 بواسطه qathi

[qathi]

شكراً لك أستاذنا الكبير @jjafferr .. أعذرني أنشغلت بتطبيق الكود الاستاذ شفان .. رايت ردك في الموضوع السابق الآن أرى الملف بردك ..حفظك الله ورعاك أستاذنا

 

 

تم تعديل نوفمبر 21, 2018 بواسطه qathi