عملية حسابية من جدولين في تاريخ محدد..

أنشأ نموذجاً غير معتمد على جدول أو استعلام

ضع ستة حقول نص

1- txtNumCli ... رقم العميل

2- txtDateBegining

3- txtDateEnding

=====

4-txtResult1 مجموع المصروفات

5-txtResult2 مجموع الإيرادات

6-txtResult3 الفرق بين المصروفات والإيرادات

=============

.

txtResult1=Nz(Dsum("[مبلغ المصروف]","جدول المصروفات","رقم العميل=txtNumCli And التاريخ Between  txtDateBegining And txtDateEnding"))

txtResult2=Nz(Dsum("[مبلغ الإيراد]","جدول الإيرادات","رقم العميل=txtNumCli And التاريخ Between  txtDateBegining And txtDateEnding"))

txtResult3=txtResult1-txtResult2

أرجو أن تكون في هذه الطريقة الفائدة

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

أين يوضع الكود ؟؟؟

وشكراً لك

الاخ فتى الوادي

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

كل عام وانتم بخير

حياك الله يا أبو دانية ..

وكل عام وأنتم بصحة وعافية ..

تستطيع أن تضع جميع الكود في حدث بعد التحديث لتاريخ نهاية المدة ، ثم بعد ذلك عليك إضافة بعض البهارات ( بس لاتكون هندية انتبه ، ترى يحترق البرنامج ) مثل مسح الحقول عند تغيير اسم العميل ، إذا لم يتم إدخال تاريخ بداية المدة تظهر رسالة بوجوب إدخاله وهكذا بالطريقة التي تتناسب مع طريقة استخدامك للبرنامج وبالتوفيق .

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

نسخت الكود ووضعته بعد التحديث للحقل الثالث ( نهاية التاريخ )

وطلع لي رسالة :

run time error 3057

خطأ في بناء الجملة ( عامل مفقود ) في تعبير أستعلام txtResult1 = Nz(DSum("[مبلغ المصروف]", "جدول المصروفات", "رقم العميل=txtNumCli And التاريخ Between txtDateBegining And txtDateEnding"))

ماهي المشكلة ...؟؟!!

انظر في هذا المثال

http://mypage.ayna.com/alharbicom/dbSUM.zip

الأخ أحمد الحربي ....

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

المثال ممتاز جداً .. ويعطيل العافية .. وما قصرت ...

بارك الله فيك وفي علمك .. وزادك الله علماً ونفع بك وبعلمك ..

والسلام .

العزيز فتى الوادي

آمر باللي أقدر عليه .. بس يكون على قدي