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

    Alterar imagem em formulário contínuo usando uma condicional via vba

    avatar
    ronaldofacre
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 19/09/2015

    Alterar imagem em formulário contínuo usando uma condicional via vba Empty Alterar imagem em formulário contínuo usando uma condicional via vba

    Mensagem  ronaldofacre em 16/4/2020, 18:39

    Primeiramente minha cordial saudação a todos do fórum!

    Em um formulário contínuo possuo duas imagens: imgA e imgB (essas imagens ficam no Detalhe)
    Se o campo "status" for igual a Recebido, preciso que a imgA seja visível e a imgB fique invisível.

    Se "status" for igual a pendente, então imgA fique invisível e imgB visível.

    Lembrando que é um formulário contínuo e a condição deve ser adotada pra cada registro no formulário.

    Desde já agradeço e informo que busquei no fórum e não encontrei algo que atenda essa necessidade.
    avatar
    juniorj10
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 29/04/2017

    Alterar imagem em formulário contínuo usando uma condicional via vba Empty Re: Alterar imagem em formulário contínuo usando uma condicional via vba

    Mensagem  juniorj10 em 17/4/2020, 03:40

    Ola Amigo, Boa noite Recomendo o uso do evento Paint da Seção Detalhe do Formulário.

    E coloque os seguintes comandos:

    Select Case Me!Status
    Case  1 ' Recebido
         me!imgA.Visible=true
         me!imgb.Visible=False
    Case 2 ' Pendente
         me!imgA.Visible=true
         me!imgb.Visible=False
    End Select

    Ou se Preferir Use apenas uma imagem em seu formulário e no mesmo evento Paint Faça o referenciamento da imagem.

    Select Case Me!Status
    Case 1 'Recebido
     me!ImgA_B.picture="Recebido.png"  'Aqui Nome da Imagem Salvo na Tabela de Inserção de Imagens do Access, para Controles com imagem Acopladas Internamente.
    Case 2 'Pendente
      me!ImgA_B.picture="Pendente.png"  'Aqui Nome da Imagem Salvo na Tabela de Inserção de Imagens do Access, para Controles com imagem Acopladas Internamente.
    End Select

    Ou Ainda Pode Utilizar de Vinculo por Diretório das Imagens, Isso se não quiser inserir as imagens dentro do Access.
    Ficando Assim:

    Select Case Me!Status
    Case 1 'Recebido
     me!ImgA_B.picture="Seu diretório onde contem as Imagens \Recebido.png"
    Case 2 'Pendente
      me!ImgA_B.picture="Seu diretório onde contem as Imagens \Pendente.png"
    End Select
    avatar
    ronaldofacre
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 19/09/2015

    Alterar imagem em formulário contínuo usando uma condicional via vba Empty Alterar imagem em formulário contínuo usando uma condicional via vba

    Mensagem  ronaldofacre em 17/4/2020, 18:46

    Oi Junior, boa tarde!

    Obrigado por sua atenção.

    Só que por ser um formulário contínuo, esse código não funciona. Dá erro em tempo de execução.
    avatar
    juniorj10
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 29/04/2017

    Alterar imagem em formulário contínuo usando uma condicional via vba Empty Re: Alterar imagem em formulário contínuo usando uma condicional via vba

    Mensagem  juniorj10 em 17/4/2020, 19:20

    Realmente Amigo a Condição Visible Gera erro de Execução falha minha, mais segue em anexo Um Bd com a função de alteração de picture por status
    atus.

    https://1drv.ms/u/s!AoNqcOV3C43-i0EA4Poc1_IO-HQr?e=te22rs

    Acredito que Esse possa lhe servir.

      Data/hora atual: 2/12/2020, 03:37