MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    importar ANEXOS

    Compartilhe

    joaquimboroma
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 98
    Registrado : 04/06/2014

    importar ANEXOS

    Mensagem  joaquimboroma em Seg 01 Dez 2014, 03:26

    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"

      Data/hora atual: Sex 09 Dez 2016, 03:48