[Resolvido]Como Carregar Imagem de um Campo tipo Anexo em um Controle tipo Imagem via VBA

boa tarde!

eu tenho uma tabela com algumas imagens salvas em um campo do tipo anexo. eu preciso carregar essas imagens em um controle do tipo imagem que está no formulário, via código VBA. alguma coisa está errado com o meu código.

segue o código usado:

Código:

Private Sub btnTesteImagem_Click()
    Dim registro As DAO.Recordset

    Set registro = Me.Recordset

    Me.minhaImagem.Picture = registro.Fields("imagem").Value

    Set registro = Nothing
End Sub

quando eu rodo o código acima, ele gera o erro #13 ("Tipos incompatíveis"). quando eu tento passar o FileData para a imagem, ele gera o erro #2176 ("A configuração desta propriedade está muito longa.").

Código:

Me.minhaImagem.Picture = registro.Fields("figura").Value.Fields("FileData").Value

fico grato por qualquer ajuda.

obrigado.

Olá Thor,

Tem que gravar o ficheiro que necessita numa pasta temporária, depois elimina quando não é necessário.
Não permite "carregar" diretamente da tabela de dados.

Veja se ajuda:
https://www.maximoaccess.com/t33634-exportar-anexos-de-uma-tabela

Abraço

tudo beleza, Alvaro?

eu até sei que é possível exportar o arquivo da tabela e depois associá-lo ao controle do tipo imagem. eu queria mesmo era fazer isso direto no controle. to vendo que o melhor caminho é fazer isso que você está falando: salvar temporariamente e depois deletar o arquivo.

obrigado pela ajuda.

ps: gostaria de compartilhar com todos como fazer classe estática no VBA que não precisa ser declarada, onde eu uso como variáveis globais estáticas. é só escrever o nome da classe (em qualquer lugar do projeto) e apertar ponto (.) que aparecerão as propriedades na lista drop-down, retornando valores estáticos. muito bom.

Olá Thor,

Eu desconheço da forma que pretende e creio não ser possível.

Quanto à "classe" seria ótimo, poderia carregar os ficheiros para a pasta %temp%\NomeSeuApp

Para não gastar muito código na eliminação, ao sair do aplicativo executava o eliminar da pasta temporária.

Se vier a dedenvolver essa classe, o fórum agradece a partilha.

Abraço

MS Kid, resolveu sua questão?

Se sim, dê o tópico por finalizado editando e marcando-o como resolvido.

obrigado pessoal!