[Resolvido]Transferencia entre tabelas

Boa noite.
Alguém tem um link que mostre o caminho como proceder em transferir registro entre duas tabelas do mesmo projeto
TabelaA transferir para TabelaB e após a transferência limpar a tabela A

Olá Denilson,

Pode fazer o pretendido com a execução de duas consultas.
1º - Consulta acrescentar dados
2º - Consulta eliminar dados

Em qualquer dos casos pode ter filtro.
Veja se tópico abaixo ajuda:
https://www.maximoaccess.com/t7569-resolvidotransferir-dados-de-uma-tabela-para-outra

Abraço

Boa noite
Utilizei este código na descrição onde ele transfere registros entre tabelas e os valores vão acumulando, e limpa a tabela onde os valores que foram transferidos.
Desejaria  colocar uma mensagem assim que os dados forem transferidos informe que os dados foram transferidos com sucesso e a tabela seja limpa.

Código utilizado.

Código:



Private Sub Btn_Transferir_Click()
    'CurrentDb.Execute " INSERT INTO Acumulado1 (id_mespago, id_coddizimista,id_nomedizimista, id_area,id_formapgto,id_valor)' values Tab_Pagamento (id_mespago, id_coddizimista,id_nomedizimista, id_area,id_formapgto,id_valor)"
    CurrentDb.Execute "insert into Acumulado1 (id_mespago, id_coddizimista,id_nomedizimista, id_area,id_formapgto,id_valor) select id_mespago, id_coddizimista,id_nomedizimista, id_area,id_formapgto,id_valor from Pagamento "
    'select campo1, campo2, campo3, campo4, campo5 from tabela_origem
    MsgBox ("Dados transferidos com sucesso")
    CurrentDb.Execute "DELETE * FROM pagamento"
End Sub



Olá Denilson,

Obrigado pelo retorno, o fórum agradece.

Abraço