TENHO UMA TABELA QUE TEM 3 CAMPOS DE TIPO ANEXO/ATTACHMENT
Aqui no forum encontrei uma instrucao VBA que serve pra importar/exporter dados de tabelas com 1 anexo.
Nao consigo fazer alteracao para importar os 3 anexos.
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim rsfilho As DAO.Recordset2
Dim rsfilho2 As DAO.Recordset2
On Error Resume Next
CurrentDb.Execute "DELETE * FROM tblCampoAnexoArquivo;"
Set rs = CurrentDb.OpenRecordset("tblCampoAnexo")
Set rs2 = CurrentDb.OpenRecordset("tblCampoAnexoArquivo")
Do While Not rs.EOF
Set rsfilho = rs!Imagens.Value
rs2.AddNew
Set rsfilho2 = rs2!Imagens.Value
rs2!paciente = rs!paciente
Do While Not rsfilho.EOF
rsfilho2.AddNew
rsfilho2!FileName = rsfilho!FileName
rsfilho2!FileData = rsfilho!FileData
rsfilho2.Update
rsfilho.MoveNext
Loop
rsfilho2.Close
rsfilho.Close
rs2.Update
rs.MoveNext
Loop
rs2.Close
rs.Close
Set rsfilho2 = Nothing
Set rsfilho = Nothing
Set rs2 = Nothing
Set rs = Nothing
MsgBox "Registros transferidos com sucesso para a tabela tblCampoAnexoArquivo...", vbInformation, "Aviso"
Aqui no forum encontrei uma instrucao VBA que serve pra importar/exporter dados de tabelas com 1 anexo.
Nao consigo fazer alteracao para importar os 3 anexos.
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim rsfilho As DAO.Recordset2
Dim rsfilho2 As DAO.Recordset2
On Error Resume Next
CurrentDb.Execute "DELETE * FROM tblCampoAnexoArquivo;"
Set rs = CurrentDb.OpenRecordset("tblCampoAnexo")
Set rs2 = CurrentDb.OpenRecordset("tblCampoAnexoArquivo")
Do While Not rs.EOF
Set rsfilho = rs!Imagens.Value
rs2.AddNew
Set rsfilho2 = rs2!Imagens.Value
rs2!paciente = rs!paciente
Do While Not rsfilho.EOF
rsfilho2.AddNew
rsfilho2!FileName = rsfilho!FileName
rsfilho2!FileData = rsfilho!FileData
rsfilho2.Update
rsfilho.MoveNext
Loop
rsfilho2.Close
rsfilho.Close
rs2.Update
rs.MoveNext
Loop
rs2.Close
rs.Close
Set rsfilho2 = Nothing
Set rsfilho = Nothing
Set rs2 = Nothing
Set rs = Nothing
MsgBox "Registros transferidos com sucesso para a tabela tblCampoAnexoArquivo...", vbInformation, "Aviso"