التعديل على ملف توزيع الخدمة الوظيفية بالسنوات

[Ahmed_J]

السلام عليكم

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

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

تحياتي

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

 

تم تعديل مارس 20 بواسطه Ahmed_J

[Foksh]

عمل جميل أستاذ @Barna 

[Barna]

14 دقائق مضت, Foksh said:

عمل جميل أستاذ @Barna 

منكم تعلمنا الجمال اخي @Foksh

بارك الله فيك