TENHO 2 TABELAS COM OS MESMO CAMPOS, PRECISO JOGAR TODOS OS REGISTROS DA TABELA 2 PARA A TABELA 1, COM EXCEÇÃO DE UM CAMPO "ID" , Q É AUTONUMERAÇÃO, E SERA GERADO NA SEQUENCIA DA TABELA 1, ALGUMA SUGESTÃO ?

existem registros repetidos? tá usando DAO ou ADO? qual BD? QUAL VB?

 

Amigo, uma vez tive de fazer isso e desse jeito deu certo. É uma das alternativas que você pode tentar, existem várias. Eu trabalho com DAO, por isso não sei se é o seu caso.

Criei um botão ATUALIZAR e no evento clique dele, escrevi:

 

Private Sub CmdAtualiza_Click()
    sql1 = "Select * From Vendas"
    Set rs1 = db1.OpenRecordset(sql1)
    sql2 = "Select * From Vendas"
    Set rs2 = db2.OpenRecordset(sql2)
    Do Until rs1.EOF
        rs2.AddNew
        rs2("codcli") = rs1("codcli")
        rs2("dataped") = rs1("dataped")
        rs2("numped") = rs1("numped")
        rs2("desconto") = rs1("desconto")
        rs2("prazo") = rs1("prazo")
        rs2.Update
        rs1.MoveNext
    Loop
    MsgBox "Operação Completada", vbInformation, "F i m"
    Unload Me
End Sub

Essa rotina faz o seguinte:

percorre todos registros de uma tabela, e grava-os na outra tabela.

 

Espero ter ajudado. Qualquer coisa, poste novamente.

 

Abraços.