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


2 participantes

    [Resolvido]Não mostrar numeros negativos

    avatar
    sabryn@
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Não mostrar numeros negativos Empty [Resolvido]Não mostrar numeros negativos

    Mensagem  sabryn@ 19/7/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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Não mostrar numeros negativos Empty Re: [Resolvido]Não mostrar numeros negativos

    Mensagem  Alvaro Teixeira 19/7/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
    avatar
    sabryn@
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Não mostrar numeros negativos Empty Re: [Resolvido]Não mostrar numeros negativos

    Mensagem  sabryn@ 19/7/2015, 22:23

    Perfeito
    Muitíssimo obrigada
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Não mostrar numeros negativos Empty Re: [Resolvido]Não mostrar numeros negativos

    Mensagem  Alvaro Teixeira 19/7/2015, 22:30

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

    Conteúdo patrocinado


    [Resolvido]Não mostrar numeros negativos Empty Re: [Resolvido]Não mostrar numeros negativos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 22:49