MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    MS Kid
    MS Kid
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Como Carregar Imagem de um Campo tipo Anexo em um Controle tipo Imagem via VBA Empty [Resolvido]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.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Como Carregar Imagem de um Campo tipo Anexo em um Controle tipo Imagem via VBA Empty Re: [Resolvido]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:
    https://www.maximoaccess.com/t33634-exportar-anexos-de-uma-tabela

    Abraço
    MS Kid
    MS Kid
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Como Carregar Imagem de um Campo tipo Anexo em um Controle tipo Imagem via VBA Empty Re: [Resolvido]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.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Como Carregar Imagem de um Campo tipo Anexo em um Controle tipo Imagem via VBA Empty Re: [Resolvido]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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2136
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. em 21/3/2020, 17:48

    MS Kid, resolveu sua questão?

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

    bounce


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    MS Kid
    MS Kid
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  MS Kid em 27/3/2020, 19:57

    obrigado pessoal!

      Data/hora atual: 6/8/2020, 21:48