بعد اذن الاستاذ علي اخي العزيز الاكسس بمجرد الانتقال من حقل الى اخر يقوم ذاتياً بحفظ السجل . يجب عليك وضع زر تراجع في الفورم الرئيسي والفرعي او اعتمد هذه الاكواد Private Sub Form_Undo(Cancel As Integer) If bPreventClose Then Cancel = True End If End Sub Private Sub Form_Unload(Cancel As Integer) If bPreventClose = True Then Cancel = True End If bPreventClose = False End Sub Private Sub Form_BeforeUpdate(Cancel As Integer) Dim UserResp As Integer