MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    inserir imagem no access por vba

    Compartilhe

    RicketyKnave2
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 25/03/2016

    inserir imagem no access por vba

    Mensagem  RicketyKnave2 em Qui 20 Out 2016, 12:40

    Pessoal,

    poderiam me dizer como inserir uma imagem em um formulário via vba..pois gostaria de usar condicional para cada caso um imagem retorne diferente..este código está dando errado.

    'chamar imagem

    imagem = "Concluído.bmp"

    Imagem73.Picture = LoadPicture(imagem)

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2328
    Registrado : 14/08/2013

    Re: inserir imagem no access por vba

    Mensagem  FabioPaes em Qui 20 Out 2016, 14:44

    Amimo de uma Olhada aqui nesse Topico, tem exemplos la...
    [Você precisa estar registrado e conectado para ver este link.]


    O correto, para carregar a imagem é:

    Me!CampoFoto.Picture = "Local completo da Foto.jpg" 


    Exemplo: Tenho armazenado as fotos na Pasta do Aplicativo \Fotos... E no campo NomeFoto tem o Nome da Foto.extensão da foto.
    Fica assim o carregamento:


    Me!CampoFoto.Picture = CurrentProject.Path & "\Fotos\" & Me!NomeFoto


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: Sex 09 Dez 2016, 11:35