اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


qathi

الردود الموصى بها

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

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

تفضل المرفق:

Employee 12 .rar

رابط هذا التعليق
شارك

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

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

 

منذ ساعه, qathi said:

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

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

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

تم تعديل بواسطه qathi
رابط هذا التعليق
شارك

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

  • Thanks 1
رابط هذا التعليق
شارك

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

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

 

تم تعديل بواسطه qathi
رابط هذا التعليق
شارك

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

 

 

تم تعديل بواسطه qathi
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information