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

    [Resolvido]Não mostrar numeros negativos

    Compartilhe

    sabryn@
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 29
    Registrado : 26/04/2015

    [Resolvido]Não mostrar numeros negativos

    Mensagem  sabryn@ em Dom 19 Jul 2015, 18:20

    Caros, boa tarde!

    Tenho um formulário de Check List que avalia o desempenho dos funcionários através de checkbox, onde cada uma deles tem um valor que ao pressona-los são descontados os pontos. e tem alguns considerados erros graves que zeram o formulário de cara
    Nesse mesmo form tem uma caixa de texto que tem como valor padrão 100 (pois cada funcionário começa com 100%) e é dessa caixa que eu vou tirando os pontos.

    Gostaria de saber como fazer para que o valor nessa caixa de texto não fique negativo, porem não pode ser através de regra de validação (>=0) porque senão apresentara erro.

    Sei que parece estranho a pergunta, pois ao chegar no valor zero eu deveria parar a avaliação, porem, é necessário que todos os pontos sejam verificados, para que depois eu possa extrair um relatório com os itens mais pontuados e assim focar nos pontos mais críticos.

    O vb das checkbox para avaliação é:

    If Item1 Then
    Me.Nota.Value = Me.Nota.Value - 5
    Else
    Me.Nota.Value = Me.Nota.Value + 5
    End If


    o vb da checkbox que zera a avaliação:

    If Item 2 Then
    Me.Nota.Value = 0
    Else
    Me.Nota.Value = 0
    End If


    E a caixa de texto (nota) tem o valor padrão 100 (Para que ao iniciar o form o numero ja esteja la)

    agora preciso de um vb para que os numeros não apareçam negativos

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

    Re: [Resolvido]Não mostrar numeros negativos

    Mensagem  ahteixeira em Dom 19 Jul 2015, 22:07

    Olá, tente assim:

    Código:
    If Item1 Then
    Me.Nota.Value = Me.Nota.Value - 5
    Else
    Me.Nota.Value = Me.Nota.Value + 5
    Endif

    If Me.Nota.Value <  0 then Me.Nota.Value = 0

    Abraço

    sabryn@
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 29
    Registrado : 26/04/2015

    Re: [Resolvido]Não mostrar numeros negativos

    Mensagem  sabryn@ em Dom 19 Jul 2015, 22:23

    Perfeito
    Muitíssimo obrigada

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

    Re: [Resolvido]Não mostrar numeros negativos

    Mensagem  ahteixeira em Dom 19 Jul 2015, 22:30

    Olá Sabrina, obrigado pelo retorno os utilizadores do fórum agradecem.
    Abraço

      Data/hora atual: Dom 04 Dez 2016, 06:02