Ahmed_J

السلام عليكم 

دقة الشاشة عندي 1366*768  ونظام وندوز7 واكسس 2010

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

السلام عليكم

استاذ @Eng.Qassim

شلونك   ان شاء الله تكون بالف خير

جربت الكود وهو شغال 

لازم تعمل كود لكل شهادة على حده (دكتوراه و ماجستير و دبلوم عالي) الخ

تسلم  شيء روعة والله

انا عم اعمل برنامج لاضافة الخدمة (العقد والاجر اليومي) الخ

انت عارف ان اغلب الموظفين القدماء لايتناسب الراتب مع الخدمة (تسكين) الخ

ربي يحفظك من كل مكروه

تحياتي

استاذ @Barna

كل شيء تمام

الله يبارك فيك

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

تحياتي

استاذ كلها صحيحة

فقط اريد مثال آخر  واحد فقط من الدرجة السادسة الى الخامسة  بسبب اختلاف الحقول

تحياتي

تعم صحيحة النتائج

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

يعني الخامسة او الرابعة 

استاذ @Barna

النتائج صحيحة بالصور بالنسبة للدرجة 8-2

لكن الجدول سوف يتغير من الدرجة الخامسة فيه حقل مختلف

شكرا  لك

السلام عليكم

استاذي العزيز  @Barna

الله يبارك فيك

تحياتي

السلام عليكم

هل ممكن احد الاساتذه يخبرني هل يوجد حل ام لا

تحياتي للجميع

UP

UP

السلام عليكم

لدي ملف فيه الدرجة الوظيفية والمرحلة الوظيفية وجدول الراتب (Salary) 

عند اختيار الدرجة الوظيفية والمرحلة الوظيفية يقوم البرنامج بجلب الراتب من الجدول في حقل (الراتب القديم) .وهو يعمل جيدا

لدي طلبين 

الطلب الاول: جلب الراتب الجديد من الجدول في حقل (الراتب الجديد) بشرط اضافة عدد العلاوات مثلا (3) علاوات 

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

الى الحقول الاعلى وهكذا  كما في الصورة بحيث يكون الراتب الصحيح هو (296000)

الطلب الثاني: تعديل الدرجة الوظيفية الجديدة والمرحلة الوظيفية الجديدة بناءً على الراتب الجديد من الجدول (salary)

علما بان (Gradeno) هي الدرجة الوظيفية و الارقام من (1-5)  هي المرحلة الوظيفية

تحياتي

Ahmed.mdb

السلام عليكم

تفضل الكود كامل مع البرنامج

الله يبارك فيك

تحياتي

Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim i, TT As Integer
    Dim numCopies As Integer
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT tp2.GradeNO, tp2.سنوات_المكوث FROM tp2 WHERE (((tp2.GradeNO)<=" & Me.الدرجة_الوظيفية & ")) ORDER BY tp2.GradeNO DESC;", dbOpenDynaset)
    TT = iYear
    Do Until rs.EOF
        TT = TT - rs!سنوات_المكوث
        numCopies = rs!سنوات_المكوث
            If TT < rs!سنوات_المكوث Then
                Me.مربع_تحرير_وسرد47 = rs!GradeNO - 1
                Me.مربع_تحرير_وسرد49 = Me.المرحلة_الوظيفية + TT
                rs.MoveNext
                GoTo RR
                'Exit Sub
            End If
            
        For i = 1 To numCopies
        Next i
        rs.MoveNext
    Loop
RR:
            If Me.مربع_تحرير_وسرد49 > rs!سنوات_المكوث Then
                Me.مربع_تحرير_وسرد47 = rs!GradeNO - 1
                Me.مربع_تحرير_وسرد49 = Me.المرحلة_الوظيفية - 1
                Exit Sub
            End If
    rs.Close
    Set rs = Nothing
    Set db = Nothing

final.mdb

السلام عليكم

استاذي العزيز @Barna

شكرا لك

بارك الله فيك

اصبح البرنامج شغال 100%  بعد تعديل كود واحد فقط الى:

Me.مربع_تحرير_وسرد49 = Me.المرحلة_الوظيفية - 1

تحياتي

السلام عليكم

هذه احدى الاخطاء استاذي العزيز

السلام عليكم

استاذ @Barna

لسه فيه اخطاء 

اعتقد ان المشكلة في سنوات المكوث في الجدول

لانها تكون 4 سنوات  واحيانا 5 سنوات

استاذ @Barna

والله تعبتك كثير معي

الله يحفظك من كل مكروه

النتائج اكثرها اصبحت غير صحيحة

استاذي العزيز

فكرتك صحيحة جدا ؟ لكن 

المرحلة الوظيفية يعني سنوات الخدمة

مثلا فترة المكوث= 4 سنوات لماذا يبقى الموظف  5 سنوات في المرحلة الوظيفية 

المفروض ينتقل الى درجة وظيفية اعلى  عند وصوله للمرحلة 4 

اي يجب ان لاتكون  المرحلة الوظيفية اكبر من فترة المكوث 

يعني ينقص درجة  يصبح  الدرجة 6  المرحلة 1

كما في الصورة 3

السلام عليكم

استاذ @Barna

النتائج ان شاء الله طيبة

الصورة (1) و الصورة (2) النتائج صحيحة  عندما يتكون المرحلة الوظيفية السابقة =1 

الصورة (3) غير صحيحة  لان المرحلة الوظيفية السابقة اكبر من 1

المفروض تكون الدرجة الوظيفية الجديده =6  والمرحلة الوظيفية الجديدة =1

السبب : لان المرحلة الوظيفية الجديده في الصورة (3) = 5  وان فترة المكوث =4     

الصحيح ان الموظف يرتفع درجة ويصبح = 6   والمرحلة الوظيفية =1

 تحياتي      

السلام عليكم

شكرا لك استاذ @Barna

المشكلة انني ما عم اقدر اوصل الفكرة بصورة صحيحة ؟؟

نفترض ان موظف في الدرحة الثامنة والمرحلة الاولى

المهم : لوكان الموظف لديه 7 سنوات خدمة اضافية  راح نطرح (4) سنوات  (فترة المكوث) ونضيف بدلا منها درجة وظيفية  والباقي  (3)  سنوات تجمع مع

المرحلة الوظيفية السابقة

فتصبح النتيجة الدرجة 8  والمرحلة 4

السلام عليكم

استاذي العزيز @Barna

شكرا للمتابعة بارك الله فيك

ملاحظة : المرحلة الوظيفية الجديدة تبقى محصورة بين (1- 5) حسب فترة المكوث في الجدول tp2 

الفكرة صحيحة لكن الاحتساب فيه مشكله

لو قمنا بزيادة الخدمة المضافة سنة واحدة  واصبحت 8 سنوات بدلا من 7 

المفروض البرنامج يحتسب درجتين وتصبح الدرجة الجديدة 7 المرحلة 1 وليس 8-9

تحياتي

السلام عليكم

استاذي العزيز @Barna

خليني اشرح لك :

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

مثلا موظف حاصل على شهادة البكالوريوس يتم تعيينه في الدرجة الوظيفة السابعة / المرحلة الوظيفية الاولى (يعني 7-1)

بعد مرور 4 سنوات خدمة وظيفية يتم ترفيعه الى الدرجة السادسة / المرحلة الاولى يعني (6-1) وهكذا  حسب الجدول  الموجود في الصورة

يعني باختصار (يتم ترفيع الموظف من الدرجة العاشرة  الى الدرجة السادسة كل 4 سنوات  ومن الدرجة الخامسة الى الدرجة الاولى كل 5 سنوات)

---------------------------------------------------------------------------------------------------------------------------------------

المطلوب : توزيع الخدمة_المضافة_سنة مثلا (7) سنوات يتم مقارنتها بالدرجة الوظيفية بالنموذج مع الجدول tp2 

(اي لوكان الموظف في الدرجة التاسعة  والمرحلة الاولى نضيف له درجة واحدة  وثلاث مراحل وظيفية )  لان فترة مكوثه 4 سنوات

فتصبح الدرجة الوظيفية الجديدة = 8 والمرحلة الوظيفية الجديدة =4 (اي يتم توزيعها) وهكذا

تحياتي

السلام عليكم

لدي ملف لاضافة الخدمة الوظيفية بالسنوات من خلال الحقل (الخدمة_المضافة_سنة)

المطلوب : توزيع الخدمة_المضافة_سنة مثلا (7) سنوات يتم مقارنتها بالدرجة الوظيفية بالنموذج مع الجدول tp2 

(اي لوكان الموظف في الدرجة التاسعة  والمرحلة الاولى نضيف له درجة واحدة  وثلاث مراحل وظيفية )  لان فترة مكوثه 4 سنوات

فتصبح الدرجة الوظيفية الجديدة = 8 والمرحلة الوظيفية الجديدة =4 (اي يتم توزيعها)

تحياتي

test.mdb

في 12‏/3‏/2024 at 22:10, Ahmed_J said:

استاذي العزيز @Foksh

يصبح التاريخ2023 29/2/3

استاذ @Barna  استاذ @Foksh عذرا لم انتبه الى السنة

انا آسف منك لقد اخطات  المفروض في عام 2023 يصبح 28/2/2023  وفي عام 2024 يصبح 29/22024

تحياتي

السلام عليكم

استاذ @ابوخليل 

استاذ @Foksh

استاذ @Barna

جزاكم الله خير الجزاء وجعلها في ميزان حسناتكم

لقد قمت بالتعديل على ملف الاستاذ Barna والنتائج كانت طيبة

يرجى منكم تجربة الملف بعد التعديل  ان كانت فيه اخطاء

تحياتي لكم

301.Dates_Calculations2.mdb