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

    [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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4281
    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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4281
    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: Sex 18 Ago 2017, 02:22