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

    Como criar uma consulta, com base em uma faixa de valores

    avatar
    Gustavo Cardoso Lamoglia
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 06/05/2017

    Como criar uma consulta, com base em uma faixa de valores Empty Como criar uma consulta, com base em uma faixa de valores

    Mensagem  Gustavo Cardoso Lamoglia em Ter Ago 18, 2020 3:15 pm

    Boa tarde a todos, estou com uma dúvida gigante, em um sistema que estou criando ao entrar em campos específicos, tipo exergia que é numérico, ele tem uma faixa de valores, tipo.

    0,00% 13,70% (MUITO BAIXA)
    13,71% 25,35% (BAIXA)
    25,36% 37,00% (NORMAL BAIXA)
    37,01% 48,65% (NORMAL ALTA)
    48,66% 60,30% (ALTA)
    60,31% Acima (MUITO ALTA)

    O retorno seria no campo resultado, as mensagens acima.
    Private Sub numero_LostFocus()
    Dim Energia As Single
    Select Case Energia

    Case Is <= 13, 70

    MsgBox ("Muito baixo")

    Case Is >= 13, 71 To 25, 35
    MsgBox ("Baixa")

    Case Is >= 25, 36 To 37, 0
    MsgBox ("Normal Baixa")

    Case Is >= 37, 1 To 48, 65
    MsgBox ("Normal Alta")

    Case Is >= 48, 66 To 60, 30
    MsgBox ("Alta")

    Case Is > 60, 31
    MsgBox ("Muito Alta")

    End Select

    End Sub

    Em um campo chamado resposta, seria armazenado os textos
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Como criar uma consulta, com base em uma faixa de valores Empty Re: Como criar uma consulta, com base em uma faixa de valores

    Mensagem  scandinavo em Ter Ago 18, 2020 4:32 pm

    Depois de emitir mensagem salva a mensagem em caixa de texto

    Case Is <= 13, 70

    MsgBox ("Muito baixo")
    me.Resposta="Muito baixo"

    Case Is >= 13, 71 To 25, 35
    MsgBox ("Baixa")
    me.Resposta="Baixa"

    Case Is >= 25, 36 To 37, 0
    MsgBox ("Normal Baixa")
    me.Resposta="Normal Baixa"

    Case Is >= 37, 1 To 48, 65
    MsgBox ("Normal Alta")
    me.Resposta="Normal Alta"

    Case Is >= 48, 66 To 60, 30
    MsgBox ("Alta")
    me.Resposta="Alta"

    Case Is > 60, 31
    MsgBox ("Muito Alta")
    me.Resposta="Muito Alta"
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Como criar uma consulta, com base em uma faixa de valores Empty Re: Como criar uma consulta, com base em uma faixa de valores

    Mensagem  scandinavo em Ter Ago 18, 2020 10:15 pm

    isto que te passei é para ser usado em formulário.
    para a consulta terá que criar uma função.

      Data/hora atual: Qua Out 21, 2020 10:55 am