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


    Alterar imagem em Formulário Continuo

    avatar
    alenberger
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 07/03/2013

    Alterar imagem em Formulário Continuo Empty Alterar imagem em Formulário Continuo

    Mensagem  alenberger em 27/3/2019, 15:24

    Olá Pessoal....

    Preciso de uma ajuda com um formulário continuo. Neste formulário tenho a lista de clientes e um campo que faz uma somatória em uma outra tabela variando por cliente. Neste mesmo formulário tenho duas imagens que são ocultas. Eu gostaria que se o campo da contagem fosse maior que zero, a propriedade visible da imagem 1 fosse True e se for zero, imagem 2 ficasse como true.

    Tentei fazer isso no evento que carrega o formulário, porém ele sempre repete a imagem da primeira ocorrência para as demais linhas.
    Procurei nos tópicos, porém só achei alterando o campo para uma fonte de imagens através do "SeImed", mas preciso que varie entres destas duas imagens.


    Alguém ai tem alguma outra ideia??

    Obrigado!!
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4484
    Registrado : 20/04/2011

    Alterar imagem em Formulário Continuo Empty Re: Alterar imagem em Formulário Continuo

    Mensagem  Silvio em 27/3/2019, 16:56

    A imagem 1 e 2 tem que ser campo de tabela, onde irá receber o caminho do local onde essas imagens se encontram.

    Feito e corrigido isso, para que não ocorram repetições poderá ser feito a rotina.

    If me.imagem1> 1 them
    me.imagem1.visible =true
    elseif me.imagem1 =0 them
    me.imagem1.visible=false
    me.imagem2.visible =true
    endif
    endif


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    alenberger
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 07/03/2013

    Alterar imagem em Formulário Continuo Empty Re: Alterar imagem em Formulário Continuo

    Mensagem  alenberger em 27/3/2019, 17:18

    Olá Silvio,

    Fiz a alteração conforme você disse, porém, ao executar o formulário ocorre o erro:
    O objeto não oferece suporte a esta propriedade ou método (Erro 438).
    Penso que o objeto Imagem não aceita esta comparação.

    O Campo da Tabela é Numérico. Inseri os dois objetos do tipo imagem, selecionei as duas figuras e no campo "Fonte de Controle", selecionei o campo numérico da tabela.

    Outra dúvida que surgiu, em qual evento devo inserir este código??

    Mais alguma ideia??

    Obrigado!!
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4484
    Registrado : 20/04/2011

    Alterar imagem em Formulário Continuo Empty Re: Alterar imagem em Formulário Continuo

    Mensagem  Silvio em 27/3/2019, 17:19

    Usando o sistema de busca aqui do fórum, você irá encontrar vários tópicos a esse respeito.

    Acredito que terá que mudar algumas estruturas em tua tabela.


    Abaixo alguns tópicos para você dar uma lida, uma estuda..

    https://www.maximoaccess.com/t34807-resolvidomostrar-ocultar-imagem-de-acordo-com-valor-do-campo-no-formulario-continuo
    https://www.maximoaccess.com/t19423p3-resolvidocolocacao-de-foto#143853


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Conteúdo patrocinado

    Alterar imagem em Formulário Continuo Empty Re: Alterar imagem em Formulário Continuo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 14/12/2019, 13:59