بعد إذن صديقي @عبد اللطيف سلوم
ضع هذا الكود تحت الحدث الزر ......
Dim c, i
c = DCount("[الراتب السابق]", "insedData")
DoCmd.GoToRecord , , acFirst
For i = 1 To c
Me![الراتب السابق] = Me![الراتب الحالي]
Me![الراتب الحالي] = ""
DoCmd.GoToRecord , , acNext
Next i