[Resolvido]reunir dados de 4 tabelas apenas numa

Bom dia a todos,

Tenho aqui um problema para resolver que não estou a ver como faze-lo.

Tenho 4 tabelas em que tem em comum os campos nome, morada, morada comp, localidade e codigo postal, os dados em cada tabela sao diferentes.

O que preciso é de colocar numa tabela apenas o codigoID de cada uma das tabelas e depois com uma consulta ir buscar os dados correspondentes à tabela em que o id for igual ao que está inserido na 5ª tabela.

Isso é possivel?

Isso deve obedecer a algum critério ou irá jogar todos os dados das quatro tabelas na quinta tabela? Existe a possibilidade de ter id repetido em mais de uma tabela?

cada tabela tem o seu id proprio que não se repete em nenhuma das outras tabelas.

O que pretendia era na 5ª tabela criar os campos:

IdIem->autonumber ->PK
Cod_ID -> vai receber o ID das outras tabelas

depois, criar uma consulta que devolvesse os dados de uma das outras tabelas onde o COD_ID desta tabela fosse igual ao COD_ID de uma das outras tabelas.

Confundi?

Acredito que possa fazer isso direto via Recordset:

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

Set rs1 = CurrentDb.OpenRecordset("Tabela1")
Set rs2 = CurrentDb.OpenRecordset("Tabela2")
Set rs3 = CurrentDb.OpenRecordset("Tabela3")
Set rs4 = CurrentDb.OpenRecordset("Tabela4")

Do While Not rs1.EOF
CurrentDb.Execute "INSERT INTO Tabela5(Campo1, Campo2, Campo3) VALUES('" & rs1!Campo1 & "', '" & rs1!Campo2 & "', '" & rs1!Campo3 & "')"
rs1.MoveNext
Loop

Do While Not rs2.EOF
CurrentDb.Execute "INSERT INTO Tabela5(Campo1, Campo2, Campo3) VALUES('" & rs2!Campo1 & "', '" & rs2!Campo2 & "', '" & rs2!Campo3 & "')"
rs2.MoveNext
Loop

Do While Not rs3.EOF
CurrentDb.Execute "INSERT INTO Tabela5(Campo1, Campo2, Campo3) VALUES('" & rs3!Campo1 & "', '" & rs3!Campo2 & "', '" & rs3!Campo3 & "')"
rs3.MoveNext
Loop

Do While Not rs4.EOF
CurrentDb.Execute "INSERT INTO Tabela5(Campo1, Campo2, Campo3) VALUES('" & rs4!Campo1 & "', '" & rs4!Campo2 & "', '" & rs4!Campo3 & "')"
rs4.MoveNext
Loop

rs1.Close
Set rs1 = Nothing

rs2.Close
Set rs2 = Nothing

rs3.Close
Set rs3 = Nothing

rs4.Close
Set rs4 = Nothing

mas tenho de criar campos para receber o nome, morada, morada comp, localidade e codigo postal?

Dê uma pesquisada aqui no forum ou no F1 de um módulo qualquer do Access por "ALTER TABLE" ou "Criar tabela".

hummm, por acaso não ha ai nenhum exemplo ja feitinho???

Não tenho nada pronto aqui, mas deve ter em algum tópico supracitado no forum. Mas vamos colocar a mão na massa. É rápido e você aprende mais essa

Você pode inserir campos nulos.

Veja abaixo como ficaria a última tabela:

Do While Not rs4.EOF
CurrentDb.Execute "INSERT INTO Tabela5(Campo1, Campo2, Campo3,nome, morada, [morada comp], localidade, [codigo postal]) VALUES('" & rs4!Campo1 & "', '" & rs4!Campo2 & "', '" & rs4!Campo3 & "', "", "", "", "", "")"
rs4.MoveNext
Loop

obrigado caros Mestres, vou por as maos na massa e ver o que dá e depois retorno.

1 abraço e obrigado a todos

P.S. Ainda não vou fechar este tópico porque depois vou deixar o resultado das minhas pesquisas.

Esqueceu o tópico, amigão?

ola Mestre Vieira,

Peço desculpa pelo esquecimento, mas optei por criar uma tabela com IDproc, idParte, nome, morada, morada comp, etc

Depois fiz updates das tabelas principais para esta.

O tempo era pouco e esta ideia fica para o futuro, muito obrigado pela ajuda de todos.

1 abraço

esqueci-me do resolvido