كود تحديث سجل من سجل يليه بالجدول

تفضل اخي :)

الكود موجود في النموذج From1 على زر Update Table :

Private Sub cmd_update_Click()


    Dim rst As DAO.Recordset
    
    mFrom = 9   'copy data from month
    mTo = 10    'and paste to month
    
    'get the table data,
    'sort by emp_no, and month_no
    Set rst = CurrentDb.OpenRecordset("Select * From newsal_t Order by emp_no, month_no")
    'set the cursor position to the 1st Record
    rst.MoveLast: rst.MoveFirst
    
    'loop through the Records,
    For i = 1 To rst.RecordCount
    
        'go to the correct "From" month
        rst.FindFirst "emp_no=" & rst!emp_no & " And month_no=" & mFrom
        
        'get the fixed_sal value
        a = rst!fixed_sal
        
        
        'now find the "To" month
        rst.FindFirst "emp_no=" & rst!emp_no & " And month_no=" & mTo
        
        
        'edit/update the newsal value with a
        rst.Edit
        rst!newsal = a
        rst.Update
        
        'move to the next Record
        rst.MoveNext

    Next i
    
End Sub

وهذه النتيجة:

جعفر

98.db1.mdb.zip

استاذى الجليل جعفر اشكر لحضراتكم سرعة استجابتكم لى بحق انا لا اعلم كيف ارد فضلك وجميلك بارك الله فيك وزادك الله من فيض علمه وفضله وانعم اله عليكم بحفظ كتابه العزيز وادخل الله الجنه بكرمك وفضلك واغاثتك للمحتاج الف الف الف شكر جعله اله فى ميزان حسناتكم وجاازاك الله كل خير وفضل ... السلام عليكم ورحمة اله وبركاته 

اخيك المحتاج لعلمك عبدالحميد نصر

حياك الله :)