Exportar tabela que contém imagens em Anexo.

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.

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!

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"