كيف يمكن عمل جمع تفصيلي بعد تصفية النموذج حيث أن الدالة DSum تحسب المجموع من الجدول مباشرة باستخدام جميع السجلات و لكني أريد أن أجمع مثلاً المبالغ النقدية أو الآجلة لمجموعة من السجلات فقط بعد تصفية السجلات بناء على قيمة حقل آخر ؟
جمع تفصيلي بعد تصفية النموذج
مغلق
اجعل في النموذج مربع نص غير منضم ثم في خصائص مربع النص في البيانات في مصدر عنصر التحكم اكتب :
=Sum([num])
على فرض ان num اسم الحقل في الجدول أو الاستعلام مصدر السجل للنموذج والذي تريد تجميعه .
بهذه الطريقة يتغير المجموع حسب السجلات المعروضة في النموذج .
شكراً أخي حارث على هذا الرد و لكني أقصد جمع مثلاً حقل المبلغ مع وجود شرط من حقل آخر في نفس النموذج ؟
مثلاً في نموذج مستمر يوجد به حقل اسمه المبلغ و حقل آخر باسم النوع و ما أريده هو جمع حقل المبلغ للمبالغ النقدية ( حقل النوع ) و جمع المبلغ للمبالغ الآجلة ( حقل النوع )
أرجو أن يكون السؤال واضحاً
لم أجرب هذه الطريقة لكن ممكن تنفع :
Dim MyStr
If Me.FilterOn = True And Me.Filter <> "" Then MyStr = " And " & Me.Filter
Me.Text1 = DSum("[Field]", "[table]", "[النوع]='آجل'" & MyStr)استبدل Field باسم الحقل في الجدول الذي تريد مجموعه .
استبدل table باسم الجدول .
استبدل Text1 باسم مربع النص الذي تريد أن يظهر فيه المجموع .
ويمكنك وضع هذا الزر في خصائص زر أمر في حدث عند النقر أو في خصائص النموذج في حدث عند تطبيق عامل التصفية.
حيلة أخرى :
ضع حقل جديد في الاستعلام مصدر النموذج واجعل قيمته :
Expr1: IIf([النوع]<>"آجل";Null;[النوع])
ثم اجعل في النموذج مربع نص غير منضم ثم في خصائص مربع النص في البيانات في مصدر عنصر التحكم اكتب :
=Sum([Expr1])
مثال على الطريقتين :
جرب هذه الطريقة ان شاءالله يكون فيها الحل
الأخوة / حارث وطالب علم
شكراً لكما على إدراج الأمثلة ، أنا أيضاً أستفدت منها.
جزاكم الله ألاف الخيرات. (f)
هذا الموضوع مغلق.