Como colocar 2 parametros para validar entrada de dados em botão de formulário

Eu usei um código para parametrizar um campode um formulário (código este que peguei aqui mesmo no fórum). Eis ele abaixo:

Private Sub ValorEntrada_AfterUpdate()
If Me.ValorEntrada < Me.txtTotal * 30 / 100 Then
MsgBox "O sinal precisa ser de pelo menos 30% do valor total", vbOKOnly + vbInformation, "ATENÇÃO"
Me.ValorEntrada = Null
Me.ValorEntrada.SetFocus
End If
End Sub

Acontece que este campo bloqueia qualquer valor abaixo de 30% do valor total do pedido. Isto é para que os atendentes não aceitem pedidos sem este valor de entrada de 30%. O problema é que existe alguns clientes (especiais) que só pagam na entrega da mercadoria, ou seja, eu precisaria acrescentar uma condição em que ele aceitasse o Valor de Entrada com o valor R$ 0,00 (não aceitasse nulo, mais aceitasse zero). Tem como eu acrescentar isso??? E como fazer???

Opa blz?

Tente:

Código:


If Me.ValorEntrada < Me.txtTotal * 30 / 100 or Me.Entrada = 0 Then


Falow,

Marcelo

Boa tarde... Eu já havia tentado fazer desta maneira que você indicou mais não deu certo, pois o BD vai pedir que digite um valor acima de 30% do Valor Total. Repare que existe esta condição no código indicado. Como o valor "zero" é um valor menor que 30%, o BD não libera. Eu precisaria que ele aceitasse o valor "zero" e após o "zero", só aceitasse valores acima de 30% do valor total do pedido.

Olá

Private Sub ValorEntrada_AfterUpdate()
If Me.ValorEntrada < Me.txtTotal * 3 / 10 Then
if me.ValorEntrada <> 0 then
MsgBox "O sinal precisa ser de pelo menos 30% do valor total", vbOKOnly + vbInformation, "ATENÇÃO"
Me.ValorEntrada = Null
Me.ValorEntrada.SetFocus
end if
End If
End Sub