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

    Condicional entre valores númericos

    avatar
    cristiano002095
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 27/09/2019

    Condicional entre valores númericos Empty Condicional entre valores númericos

    Mensagem  cristiano002095 em 5/3/2020, 17:51

    Olá pessoal, sou novo aqui no site e este é o meu primeiro post relacionado a uma duvida básica que tenho.
    Estou montando um banco para compras de materiais e serviços no qual após o usuário inserir os itens da ordem de compra terei o valor total dos itens somados.
    Na empresa temos perfis de aprovação desta ordem de compra por valor. É assim:

    Até R$ 1.000 = Aprovador 1
    Entre R$ 1.000 e R$ 5.000 = Aprovador 2
    Acima de R$ 5.001 = Aprovador 3

    Tenho um campo no formulário que após atualizar o Form, o código precisa condicionar o valor total da ordem e definir qual aprovador. Vamos lá

    txtValor = Valor total da Ordem de Compra
    txtaprovador = Defini qual o nível de aprovador a ordem de compra deve receber.

    Tentei assim:
    Private Sub btcalcular_Click()
    If txtValor.Value > 5000 Then
    txtaprovador.value = "Aprovador 3"
    ElseIf txtValor.Value > 1000 And < 5000 Then 'Aqui esta dando erro - Eu quero que apareça "Aprovador 2" se o valor estiver na condicional.
    txtaprovador.value = "Aprovador 2"
    ElseIf txtValor.Value < 1000 Then
    txtaprovador.Value = "Aprovador 1"
    End If

    Não sei qual operador usar para condicionar o valor ENTRE.
    Alguem pode me ajudar?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    Registrado : 13/12/2016

    Condicional entre valores númericos Empty Re: Condicional entre valores númericos

    Mensagem  Alexandre Fim em 5/3/2020, 18:02

    Olá Cristiano...Seja bem-vindo ao fórum.

    Para atender a sua solicitação, o código deve ser assim:

    Código:


    'Se for a partir de 5000, entãso utilize  MAIOR/IGUAL
    If txtValor.Value >= 5000 Then
        txtaprovador.Value = "Aprovador 3"
    ElseIf txtValor.Value >= 1000 And txtValor.Value <= 5000 Then
        txtaprovador.Value = "Aprovador 2"
    ElseIf txtValor.Value < 1000 Then
        txtaprovador.Value = "Aprovador 1"
    End If



    Copie e cole o código e insira no seu projeto.

    OBS: Vale lembrar que o valores para atender as condições estão fixos no código. O melhor seria criar uma tabela com estes valores (e até outros valores que se fizer necessário) e fazer uma consulta para buscar o Aprovador conforme o valor informado.
    vou criar um exemplo pra voce e te mando.

    Espero ter ajudado.

    Boa sorte


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    cristiano002095
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 27/09/2019

    Condicional entre valores númericos Empty Condicional entre valores númericos

    Mensagem  cristiano002095 em 5/3/2020, 18:31

    Obrigado Alexandre, Funcionou perfeitamente
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2453
    Registrado : 22/11/2016

    Condicional entre valores númericos Empty Re: Condicional entre valores númericos

    Mensagem  DamascenoJr. em 5/3/2020, 20:39

    Cristiano, faltou dar o tópico como resolvido.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 1/12/2020, 11:43