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 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: Qui 08 Dez 2016, 00:09