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
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