أبو وليد قام بنشر سبتمبر 4, 2003 قام بنشر سبتمبر 4, 2003 عندي نموذج به مربع نص ( التاريخ) واخر ( السعر) وخصائص النموذج (نماذج مستمرة) ولدي مربعات نص لحساب متوسط السعر الى هنا تمام لكن عندما اريد حساب متوسط سجلات محدده اريد ان اضع مربع نص وعند ادخال عدد مثلا 10 اريد في مربع نص اخر ان يجمع حقل السعر لاخر 10 سجلات في النموذج كيف ؟ وفقك الله الجميع الرجاء عدم التذمر من كثر مشاركاتي 1
امير عاطف قام بنشر سبتمبر 4, 2003 قام بنشر سبتمبر 4, 2003 ضع هذا الكود عند حدث النقر لزر الأمر الذي تريد ..... 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
أبو وليد قام بنشر سبتمبر 4, 2003 الكاتب قام بنشر سبتمبر 4, 2003 لم تنجح معي عند ادخال اي رقم تظهر رسالة "عفواً .. عدد السجلات المحددة اكبر من عدد سجلات النموذج", vbOKOnly, "فريق أوفيسنا" للمعلومية النموذج طريقة عرضه نماذج مستمرة
امير عاطف قام بنشر سبتمبر 4, 2003 قام بنشر سبتمبر 4, 2003 تظهر هذه الرسالة لأنه من المنطق لا يجب ان يكون عدد السجلات التي بالنموذج اقل من الرقم الذي قمت بكتابته ويجب عليك ادخال رقم اقل من او يساوي السجلات التي بالنموذج و ها هو مثال لذلك مع المرفقات SumtionLastRec.zip
أبو وليد قام بنشر سبتمبر 5, 2003 الكاتب قام بنشر سبتمبر 5, 2003 بارك الله فيك نعم انا الغلطان في كتابة المسميات
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.