الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

خطأ فى التجميع من فورم فرعى

بدأه khyrabak في 20 أغسطس 2009 · 4 رد · 516 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

بعد التحية ,,,الأخوة الكرام

فى كشف حساب العملاء هناك خطأ أود علاجة

لو لم يكن هناك سجلات فى الفواتير تعطى خطأ

الرجاء الحل من ذو المعرفة

Copy_____________.rar

#2

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

اخي الكريم في استعلام التموذج الفرعي و كما تلاحظ لا يوجد اي سجل لذا لا يظهر مربع النص الذي تجمع عليه

احد الحلول انك تظهر جميع العملاء في الاستعلام سيظهر سجل فارغ و بذلك يكون ناتج الجمع صفر

ارجو مراجعة النموذج و الاستعلامات التي يعتمد عليها النموذج الفرعي و شوف ايش التغييرات و ان اعجبك هذا الحل اجريه على شاشة الموردين

تقبل خالص تحياتي و اعجابي بهذا العمل الرائع

Copy_____________.rar

xxupxx-822ef3e5e3.gif

xxupxx-94c7b036cc.gif

#3

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

تحياتي اخي العبدلي2006

اخي khyrabak

استخدم HasData

مثال

=IIf([Orders].[Report].[HasData];[Orders].[Report]![OrderCount];0)

مثال 2

=IIF([subRpt].Report.HasData=True,[subRpt].Report![TotFreight], 0)

انظر هذه المشاركة ستستفيد منها كثيرا

لا تؤجل عمل اليوم الي الغد

#4

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

شكر جزيلا أخى العبدلي2006

وأخى المحاسب الجديد

بالنسبة للكود والمشاركة جربت عليها كثيرا ولكنها تعطينى خطأ لأنها فورم وليس تقرير وجربت الكود

[=IIf(frm_sub_agents_bills.form.HasData;nz(frm_sub_agents_bills.form.txtsalag;0);0

)

وتعطينى خطا

برجاء المحاولة معها لأنى عجبتنى الفكرة وأفضل إستخدام الكود للوصول للحل

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

#5

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

بارك الله فيكم اخواني وجزاكم خير الجزاء

عندي فكرة فيما يخص الحل .. وهي اختبار عدد سجلات النموذج الفرعي فإذا كانت صفر تكون قيمة مربع النص صفر واذا كانت غير ذلك نأخذ قيمة مربع نص الاجمالي بالنموذج الفرعي

الكود سيكون كالتالي لمجموع نموذج السداد

If Me.frm_sub_agents_sadad.Form.Recordset.RecordCount = 0 Then
Me.txtsadag = 0
Else
Me.txtsadag = Form!frm_sub_agents_sadad!txtsadrec
End If

ارجو ان يفيد هذا الحل

بالتوفيق

مواضيع مشابهة