Pessoal,
Imaginem a seguinte situacao, tenho 2 tabelas e em cada uma delas tem 2 ou 3 campos
quero copiar toda informacao de uma pra outra, até entao eu faço da seguinte forma
Agora o detalhe maior
imaginem um quarto campo que é um anexo e tem 2 anexos dentro
como eu faço para copiar esses 2 anexos
rs2!campo4_anexo = rs1!campo4_anexo nao funciona
alguem poderia me dar uma luz?
Muitissimo obrigado
Igor
Imaginem a seguinte situacao, tenho 2 tabelas e em cada uma delas tem 2 ou 3 campos
quero copiar toda informacao de uma pra outra, até entao eu faço da seguinte forma
- Código:
Set db = CurrentDb
Set rs1 = db.OpenRecordset("Tabela1")
Set rs2 = db.OpenRecordset("Tabela2")
rs1.movefirst
do until rs1.eof
rs2.AddNew
rs2!campo1 = rs1!campo1
rs2!campo2 = rs2!campo2
rs2!campo3 = rs2!campo3
rs2.update
rs1.movenext
loop
Agora o detalhe maior
imaginem um quarto campo que é um anexo e tem 2 anexos dentro
como eu faço para copiar esses 2 anexos
rs2!campo4_anexo = rs1!campo4_anexo nao funciona
alguem poderia me dar uma luz?
Muitissimo obrigado
Igor