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

    [Resolvido]Testar duas condições

    avatar
    lpdias
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 129
    Registrado : 11/01/2016

    [Resolvido]Testar duas condições Empty [Resolvido]Testar duas condições

    Mensagem  lpdias 2/9/2019, 15:21

    Bom dia!

    Tecnicamente não sei descrever o que necessito. Então tentarei explicar do meu jeito.

    Tenho um subformulário que ao colocar o preço do produto ele faz uma verificação no campo senha e se o campo estiver com a senha correta, ele libera a inserção do valor, caso contrário ele não deixa inserir.

    Acontece que eu tenho um valor para teste "123" e gostaria de deixar mais dois conjuntos de senhas.
    Isto é, gostaria que ele fizesse um teste e se tivesse a seha senha1, ou a senha2 ou senha3 ele permitisse a inserção, caso contrário ele barraria.

    Aqui vai o exemplo do que tenho:

    Private Sub valor_unit_AfterUpdate()
    If valor_unit > txtcalcbloqueio Then
    If txtsenhalibera = "123" Then
    Else
    MsgBox " O valor unitário excede o limite de 20% acima do preço médio praticado. Solicite senha de liberação ao seu Gestor! ", vbCritical
    Me.qtdepedido = ""
    Me.valor_unit = ""
    Me.txtproduto.SetFocus

    End If
    End If

    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]Testar duas condições Empty Re: [Resolvido]Testar duas condições

    Mensagem  JPaulo 2/9/2019, 16:44

    Amigão, você tem de usar o operador OR;

    Código:
    If txtsenhalibera = "123" Or txtsenhalibera = "234" Or txtsenhalibera = "345" Then


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Testar duas condições Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Testar duas condições Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Testar duas condições Folder_announce_new Instruções SQL como utilizar...
    avatar
    lpdias
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 129
    Registrado : 11/01/2016

    [Resolvido]Testar duas condições Empty Re: [Resolvido]Testar duas condições

    Mensagem  lpdias 2/9/2019, 17:33

    Muito obrigado JP, eu havia testado o "or", mas não estava conseguindo por não repetir o nome do campo.

    Obrigado pela instrução

    Abraço

      Data/hora atual: 24/7/2021, 07:44