Pasar REGISTROS

[Marcos141964]

Hola a todos, mi problema es el siguiente:
Tengo 2 tablas, tabla A y tabla B. Lo que necesito hacer es que, si se cumple una condición, el registro actual, se ha de eliminar de la tabla A y guardarlo en la tabla B.
Tengo este código.

Private Sub TipoPaciente_AfterUpdate()
If Me.TipoPaciente = "Pasivo" Then
DoCmd.OpenQuery "qry_PacientesPasivos"
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.RefreshRecord
End If
End Sub

Pero no realiza lo que necesito y esta consulta que no se si está bien creada
Espero podáis ayudarme.
Gracias