حساب مجموع آخر عشر سجلات أو اي عدد حسب الطلب

[أبو وليد]

عندي نموذج

به مربع نص ( التاريخ)

واخر ( السعر)

وخصائص النموذج (نماذج مستمرة)

ولدي مربعات نص لحساب متوسط السعر

الى هنا تمام

لكن عندما اريد حساب متوسط سجلات محدده

اريد ان اضع مربع نص وعند ادخال عدد مثلا 10 اريد في مربع نص اخر ان يجمع حقل السعر لاخر 10 سجلات في النموذج

كيف ؟

وفقك الله الجميع

الرجاء عدم التذمر من كثر مشاركاتي

[امير عاطف]

ضع هذا الكود عند حدث النقر لزر الأمر الذي تريد .....

If bnumber > Me.RecordsetClone.RecordCount Then

MsgBox "عفواً .. عدد السجلات المحددة اكبر من عدد سجلات النموذج", vbOKOnly, "فريق أوفيسنا"

Exit Sub

ElseIf IsNull(bnumber) Then

MsgBox "عفواً .. يجب كتابة السجلات المراد حساب مجموعها أولاً", vbOKOnly, "فريق أوفيسنا"

Else

On Error Resume Next

Dim db As DAO.Database

Dim rst As DAO.Recordset

Set db = CurrentDb

Set rst = Me.RecordsetClone

rst.MoveFirst

rst.Move Me.RecordsetClone.RecordCount - bnumber

Dim LngNumber As Long

LngNumber = rst!number

Do Until rst.EOF

rst.MoveNext

LngNumber = rst!number + LngNumber

Loop

FinalValue = LngNumber

rst.Close

db.Close

End If

حيث عندما تضغط على زر الأمر الذي به هذا الكود يتم كتابة مجموع اخر عشر سجلات للحقل المسمى number في النموذج في مربع النص المسمى FinalValue وهناك ايضاً مرونه في ذلك حيث يمكنك حساب مجموع آخر أي عدد من السجلات وليس آخر عشر سجلات فقط وذلك بمجرد كتابة عدد السجلات الذي تريد حساب مجموعها في مربع النص المسمى bnumber ... فمثلاً لو قمت بكتابة الرقم 8 داخل مربع النص bnumber ثم قمت بالضغط على زر الأمر الذي به الكود السابق فيتم حساب مجموع اخر ثمان سجلات للحقل المسمى number بالنموذج ويتم وضع الناتج بمربع النص المسمى FinalValue

[أبو وليد]

وفقك الله سوق اجرب واخبرك بالنتيجة

[أبو وليد]

لم تنجح معي

عند ادخال اي رقم تظهر رسالة

"عفواً .. عدد السجلات المحددة اكبر من عدد سجلات النموذج", vbOKOnly, "فريق أوفيسنا"

للمعلومية النموذج طريقة عرضه نماذج مستمرة

[امير عاطف]

تظهر هذه الرسالة لأنه من المنطق لا يجب ان يكون عدد السجلات التي بالنموذج اقل من الرقم الذي قمت بكتابته ويجب عليك ادخال رقم اقل من او يساوي السجلات التي بالنموذج

و ها هو مثال لذلك مع المرفقات

SumtionLastRec.zip

[أبو وليد]

بارك الله فيك

نعم انا الغلطان في كتابة المسميات