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


5 participantes

    [Resolvido]Ativar/Desativar botão por consulta

    avatar
    felipevital
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 26/03/2012

    [Resolvido]Ativar/Desativar botão por consulta Empty Ativar/Desativar botão por consulta

    Mensagem  felipevital 23/10/2012, 15:09

    Meu problema é o seguinte.. tenho um botão que manda dados de uma consulta(consulta com critérios, pode ficar sem nenhum dados) por email, mas queria que o botão ficasse desativado caso não tenha nenhum dados nessa consulta.
    Podem me ajudar?

    Obrigado!!
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    [Resolvido]Ativar/Desativar botão por consulta Empty Re: [Resolvido]Ativar/Desativar botão por consulta

    Mensagem  Cláudio Más 23/10/2012, 15:13

    Código:
    Me!NomeBotao.Enabled = (DCount("*", "NomeConsulta") > 0)
    Verifique no sistema o melhor evento para utilizar esse código.
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Ativar/Desativar botão por consulta Empty Re: [Resolvido]Ativar/Desativar botão por consulta

    Mensagem  Leandro 23/10/2012, 17:13

    Cláudio, desculpe a pergunta, mas não entendi sua lógica, não teria que ter um If no código?


    If DCount("*", "NomeConsulta") > 0 then
    Me!NomeBotao.Enabled = False
    Else
    Me!NomeBotao.Enabled = True
    End If
    End Sub

    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ativar/Desativar botão por consulta Empty Re: [Resolvido]Ativar/Desativar botão por consulta

    Mensagem  Avelino Sampaio 23/10/2012, 17:39

    Olá, Leandro!

    A expressão (DCount("*", "NomeConsulta") > 0) é uma pergunta que está sendo feita ao VBA. Se maior que zero o VBA retorna TRUE, se zero FALSE.

    Veja um pouco mais neste meu artigo, sobre perguntas ao VBA

    http://www.usandoaccess.com.br/dicas/dica31.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.
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Ativar/Desativar botão por consulta Empty Re: [Resolvido]Ativar/Desativar botão por consulta

    Mensagem  Leandro 23/10/2012, 17:53

    Entendi Avelino!!

    É parecido com a lógica das funções matriciais em excel.

    Ex:
    Célula A1 = 1
    Célula B1 = 2

    Se eu fizer isso na célula B3: =A1=B1 o resultado será "Falso".

    O VBA usa esse resultado, no caso do access, para definir o restante da propriedade Enable.

    Gostei muito

    Muito obrigado Avelino!!

    avatar
    felipevital
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 26/03/2012

    [Resolvido]Ativar/Desativar botão por consulta Empty Re: [Resolvido]Ativar/Desativar botão por consulta

    Mensagem  felipevital 23/10/2012, 19:06

    Muito obrigado, problema resolvido!! Very Happy
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    [Resolvido]Ativar/Desativar botão por consulta Empty Re: [Resolvido]Ativar/Desativar botão por consulta

    Mensagem  Cláudio Más 23/10/2012, 21:36

    Reforçando a explicação do Avelino, o vba primeiro avalia o lado direito da expressão, no caso o DCount() > 0 (verdadeiro ou falso). Depois atribui o resultado ao que está no lado esquerdo do "=".

    Faltou dar o tópico como resolvido.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8489
    Registrado : 05/11/2009

    [Resolvido]Ativar/Desativar botão por consulta Empty Re: [Resolvido]Ativar/Desativar botão por consulta

    Mensagem  Alexandre Neves 23/10/2012, 22:34

    Boa noite, filipevital, e bem-vindo ao fórum
    [Resolvido]Ativar/Desativar botão por consulta MaximoAccess%20ResolvidoMarcado


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Conteúdo patrocinado


    [Resolvido]Ativar/Desativar botão por consulta Empty Re: [Resolvido]Ativar/Desativar botão por consulta

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/10/2024, 09:30