[Resolvido]Copiar dados de uma tabela para outra

Boa tarde pessoal.

Estou com mais uma dúvida. Eu tenho uma tabela. e preciso que via código copiar os dados para outra tabela. mas gostaria que fosse de forma menos braçal. exemplo:

temos o campo 1 / campo 2 / campo 3 / campo 4
e são idênticos para as duas tabelas.
logo gostaria de um codigo que ao clicar no botão copiasse os dados do campo 1 da tabela 1 para o campo 1 da tabela 2
e assim por diante.

tem um jeito?

Desde já agradeço...

Dê uma pesquisada no fórum. Temos vários tópicos resolvidos sobre o assunto.

Obrigado pelo retorno Criquio.

Sim eu tentei...pesquisar.. mas retornou um monte de resultado.... vou tentar mudar os critérios...

Obrigado.

Criquio... peço desculpas... mas não localizei... será que poderia me dar uma luz?

Tente aqui.

Criquio Obrigado pela ajuda.... Mas o que eu gostaria é algo um pouco mais automatico, sem precisa definir os nomes dos campo entende, gostaria que ele salvasse na tbl2.Campo1 os dados que constam na tbl1.Campo1 ou em um exemplo mais prático. tblPedido_bkp.CodigoCliente para tblPedido.CodigoCliente e assim por diante nos demais campos. sem precisar eu informar o nome do campo "CodigoCliente".

gostaria que o VB entendesse da seguinte forma:

Para cada campo na tbl1 copiar os dados para o mesmo campo na tbl2

rs.movenext

isso é possível???

"Vou explicar o que estou fazendo: Eu tenho o banco em Access, mas estou migrando para o SQL Express, porém os campos de datas não sei pq motivo não são migrados quando definidos como Date/Time - só migra se tiver como Texto. Mas todas as tabelas tem data... então o que eu iria fazer era copiar a estrutura do bando de dados como está e depois jogar os dados de cada tabela para dentro da base em sql express. como não consegui eu mudei tudo para texto e migrei, foi perfeito, com a excessão de que o access não reconhece o campo. e ai vem outros problemas que estou tentando resolver, caso não consiga postarei aqui o problema."

Espero ter conseguido explicar.

A não ser que queira aproveitar a função para várias outras tabelas dando a possibilidade de se escolher as tabelas em uma lista por exemplo, não vejo vantagem em fazer de outra maneira, mas você pode criar uma variável do tipo Field e associar ela aos campos da tabela:

Código:

Dim f As Field
...
For Each f In rs.Fields
    rs2(f.Name) = rs1(f.Name)
Next
...

Mais ou menos isso. Faça umas pesquisas a respeito e veja se consegues adaptar.

Boa tarde amigos, e com licença mestre, penso que assim funciona!

Private Sub SeuBotão_Click()

Dim strSQL As String, strSQLBackupDados As String

strSQLBackupDados = "INSERT INTO Tabela2 Select * FROM Tabela1"
DoCmd.RunSQL (strSQLBackupDados)


End Sub

Obrigado mesmo pessoal...
já vi que no teste as duas formas são boas, mas vou usar a do Lupércio....

Muito obrigado.

Tópico resolvido...

O forum agradece o retorno!