مجموع دفعات السنوات

[zhmaid]

السلام عليكم

اولا ارجو من الله ان يكون الجميع بأالف خير وعافيه

عندي طلب صغير من اروع منتدى

اريد جمع الدفعات السنوات للجميع ( الحقل الاخير )

ولكم جزيل الشكر

Fam.rar

[Foksh]

هذه طريقة تقليدية بدون أكواد ، ولكن كان لديك مشكلة وهي عدم وجود قيمة في الحقول الفارغة ؛ فالأوجب كونها حقول رقمية وجود قيمة في حال فراغها = 0

 

 

Fam.mdb

تم تعديل سبتمبر 29, 2023 بواسطه Foksh

[zhmaid]

شكرا لردك السريع 

خانه ( مجموع الدفعات السنوات للجميع ... لم يظهر المبلغ )

[Foksh]

6 دقائق مضت, zhmaid said:

لم يظهر المبلغ

 

 

تم تعديل سبتمبر 30, 2023 بواسطه Foksh

[zhmaid]

 هيك لما فتحتها 

سامحني مش عارف ليش

[Foksh]

2 دقائق مضت, zhmaid said:

سامحني مش عارف ليش

تفضل الملف بصيغة Accdb

2025.accdb

[zhmaid]

هيك 100% ولكن انا بستعمل اكسس 2003 وكل شي على اكسس 2003
برأيك شو المشكله 

[Foksh]

1 دقيقه مضت, zhmaid said:

برأيك شو المشكله

ممكن نسخة الاوفيس يكون فيها مشكلة ، وحاول على الاقل يكون عندك اوفيس 2010 

[zhmaid]

شطبت النسخه الى عندي ونزلت نسخه ثانيه من الاكسس 2003 

ولكن نفس المشكله ..... اذا في طريقه ثانيه لانني صعب اغير الى اكسس 2010

ولكم جزيل الشكر

[ابوخليل]

جرب هذا

استبدله بدل الموجود في مصدر تحكم الحقل :

=Nz([tx23])+NZ([tx24])+NZ([tx25])

 

[Foksh]

8 ساعات مضت, zhmaid said:

هيك 100%

أخي الكريم انا استندت الى كلامك ان الملف التاني اشتغل معك 100% ، وانا للأسف لا أملك نسخة أوفيس 2003 في جهازي ؛ جرب فكرة الأستاذ @ابوخليل 😊

[zhmaid]

شو اسماء الفيلد ...... tx23 - tx24 - tx25

لاني ما في هيك اسماء ...... اتحملوني معلش

[Foksh]

9 دقائق مضت, zhmaid said:

tx23 - tx24 - tx25

هذه الحقول تجلب لك مجموع كل سنة بانفراد حسب اسم مربع النص ( tx23 = المجموع الكلي لعام 2023 ... وهكذا ) ، وقمت بإخفائها  ، لكنها موجودة وتحمل قيم.

وأكرر نصيحتي لك ( لا تترك حقول رقمية لا تحمل قيمة 0 ان كانت فارغة ليسهل عليك الجمع فيها )

 

 

تم تعديل سبتمبر 30, 2023 بواسطه Foksh

[دروب مبرمج]

تفضل هذا التعديل 

 

انشئ موديول جديد و الصق به الشفرة التالية و استخدمها كيفما شئت

' المجموع للشخص الواحد لسنة محددة
Public Function OneYears(SetID As Integer, SetYear As Integer)
Dim SetCol As Variant, i As Integer

    SetCol = Null
        For i = 1 To 12
            SetCol = "[" & MonthToNo(i) & "-" & SetYear & "]"
            OneYears = OneYears + Nz(DSum(SetCol, "[Year_" & SetYear & "]", "[ID]=" & SetID), 0)
        Next i
End Function

' المجموع لجميع الأشخاص و جميع السنوات
Public Function AllYears()
Dim SetCol As Variant, i As Integer, x As Integer, SetYear As Integer

    SetCol = Null
    For x = 2023 To 2025
        For i = 1 To 12
            SetCol = "[" & MonthToNo(i) & "-" & x & "]"
            AllYears = AllYears + Nz(DSum(SetCol, "[Year_" & x & "]"), 0)
        Next i
    Next x
End Function

Public Function MonthToNo(SetMonth As Variant)
Select Case SetMonth
    Case Is = 1: MonthToNo = "Jan"
    Case Is = 2: MonthToNo = "Feb"
    Case Is = 3: MonthToNo = "Mar"
    Case Is = 4: MonthToNo = "Apr"
    Case Is = 5: MonthToNo = "May"
    Case Is = 6: MonthToNo = "Jun"
    Case Is = 7: MonthToNo = "Jul"
    Case Is = 8: MonthToNo = "Aug"
    Case Is = 9: MonthToNo = "Sep"
    Case Is = 10: MonthToNo = "Oct"
    Case Is = 11: MonthToNo = "Nov"
    Case Is = 12: MonthToNo = "Dec"
End Select
End Function

مرفق الملف بعد التعديل

 

 

Fam.mdb

تم تعديل أكتوبر 1, 2023 بواسطه دروب مبرمج

[zhmaid]

الله يجزيكم عني الف خير ..... ما قصرتو

اشتغل معي زي الحلاوه

اشكر الجميع مره اخى ......... والله اروع منتدى الله يديمكم