clonagem de colunas entre tabelas através de VBA

Boa noite.

Tendo uma tabela chamada orçamentos com os campos numeroOrcamento, Versao, Funcionario, aprovacao, queria copiar os dados que estão nestes campos para outra tabela chamada instalacoes que contém os campos iguais á orcamentos mais dois chamados dataconclusao, DataManutencao.

como consigo fazer esta cópia através de VBA de modo a que este processo seja feito automaticamente após mudar o estado da aprovação para aprovado.

cumprimentos.

Diga lá uma coisa: qual a finalidade de ter campos repetidos em duas tabelas? Explique como está a estrutura do seu aplicativo a nível de tabelas e relacionamentos.

o objectivo final é ter um sistema de orçamentação que consiste no seguinte, recebe-se e regista-se o pedido de orçamento,
depois é gerado um código de orçamento e versão pois cada pedido de orçamento pode ter várias versões, cada versão vai ter o seu
conjunto de productos á qual terá de ser gerado um relatório no final com a lista de produtos e preço final, quando o orçamento é aprovado
é feita uma cópia da informação do respectivo orçamento (dados sobre numero de orçamento, versão e produtos) para duas tabelas uma que guarda
os campos nº de orçamento e versão e mais dois campos (funcionário responsável e data de conclusão, estes dados são inseridos) e outra tabela que
guarda os produtos do orçamento que posteriormente pode ser alterada pois pode ser preciso mais algum material, poor isso é que necessito de copiar
campos de tabelas.

eu tentei anexar a DB mas não consegui senão poderia ver a relações entre tabelas

Boas, fiz um pequeno código para ver se conseguia clonar as colunas que queria mas está-me a dar um erro na parte do Update, o código é o seguinte:
Dim DataBase As DataBase
Dim rsDest, rsOrig, num As Recordset
Dim i, n As Single
Dim m As Variant
Set DataBase = CurrentDb
Set rsOrig = DataBase.OpenRecordset("SELECT nºOrçamento,Versão,PreçoFinal FROM Orçamentos WHERE aprovacao='Aprovado'")
Set rsDest = DataBase.OpenRecordset("SELECT nºOrçamento,Versão,PreçoFinal FROM Orçamentos")
Set num = DataBase.OpenRecordset("SELECT COUNT(nºOrçamento) FROM Orçamentos WHERE aprovacao='Aprovado'")
m = num.GetRows
n = m(0, 0)
For i = 1 To (n - 1)
rsDest.AddNew
rsDest![nºOrçamento] = rsOrig![nºOrçamento]
rsDest![Versão] = rsOrig![Versão]
rsDest![PreçoFinal] = rsOrig![PreçoFinal]
rsOrig.MoveNext
rsDest.Update ' o erro está aqui
Next i
End Sub
o erro que dá é o 3022

alguém me consegue ajudar?

abraço

Tente colocar essa linha após a Next i.

Não sei se funfa

Mas tente sempre simplificar os códigos;


Dim rsDest, rsOrig As Recordset
Dim m As Variant
Dim i, x As Integer
Set rsOrig = CurrentDb.OpenRecordset("SELECT [nºOrçamento],[Versão],[PreçoFinal] FROM Orçamentos WHERE aprovacao='Aprovado'")
Set rsDest = CurrentDb.OpenRecordset("SELECT * FROM Orçamentos")
x = DCount("[nºOrçamento]", "Orçamentos", "[aprovacao] = 'Aprovado'")

For i = 1 To x - 1
rsDest.AddNew
rsDest![nºOrçamento] = rsOrig![nºOrçamento]
rsDest![Versão] = rsOrig![Versão]
rsDest![PreçoFinal] = rsOrig![PreçoFinal]
rsDest.Update
rsOrig.MoveNext
Next i

não está a dar, está a bater no rsDest.Update, diz que vai criar valores duplicados no index, não entendo porquê

então é porque um desses campos estão indexados.

assim não deixa duplicar (clonar)