عمليات حسابية في النموذج

اخي الكريم nart lebzo ارفق المثال ... ذلك افضل للحصول على ماتريد ... فأن الاعضاء الكرام ما يقصرون

اخي الفاضل

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

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

لهذا في برنامج الاكسيس تظهر الاخطاء عند كتابة عملية حسابية خاطئة لهذا يجب توخي الحذر اثناء كتابة المعادلات الحسابية ويجب ان توضع العمليات المتساوية ( مثل الجمع او الطرح ) للحقول داخل اقواس مثل

([PRICE]+[TRUK])-([TASK]/100)

وهذا مثال

TASK.rar

اختكم

زهره

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

الاخت الفاضلة زهرة ... نفع الله بعلمك و جعل قولك وفعلك في ميزان حسناتك ... والله ندعو لك بظهر الغيب

اختي الفاضة ... الاخوة الافاضل

ما اريده هو كود لاحتساب حاصل ( القيمة * 5.5% ( تحتسب في TASK )) ، بحيث لا اضطر لاحتساب القيمة كل مرة كونها قيمة ثابتة .

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

بالضبط كما قالت معلمتنا الاستاذة زهرة فلا بد من مراعاة اولويات العمليات الحسابية سواء اكسيس او اي برنامج اخر

الاولويات هي:

1 - رفع الاسس

2 - فك الاقواس

3 - الضرب والقسمة

4- الجمع والطرح

ــــــــــــــــــــــــــــ

ففي سؤالك افترض ان

البضاعة = A

النقل = B

نسبة الضريبة هي 5%

فالمعادلة تكون

=(A+B)*.05

ـــــــــــــــــــــــــــــــــــ

وعموما وكما قل الاخ الكريم "الفيلسوف 111" - يفضل ارفاق ملف

شكرا لكم

اخي الفاضل

ضع هذه العبارة في خانة الضريبة

=[price]*((5.5)/100)

وضع هذه العبارة في خانة الصافي

=([PRICE]+[TRUK])-[TASK]

وسيتم الحساب مباشرة بدون تدخل منك

وهذا مثال بعد التعديل

TASK_up.rar

السلام عليكم

شكري الموصول وتقديري لكم جميعا ... الاخ الفيلسوف و الاخ ايهاب و الاخت الفاضلة زهرة ، فتواصلكم السريع والله يثلج الصدر ... فالمؤمن قوي باخوانه عزيز بهم

اخوتي الافاضل

حسب ما تكرمت و ارفقته الاخت زهرة اخيرا ، اصبح لدينا مشكلة بسيطة ان قيمة الضريبة و الصافي لا يتم حفظها في الجدول

اما التطبيق فقد نفذ بشكل ممتاز في نظامي العامل ، ولكن لا بد من تخزين القيم في الجدول لاهمية ذلك في تجميع القيم لاحقا لغايات حسابية و احصائية ، ولم اتمكن من حلها ...

ودمتم ... جزاكم الله عني خيرا

اخوكم :D

نارت لبزو

اذا كانت القيم الاساسية محفوظة في الجدول فيمكن بسهوله تجميع النتائج لغايات حسابيه و احصائيه دون الحاجه الى حفظ النتيجه . واذا اردت ايضاح اكثر يمكنك ارفاق مثال عن الجداول للوصول الى النتائج الحسابيه و الاحصائيه ان شاء الله.

حسنا اخي الكريم

اذا رغبت في ادراج القيم في الجدول فأنت تحتاج الى استعلام تحديث والطريقة كالتالي

1. قم بحذف العبارات التالية من النموذج السابق

TASK

[price]*((5.5)/100)

TOTAL

([PRICE]+[TRUK])-[TASK]

2. اجعل الحقلين TASK و TOTAL تأخذ قيمها من الجدول ( بالتأكيد ستكون خالية )

3. قم بعمل استعلام تحديث مبني على الجدول TABLE بالحقول TASK و TOTAL واكتب في خانة التحديث لهما العبارات السابقة التي تم حذفها من النموذج

TASK

[price]*((5.5)/100)

TOTAL

([PRICE]+[TRUK])-[TASK]

وعند عرض الاستعلام في SQL ستكون عبارته هكذا

UPDATE [TABLE] SET [TABLE].TASK = [price]*((5.5)/100), [TABLE].TOTAL = ([PRICE]+[TRUK])-[TASK];

تستطيع الان حذف الاستعلام فليس له لزوم بعد الان

4. الان انسخ هذه العبارة وقم بعرض النموذج في وضع التصميم واختر خصائص النموذج ومنه اختر التبويب حدث واختر حدث بعد التحديث ثم اجراء حدث ثم اختر المربع الصغير ذو الثلاث نقط بالضغط عليه وسيفتح لك محرر الفيجول بيسك .

5. الان ضع هذه العبارة كما هي بدون تغيير

Private Sub Form_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE [TABLE] SET [TABLE].TASK = [price]*((5.5)/100), [TABLE].TOTAL = ([PRICE]+[TRUK])-[TASK];"
DoCmd.SetWarnings True
End Sub

7. قم بحفظ العمل وقم بعرض النموذج الان ومن ثم الجدول وانظر النتيجة ستشاهد ان الجدول تم تحديث بياناته بناء على ما تم ادخاله في النموذج وخاصة الحقلين TASK (الضريبة ) و TOTAL ( الصافي )

وهذه المثال بعد التعديل

TASK_up2.rar

ملاحظة : تم ازالة الملف القديم وإدارج ملف جديد

اخي الكريم قول آمين ان الله يوفقك ويسامحك

لو انك ادرجت مثالك هنا لتم التعديل عليه مباشرة بدون كل هذا التعب ولكن لا عليك كل الامور سهلة ان شاء الله

اختكم

زهره

السلام عليكم

اختي الفاضلة ... الاخوة الاعزاء

اعتذر عن التاخير في الرد لعارض صحي ... عافاني و اياكم الله

الله .. المؤمن قوي باخوانه عزيز بهم

اشكركم جدا .. تجوالي في منتداكم في الفترة السابقة عزز ما اعرفه كثيرا و شكل لدي حبا و شوقا للمتابعة و التطور

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

و اعذريني يا اخت زهرة فانا قليل الخبرة بالمنتديات و اساليبها ، فعلمونا مما علمكم الله

و تقبل الله منكم الطاعات

اخوكم :lol:

نارت لبزو

السلام عليكم

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

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

اخي الكريم

لم اجد اي مشكلة في الملف السابق ولكن لا عليك لقد قمت بإزالة الملف القديم وإدارج ملف جديد وبإمكانك تحميله

اختكم

زهره

جزيت خيرا

اشهد الله اني احبكم في الله