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

[ابو محمد 4]

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

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

بارك الله فيه

هل يمكن شرحه

وكيف يمكن استدعائها فى التقارير 

----------------------

'====================================================================================================================

Public Function fnAreaSahm(myval As Integer)
Dim si As Integer, qi As Integer, fi As Integer
If IsNull(myval) = True Then Exit Function
fi = myval \ 576
qi = (myval Mod 576) \ (24)
si = (myval Mod 576) Mod (24) Mod (24)
fnAreaSahm = si
End Function
Public Function fnAreaQerat(myval As Integer)
Dim si As Integer, qi As Integer, fi As Integer
If IsNull(myval) = True Then Exit Function
fi = myval \ 576
qi = (myval Mod 576) \ (24)
si = (myval Mod 576) Mod (24) Mod (24)
fnAreaQerat = qi
End Function
Public Function fnAreaFdan(myval As Integer)
Dim si As Integer, qi As Integer, fi As Integer
If IsNull(myval) = True Then Exit Function
fi = myval \ 576
qi = (myval Mod 576) \ (24)
si = (myval Mod 576) Mod (24) Mod (24)
fnAreaFdan = fi
End Function

'=============================================

بمعنى 

لدى مساحه جمعتها بالاسهم 

كيف يمكن تحويلها الى 

سهم قيراط فدان

مثلا 1200 سهم

بتساوي

............ سهم 

...........  قيراط

......... فدان

[ابوخليل]

عليكم السلام

myTxtSahm=fnAreaSahm([حقل المجموع الكلي(اسهم)])
myTxtQerat=fnAreaQerat([حقل المجموع الكلي(اسهم)])
myTxtFdan=fnAreaFdan([حقل المجموع الكلي(اسهم)])

اتمنى ان هذا واضح

باعتبار myTxtSahm  هو حقل الاسهم في التقرير 

و  myTxtQerat  هو حقل  القراريط التقرير

و  myTxtFdan  هو حقل الأفدنة في التقرير

[ابو محمد 4]

السلام عليكم

للاسف فشل ورغم كثرة المحاولات

 

[ابوخليل]

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

واجمالي ما  سبق هذا مكانه رأس التقرير وليس الذيل

على كل حال ادخل بيانات وافية كافية تغطي اكثر من صفحة .... ثلاث صفحات على الأقل  ثم ارفع المرفق 

اجمالي ما  سبق لا يظهر الا اذا كانت البيانات أكثر من صفحة

[ابو محمد 4]

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

DataFarm12.rar

[ابوخليل]

تفضل :

جمع كل صفحة / ومجموع ما قبله / والمجموع الكلي .

اولا تم التجميع على مستوى الاعمدة ثم استخراج الاجمالي حسب المعادلة

حقول التجميع تمت تغطيتها بحقول الاجمالي بحيث تختفي تحتها

DataFarms.rar

[ابو محمد 4]

نعطي انفسنا الوقت الكافي للفهم ومحاولة التعلم 

استاذى ومعملي الفاضل باارك الله فيكم

وسلمت الايادي يا رب