Как переместить уволенных сотрудников в другую таблицу

Private Sub Êíîïêà9_Click()
DoCmd.OpenReport "Ñîòðóäíèêè", acViewPreview, , "[Êîä ñîòðóäíèêà] = " & Me![Êîä ñîòðóäíèêà]
End Sub

DoCmd.OpenQuery "Название запроса на добавление"

Dim DB As DAO.Database, RSA As DAO.Recordset
Dim rsChild As DAO.Recordset2, rsaChild As DAO.Recordset2
  Set DB = CurrentDb
  Set RSA = DB.OpenRecordset("Архив сотрудников", dbOpenDynaset)
  With Me.Recordset
' Перемещение поля Фото
    Set rsChild = .Fields("Фото").Value
    RSA.AddNew
    Set rsaChild = RSA.Fields("Фото").Value
    Do Until rsChild.EOF
      rsaChild.AddNew
      rsaChild.Fields("FileData") = rsChild.Fields("FileData")
      rsaChild.Fields("FileName") = rsChild.Fields("FileName")
      'rsaChild.Fields("FileType") = rsChild.Fields("FileType")
      rsaChild.Update
      rsChild.MoveNext
    Loop
    rsaChild.Close: rsChild.Close
    Set rsaChild = Nothing: Set rsChild = Nothing
' Перемещение всех остальных полей
    RSA("Код сотрудника") = ![Код сотрудника]
    RSA("Фамилия") = ![Фамилия]
    RSA("Имя") = ![Имя]
    RSA("Отчество") = ![Отчество]
    RSA("Дата рождения") = ![Дата рождения]
    RSA("Организация") = ![Организация]
    
' Дальше нужные поля пропишите сами
    
    RSA.Update
  End With
  RSA.Close
  Set RSA = Nothing: Set DB = Nothing