MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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: Qui 17 Ago 2017, 02:42