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

[حربي العنزي]

السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته

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

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

AlawatProgram3.rar

وهذه الصورة المرفقة

[Shivan Rekany]

6 ساعات مضت, حربي العنزي said:

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

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

اتفضل اليك هذا

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

Private Sub ID_AfterUpdate()
    If IsNumeric(Me.ID) Then
        Me.salaryname = DLookup("[salarynew]", "[TblSub]", "[ID]=" & Me.ID - 1 & "And [namee]='" & Me.namee & "'")
        Me.Lastdate = DLookup("[asthkakdate]", "[TblSub]", "[ID]=" & Me.ID - 1 & "And [namee]='" & Me.namee & "'")
    End If
End Sub

لكن يجب ان يكون اي دي الجديد بيكون رقم 
ويجب ان تكتب اي دي اكبر من اي دي السجل القبله
 

 

AlawatProgram3.rar

[حربي العنزي]

استاذي الفاضل شفان ربي يحميك من كل سوء يارب 

نعم هذا هو المطلوب تماما 

جزاك الله خيرا سائلا الله جل وعلى ان يمن عليك بالصحة والعافية يارب