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 tabela com 2 anexos

    Compartilhe

    joaquimboroma
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    importar tabela com 2 anexos

    Mensagem  joaquimboroma em Ter 18 Nov 2014, 09:23

    Na instrucao abaixo, onde que devo alterar quando se trate de tabelas que tem 2 campos de anexos (imagem, imagem2)?



    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"
    DoCmd.OpenTable "tblCampoAnexoArquivo"

      Data/hora atual: Seg 20 Nov 2017, 13:25