[Resolvido]Exportar campos de uma tabela para outra automaticamente

Olá Pessoal!

Alguém sabe algum código que exporte 2 campos (campo1,campo2), após (Campo1, Campo3) de uma tabela para outra, de modo que a exportação aconteça toda vez que entrarem novos registros na tabela primária?

Gente quem puder me ajudar!!!

Abraços

Boa noite, jessi, e bem-vindo ao fórum

Para transferir campos duma tabela (campo1, campo2) para outra (campo1, campo3), execute a seguinte consulta:
INSERT INTO TabelaAReceber(campo1,Campo3) SELECT Campo1, Campo2 FROM TabelaAEnviar;
Depois de transferir os dados, devê-los-á apagar para que, da próxima vez, não sejam novamente enviados. Para tal, execute a seguinte consulta:
DELETE * FROM TabelaAEnviar;

Oi Alexandre! Estou muito agradecida pelo seu retorno!

A consulta que vc me enviou execultou perfeitamente!
Mas eu preciso trabalhar com a tabela primária, pois guardo informações nela, para pesquisas posteriores e criaria uma tabela secundária para tornar o meu banco de dados o mais genérico possível. Um exemplo bastante parecido é o desse tópico:

http://maximoaccess.forumeiros.com/t5401-resolvidolocalizar-campo-numa-tabela-e-colocar-em-outra-tabela-numa-caixa-de-texto?highlight=exportar+tabela

O Código é:

Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("NomeDaTabelaDeOrigem")
rs. FindFirst "Código=" & Me.Código

If rs.NoMatch Then
MsgBox "Não existe nenhum registro com esse código", vbCritical, "Erro"
Else
CurrentDb.Execute "INSERT INTO NomeDaTabelaDeDestino(Campo1, Campo2, Campo3) VALUES('" & rs!Campo1 & "', '" & rs!Campo2 & "', '" & rs!Campo3 & "')"
End If
rs.Close
Set rs = Nothing

*Não consegui entender o que está de vermelho!

O meu problema é que eu tenho:

tabela primária: Campo1 Campo2 Campo3

tabela secundária: Campo1 Campo 2 e logo abaixo de todo preenchimento viria
Campo1(novamente, pois se trata do mesmo código) Campo3

E Toda vez que entrassem dados na tabela primária já entraria na secundária automaticamente!

Vlw Alexandre!

Abraços

Ou então alguma forma dessa consulta ser execultada automaticamente toda vez que entrarem novos registros, sem haver a necessidade de apagá-los da tabela primária!

Abraços

Boa noite, jessi

Se pretende manter os dados na tabela primária, não deverá passá-los para tabela secundária.
O princípio da base de dados é não ter dados duplicados.
Pode explicar melhor a finalidade do que pretende?

Olá Alexandre!
Desculpa a demora!

Muito obrigado por esclarecer minhas dúvidas!
De acordo com o que vc falou! O ideal seria apagar os dados da tabela primária, e é nisso que estou trabalhando agora!

A única coisa que precisaria agora, era saber se tem alguma forma de ao entrarem dados na minha tabela primária, a consulta e após a exclusão desses dados que entraram pudesse ser feita automaticamente??

Pois outras pessoas irão usar esse BD e talvez não saibam como está sendo feito este procedimento!

Muito obrigado pela atenção!

Olá Jessi

Para automatizar o procedimento, pode introduzir os dados na tabela através de formulário e colocar o código ao fechar do formulário.

Alexandre, muito obrigado pela sua ajuda!

Já resolvi esse problema!

coloquei minha consulta no formulário e um botão, ainda vou adaptar a melhor forma desses eventos acontecerem mas deixo aqui o código que utilizei:

Private Sub APAGAR_Click()
DoCmd.RunSQL "Delete * from Dados"
End Sub

Att,
Valeu mesmo pela ajuda!

Abraços!

Resolvido!