[Resolvido]Colunas de duas tabelas indo para Tabela A

Boa tarde!

Estou com um problema para juntar duas tabelas.
Na tabela A tenho valores em uma coluna e na tabela b tenho descrições (essa tabela vem da CVM), ambas com o mesmo número de linhas.
Preciso juntar as duas via VBA em outra tabela C.

Ja tentei por INSERT soque ele cria linhas abaixo e as duas colunas não ficam uma do lado da outra

Alguém para ajudar?

Agradeço desde já,

Grande Abraço

Olá, seja bem vindo ao fórum!

Explique melhor exemplificando os dados graficamente. A ordem de exportação será igual entre as linhas das duas tabelas?

Fiz uma imagem do que eu preciso..

Basicamente tenho as 2 tabelas e criei a terceira tabela para uni-las.





Alguem saberia?


Muito Obrigado

Se o contador for exatamente os mesmos nas duas tabelas, você pode utilizar um Recordset para cada tabela selecionando e ordenando os registros pelo contador e depois adicionar tudo na terceira tabela:

Código:

Dim rs1 As Recordset, rs2 As Recordset, rs3 As Recordset

Set rs1 = CurrentDb.OpenRecordset("SELECT * FROM NomeTabela1 ORDER BY Contador")
Set rs2 = CurrentDb.OpenRecordset("SELECT * FROM NomeTabela2 ORDER BY Contador")
Set rs3 = CurrentDb.OpenRecordset("NomeTabela3")

Do While Not rs1.EOF

    rs3.AddNew

    rs3!Campo1 = rs1!Campo1
    rs3!Campo2 = rs1!Campo2
    rs3!Campo3 = rs2!Campo1
    rs3!Campo4 = rs2!Campo2

    rs3.Update

    rs1.MoveNext

Loop

MsgBox "Tabela atualizada", vbInformation, "Finalizado"

rs1.Close
Set rs1 = Nothing

rs2.Close
Set rs2 = Nothing

rs3.Close
Set rs3 = Nothing

Tente adaptar em uma cópia do banco, para o caso de dar algum erro, não perder os dados já inseridos.

Perfeito..

O problema é que no campo 4 ele esta colocando apenas o primeiro valor em todas as linhas..

Sabe me dizer o por que disso?

Perfeito..
Consegui.. Precisava dar uma movenext pro rs2.

Muito obrigado.

Grato pelo retorno. O fórum agradece.