مشكلة فى اختيار الحساب على حدى

ضع مثالاً يتم التعديل عليه أفضل

المثال

problem.zip

لقد تم تحميل المثال

تفضل أخي الكريم .. ساجد لله

ملاحظة : لقد غيرت أسماء الحقول في النموذج إلى الإنجليزية

forum.rar

اخى الكريم أحمد الحربى حفظك الله

فعلا والله انا عاجز عن الشكر ، ولا املك الان سوى ان اقول لك جزاكم الله خير .

والله اسأل ان يثبت قدميك كما فى الحديث التالى ...

قال رسول الله صلى الله علية وسلم " احب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضى عنه ديناً ، أو تطرد عنه جوعاً ، ولأن أمشى مع أخى المسلم فى حاجة ، أحب إلي من ان أعتكف فى المسجد شهراً ، ومن كف غضبه ستر الله عورته ، ومن كتم غيظاً - لو شاء يمضيه أمضاه – ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم فى حاجته حتى يثبتها له ، أثبت الله قدميه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل

الاخ الكريم ...

ماذا لو اردنا حساب النافذة الحالية للفورم .. يعنى لو غيرنا البيانات بزر التالى يتغيير الناتج حسب النافذة الحالية .....

ولكن هو بهذة الطريقة يحسب كل البيانات التى فى القاعدة ...

جزاكم الله خير

إذن والحالة كما تقول .. فالطريقة أن تجعل نفس الشروط التي أظهرت بها السجلات التي أمامك تضعها أيضاً للكود الذي يقوم بالحساب

أخ احمد الحربى ،، جزاكم الله خيراً

هذا هو الكود

Me.txt5 = DSum("[totaldestaxend]", "[subBasic]", "dreba='0.05'")

Me.txt10 = DSum("[totaldestaxend]", "[subBasic]", "dreba='0.1'")

Me.txt25 = DSum("[totaldestaxend]", "[subBasic]", "dreba='0.25'")

فبهذة الطريقة يحسب الحقول على مستوى القاعدة ،،

ولا يتغيير بتغيير البيانات التى على النافذة ،،

فالمطلوب هو حساب للحالى فقط ، ويتغيير بتغيير الانتقال الى النافذة الاخرة

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

لأن مصدر النموذج هو الجدول فبمجرد انتقالك إلى سجل آخر سيتم تحديث السجل في الجدول من إضافة أو تعديل وعندها سيكون الحساب صحيحاً

لكن لو كان مصدر السجل استعلام يقوم بتحديد بعض السجلات دون بعض فاجعل الشرط في الكود مثل الشرط في الاستعلام

فعلاً أخى الكريم هو يستند الى استعلام ، وتم التغيير بما يناسب حقوق الاستعلام ولكن نفس النتيجة ، يحسب كل البيانات فى القاعدة

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

وعدلت الكود الى

'Me.txt5 = DSum("[totaldestaxend]", "forms!order!SubFormOrder", "dreba='0.05'")

'Me.txt10 = DSum("[totaldestaxend]", "forms!order!SubFormOrder", "dreba='0.1'")

'Me.txt25 = DSum("[totaldestaxend]", "forms!order!SubFormOrder", "dreba='0.25'")

ولكن لا جدوا ربما يكون فى خطأ فى الكود ، ارجوا من حضرتك القاء نظرة علية بما يناسب النموذج الفرع .

جزاكم الله خير