كتابة معاده مع تطبيق شرط

أهلاً وسهلاً بك عضواً نافعاً إن شاء الله

هذا مثال على البرنامج حسب طلبك

أضغط هنا لتحميله .. أكسس 2000

وتقبل تحياتي

جزاك الله خير اخوي سعودي31

إن شاء الله اطبقها على البرنامج عندي واعطيك النتيجه

الاخ سعودي 31

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

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

أي ان يظهر اصغر الرقمين امل اني شرحت المطلوب

اما الكود الموجوده في القاعده التي كتبتها اعتقد انه يظهر الناتج اذا كان اقل من ربع الراتب اما اذا كان اكثر تظهر رسالة تنبيهية ؟ وهذا خلاف المطلوب شكراً جزيلا على محاولتك وان امكن التصحيح

علما اني استخدم اكسس2000 و 97 ويهمني التطبيق على 97

معقول 41 قراءه ولايوجد سوى مشاركة الاخ سعودي31 حتى ان كان الرد عدم المعرف على الاقل عشان اصرف نظر ؟

استبدل الكود الذي عندك في حدث ( عند الخروج ) وحدث (بعد التحديث) بهذا

قم بمسح الأول كاملاً ثم أنسخ هذا والصقه هناك فقط هذا كل شيء

=========

If [خارج] > ([الراتب] / 4) Then

MsgBox "لا يجوز لخارج الدوام أن يكون أكثر من ربع الراتب", 14, "تنبيه"

[خارج] = ([الراتب] / 4)

Else

[خارج] = ([الراتب] * [عدد_ساعات_العمل] / 240)

End If

[الاستحقاق] = [خارج]

========

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

MsgBox "لا يجوز لخارج الدوام أن يكون أكثر من ربع الراتب", 14, "تنبيه"

وتقبل تحياتي

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

وان كان الرد متاخر فعذراً.

الحمد لله

مع أني استغربت عدم ردك فاعتقدت أن العمل لم ينجح معك:D