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

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

    Compartilhe
    avatar
    MS Kid
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 22/01/2013

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

    Mensagem  MS Kid em 25/8/2018, 19:25

    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.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5619
    Registrado : 15/03/2013

    Re: Como Carregar Imagem de um Campo tipo Anexo em um Controle tipo Imagem via VBA

    Mensagem  ahteixeira em 29/8/2018, 08:45

    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:
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço
    avatar
    MS Kid
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 22/01/2013

    Re: Como Carregar Imagem de um Campo tipo Anexo em um Controle tipo Imagem via VBA

    Mensagem  MS Kid em 29/8/2018, 13:55

    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.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5619
    Registrado : 15/03/2013

    Re: Como Carregar Imagem de um Campo tipo Anexo em um Controle tipo Imagem via VBA

    Mensagem  ahteixeira em 30/8/2018, 17:37

    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

      Data/hora atual: 11/12/2018, 11:45