طرح مبلغ من حقل واعطاء كود بعد التنفيذ

[moham_q]

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

وكما موضح في الصورة المرفقة ادناه

تحياتي وامتناني لجميع الاخوة في المنتدى

dt.rar

تم تعديل سبتمبر 29, 2017 بواسطه moham_q

[يوسف أحمد]

و عليكم السلام

 

اخي العزيز محمد

 

سيتم ذلك في حقول محسوبة باستعلام تحديد سميته qry1

التعبير للحقل المحسوب cut  هو :

cut: IIf([slr]>[sco];[slr]-[sco];Null)

و التعبير للحقل المحسوب cod  هو :

cod: IIf(IsNull([cut]);0;1)

 

مع ملاحظة انه تم حذف الحقلين cut  و  cod من الجدول و استبدالهما بالحقلين المحسوبين بالاستعلام كما هو موضح اعلاه

 

تفضل المرفق بعد التعديل

 

بالتوفيق

 

 

 

 

dt.rar

[moham_q]

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

[moham_q]

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

الحقل sco

خالص تقديري و امتناني لك

تم تعديل سبتمبر 30, 2017 بواسطه moham_q

[يوسف أحمد]

سلمك الله من كل مكروه اخي العزيز محمد

بإمكانك تعيين قيمة افتراضية للحقل sco  بصفر حتى لا يترك الحقل فارغاً .

اذا كنت تريد عملية الطرح تتم  في حالة كان الحقل sco  فارغاً  فاستبدل التعبير بالتالي :

cut: IIf([slr]>[sco];[slr]-[sco];IIf(IsNull([sco]);[slr];Null))

 

بالتوفيق

[moham_q]

 استاذ يوسف المحترم سلمت يداك لقد جربتها عندي وتم التنفيذ بنجاح لكن في هذه الحالة بالنسبة لحقل الكود يعطي القيمة1  كيف لي ان اجعل قيمتها 0 في حقل الكود

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

انا جدا ممتن منك ومن تعاونك معي ربي يزيدك من علمه ويبعد عنك كل مكروه تحياتي

 

تم تعديل سبتمبر 30, 2017 بواسطه moham_q

[يوسف أحمد]

سلمك الله من كل مكروه اخي العزيز محمد

 

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

 

عموماً في هذه الحالة سيتغير التعبير للحقل الثاني cod الى التالي :

cod: IIf(IsNull([cut]);0;IIf(IsNull([sco]);0;1))

 

تفضل المرفق بعد التعديل 

 

بالتوفيق

dt.rar

[moham_q]

يا سلام عليك يا استاذ يوسف هذا هو المبتغى انا اتعبتك معي جدا خالص تقديري وامتناني على تعاونك و جهودك وفقك الله و جزاك خيرا