تفضل هذا كود لكن يجب عليك التعديل عليه حسب اسم حقول جداولك
Private Sub Command45_Click()
Dim intSeat As Integer
If MsgBox("انقر فوق "" نعم "" هل تريد ارشفة هذا القيد. ", vbYesNo, "ارشفه") = vbYes Then
intSeat = Me!iddrag
DoCmd.SetWarnings False
CurrentDb.Execute "Insert into tblExp1 (Exp, iddrag, InputTo, mom, item, namdrag) SELECT Exp, iddrag, InputTo, mom, item, namdrag FROM QurExp1 WHERE iddrag =" & intSeat
DoCmd.RunCommand acCmdDeleteRecord
Me.Requery
MsgBox "تم انتقال القيد الى جدول الارشيف", vbInformation, "الارشفه"
Else
MsgBox "تم التراجع عن نقل السجل ", vbInformation, "عدم الارشفة"
End If
DoCmd.SetWarnings True
End Sub