مساعدة في عملية حسابية

وعليكم السلام اخي ناصر :)

انا انزلت قاعدة بياناتك ، ولم استطع تحديد طلبك :(

رجاء اعطنا توضيح مفصّل ، وبالصور لو امكن :)

جعفر

شكرا ععلى الرد

 طلبي هو عند اختيار من النموذج pay  في خانة  يرقى ويرتب المعني (ة) بالأمر حسب المدة هنا يوجد اختيارت( دنيا المتوسطة القصوى )هذه حالات الترقية في الدرجة الموظف

اريد عند اختيار مثلا الدنيا تنقص سنتين02 من مجموع الرصيد

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

حتى ابسط لك اخي طلبي

مثلا اقول اذا اخترت دنيا من مربع السرد مسمى hada darajat   تطرح من الخانة   مجموع الرصيد سنة  2(سنة)  و تظهر النتجة المتبقية في حقل اسمية مثلا  الباقي سنة

ترقية في الدرجات الموظف.rar

اخي ناصر :)

1. نعمل الحدث بعد التحديث للحقل:

ولما نظرت للحقل total rasid année ، فاذا به حقل فيه معادلة ،

لذا ، فيجب ان نزيل المعادلة ونضعها في كود الحدث بعد التحديث (انظر رقم 1 اعلاه) :

Private Sub hada_darajat_AfterUpdate()

    Select Case Me.hada_darajat
        	Case "الدنيــــــا"
            Me.total_rasid_année = [année baki2] + [année baki1] - 2
            
              Case "المتوسطة"
        
        
             Case "القصوى "
        
    
    End Select
    
End Sub

وعندي لك ملاحظة:

في الجدول pay ، لاحظت ان السنة1 هي عبارة عن نص ، بينما السنة2 هي رقم!!

فلو سمحت انك تغير السنة1 الى رقم ، حتى يعمل البرنامج بالطريقة الصحيحة :)

جعفر

شكرالك اخي جعفر لمساعدة جزاك الله خيرا

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

قمت بتجربة الكود لكن الناتج لم يظهر في خانة  total_rasid_année 

مشكلة اخي جعفر كانت في  كتابة بلغة العربية لا ياخذها بعين اعتبار وعندما كتبت بفرنسيى بدل كلمة دنيا الى moyen ظهر الناتج

في الحقل اين الحل مهنا اخي جعفر

اخي جعفر ممكن طلب منك طلب  اخر

اذا كان الناتج اكبر من 2 سنة  ونصف  كيف اجعله يطرح سنتين ونصف عند اختياري مدة الدنيا 

ويجمع النصف سنة المتبقيي في خانة  total_rasid_mois اي متبقي بشهر على شكل رقم  6 اشهر

تحليل وتطبيق ممتازين :)

والآن علشان قيمة total_rasid_année  تظهر عندما تنتقل من سجل الى آخر ، ضع هذا الكود قبل او بعد الحدث السابق (الذي ارسلته لك سابقا):

Private Sub Form_Current()

    Call hada_darajat_AfterUpdate
End Sub

جعفر

اخي جعفر

لقد اضفت لك رد لمساعدتي ارجو منك اجابة ان تكرمت اخي

اذا كان الناتج اكبر من 2 سنة  ونصف  كيف اجعله يطرح سنتين ونصف عند اختياري مدة الدنيا 

ويجمع النصف سنة المتبقيي في خانة  total_rasid_mois اي متبقي بشهر على شكل رقم  6 اشهر (نصف سنة)

ترقية في درجات الموظفين.rar

اخي ناصر

1. انا عملت جدول خاص لـ hada_darajat ، لأني ما استطعت ان اشتغل بغير هذه الطريقة ، والجدول هو:

2. جرب البرنامج مثل ماهو وانظر الى نتائج total_rasid_année ،

للتجربة ، انا استعملت القيم التالية:

الدنيـا = -2

المتوسطة = -3

القصوى = -4

والكود الآن خالي من الكلمات العربية:

Private Sub hada_darajat_AfterUpdate()
 

    Select Case Me.hada_darajat
        Case "Donya"
            Me.total_rasid_année = [année baki2] + [année baki1] - 2
       
        Case "Motawasita"
            Me.total_rasid_année = [année baki2] + [année baki1] - 3
          
        Case "Qoswa"
            Me.total_rasid_année = [année baki2] + [année baki1] - 4
            
    End Select
        
    
End Sub

بعد ان تقوم بتجربة الكود ، وذلك بتغيير قيم hada_darajat في النموذج ، وملاحظة النتائج في total_rasid_année.

اعطني امثلة عن الطلب الآخر الذي تريده لوسمحت في شكل جدول ، بحيث يعطيني بعض الارقام للحقل total_rasid_année وما قد يبقى منه ، وكيف تريد ان نتعامل معه.

جعفر

234.2.ech.mdb.zip

شكرا كثير لك اخي جعفر لمساعدة لتوضيح طلبي

اني اريد ان اتوصل لحساب اقدمية الموظفين اي  القديمة و الجديدة عن طريق تاريخ من الى و من ناتج التاريخ اجمع المدة القديمة + المدة الجديدة

مثال  année baki2 + année baki1 = ناتج يكون 2 سنة+3سنوات = 5 سنوات و هذا الناتج يظهر في  total_rasid_année وعندما اختار المدة الدنيا تنقص من الناتج سنتين ونصف واذا كان الناتج مجموع سنتين فقط  فيخض نصف سنة من الشهر اذا وجدت  اما المدة المتوسطة 3 سنوات و القصوى 3 سنوات و نصف هنا ابا يخص السنوات ونفس الشيا يتكرر مع الشهر و اليوم  الناتج اخي  جعفرواريده ان يظهر في الرصيد الباقي على شكل عدد و ليس تاريخ

المشكلة في نصف سنة التي اذا لم تتوفر في خانة total_rasid_année يخصمها من  الشهرtotal_rasid_moi اذا توفرت 

وكيف اجعل سنتين ونصف هل اكتب 2.5 مشكلة

و سوف اكون لك شكورا اخي جعفر