[Resolvido]Mover linhas com base em Status

Bom dia amigos, estou com dificuldade para uma automação.

-Tenho três tabelas: TbTemp (atualizada diariamente), TbBaixas (recebe linhas da "TbTemp") e TbHistorico (recebe as linhas que foram baixadas depois que o processo foi considerado "Apto");

-Nas três tabelas tenho campos em comum ("ID" e "Status");

-Na TbTemp chegam linhas de processos classificados como "Inapto" (E eles continuam chegando diariamente até que cheguem com a coluna "Status" definida como "Apto")

-Quando chegar uma linha desse processo na TbTemp e essa estiver classificada como "Apto", preciso que todas as outras linhas desse mesmo processo (Reconhecido pelo "ID"), sejam movidas para a "TbHistorico" e somente a linha com a classificação "Apto" permaneça na "TbBaixas".

Podem me ajudar nessa? Desde já agradeço!

Ola;

Pode testar;

Código:

Private Sub SeuBotao_Click()
    CurrentDb.Execute "insert into TbBaixas select * from TbTemp where Status='Apto'"
    CurrentDb.Execute "insert into TbHistorico select * from TbTemp where Status='Inapto' and TbTemp.ID IN (select ID from TbBaixas)"
    CurrentDb.Execute "delete * from TbTemp where TbTemp.ID IN (select ID from TbBaixas) and Status='Apto' or (TbTemp.ID IN (select ID from TbHistorico) and Status='Inapto')"
End Sub


Boa tarde JPaulo, agradeço pela ajuda.
Me gerou o seguinte erro:

"Erro em tempo de execução '3061': Parâmetros insuficientes.Eram esperados 2."

As instruções funcionam lindo.

Esse erro só acontece, quando você tem campos diferentes, a mais, ou a menos nas 3 tabelas.

Isso somente funciona, se as 3 tabelas forem iguais.

Ainda não obtive sucesso, pode postar a parte do bd que usou para montar o exemplo por favor?

Boa tarde mestre, consegui. O erro realmente era na igualdade dos campos presentes nas 3 tabelas.
Muito obrigado pela ajuda!

Fico feliz.
Obrigado pelo retorno o forum agradece.