MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    Imagem com icones/imagens do Office

    avatar
    ZanzouShio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 14/07/2011

    Imagem com icones/imagens do Office Empty Imagem com icones/imagens do Office

    Mensagem  ZanzouShio 29/5/2013, 15:32

    Olá amigos,

    A muito acompanho os tópicos do fórum, e normalmente consigo encontrar as soluções utilizando a busca, entretanto essa é uma dúvida que realmente não encontrei por aqui, se puderem me ajudar seria grato, vamos ao problema.

    Tenho um formulário no Access com alguns controle do tipo "Imagem", e gostaria de "setar" as imagens de forma dinâmica, até aí tudo bem, o problema mesmo vem agora, estou tentando setar as imagens que são da Biblioteca do próprio Office, sei que no Excel eu consigo isso, entretanto no Access até o momento eu não consegui. Abaixo exemplo de como venho tentando fazer isso.
    Código:

    Me.Imagem0.Picture = Application.CommandBars.GetImageMSO("AddAccount", 32, 32)

    Entretanto o mesmo vem apresentando o seguinte erro:
    "O Microsoft Access não pode abrir o arquivo '-2063266457'"

    Porém se eu usar um controle do tipo "Image do Microsoft Forms 2.0" o mesmo não apresenta o erro e preenche corretamente, alguns de vocês já tentou fazer dessa forma e conseguiu?

    Desde já agradeço.

    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    Imagem com icones/imagens do Office Empty Re: Imagem com icones/imagens do Office

    Mensagem  Avelino Sampaio 29/5/2013, 20:47

    Olá!

    Uma alternativa e vc extrair a imagem para uma pasta Temp e então usar a imagem desta pasta. Exemplo:

    Dim picPicture As IPictureDisp
    Set picPicture = Application.CommandBars.GetImageMso("Paste", 32, 32)
    stdole.SavePicture picPicture, "c:\SuaPasta\Temp\msoPaste.bmp"
    Me!bt1.Picture = "c:\SuaPasta\Temp\msoPaste.bmp"


    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    ZanzouShio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 14/07/2011

    Imagem com icones/imagens do Office Empty Re: Imagem com icones/imagens do Office

    Mensagem  ZanzouShio 29/5/2013, 20:48

    Obrigado Avelino,
    Pergunta, é muito oneroso para o sistema usar Controle Activex ao invés de usar o controle da imagem no Formulário.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    Imagem com icones/imagens do Office Empty Re: Imagem com icones/imagens do Office

    Mensagem  Avelino Sampaio 30/5/2013, 11:23

    Se tiver que rodar seus aplicativos em sistemas de 64 bits, esqueça os Active X por enquanto, pois deixam de funcionar. A não ser que consiga o Active X para os 64 bits. Veja mais detalhes neste meu artigo:

    http://www.usandoaccess.com.br/tutoriais/tuto28.asp?id=1#inicio

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

    Conteúdo patrocinado


    Imagem com icones/imagens do Office Empty Re: Imagem com icones/imagens do Office

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 19:14