السلام عليكم
تفضل الكود كامل مع البرنامج
الله يبارك فيك
تحياتي
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