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

    Exportar tabela que contém imagens em Anexo.

    Compartilhe
    avatar
    Robystanley
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 21/12/2015

    Exportar tabela que contém imagens em Anexo.

    Mensagem  Robystanley em 20/6/2018, 05:27

    Olá pessoal.

    Tenho uma tabela com vários campos, um deles é de anexo, onde salvo imagens.
    Quando exporto essa tabela, a mesma perde as imagens que estão como anexo; alguém teria uma solução?



    PS: Desde já agradeço.
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3468
    Registrado : 04/04/2010

    Re: Exportar tabela que contém imagens em Anexo.

    Mensagem  Avelino Sampaio em 20/6/2018, 09:06

    Roby

    veja neste meu artigo (copie e cole o link abaixo no seu navegador)

    usandoaccess.com.br/tutoriais/transferir-dados-entre-tabelas-campos-tipo-anexo-e-multiplos-valores.asp?id=1#inicio


    Bom estudo!
    avatar
    Robystanley
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 21/12/2015

    Re: Exportar tabela que contém imagens em Anexo.

    Mensagem  Robystanley em 21/6/2018, 00:09

    Boa noite Avelino!

    Muito bom o seu link parabéns, vi que lá vc apresenta um banco de exemplo para baixar, porém é somente pago, teria como disponibilizar algum outro arquivo de exemplo? caso não dê, gostaria de implementar o seu código neste aqui, porém estou com dificuldades.
    Só para vc entender o cenário, o que estou tentando fazer é o seguinte:

    Estou exportando os dados para uma planilha Excel, para fazer algumas alterações, porém os anexos não estão sendo importados, após isso, eu importo a planilha novamente para o access, onde o mesmo recebe as informações porém os anexos não vem.

    O código que estou utilizando é este:

    Código:
    Private Sub CmdExportaAlunosExcel_Click()

        Dim Caminho 'ContaAlunos As Integer

    Caminho = CurrentProject.Path & "\HQs.xlsx"

    Dim xls As Object
     
      DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Consulta_Excel", Caminho, True
       Set xls = CreateObject("Excel.Application")
        xls.Workbooks.Open (Caminho)
        xls.Visible = True
      
        
    xls.ActiveWorkbook.Save
    Set xls = Nothing

    MsgBox ("Relatório Gerado com Sucesso"), vbInformation, "Relatório Excel"

      Data/hora atual: 19/11/2018, 03:40