Validação entre dois campos

Question

Oi Developers,

Pessoal, não consigo fechar meu código de forma alguma, é o seguinte...

Tenho campo [TxtFormaPagamento] e [TxtValorRecebido]...

Eu quero que quando o campo [TxtFormaPagamento] for =  "A Vista", o campo [TxtValorRecebido] não aceite nulo (Vazio)...

Fiz um código que valida o campo, porém mesmo quando eu coloco o valor recebido ele continua validando como se não tivesse colocando nada. Tá assim o código...

     If Me.TxtFormaPagamento = "A Vista" Then

          IsNull (Me.TxtValorRecebido)

          MsgBox "O campo Valor Recebido é Obrigatório para pagamento A Vista"

          End

     End If

Desde já muito agradecido por qualquer help de vcs.

Att: Mario.

Answer 1

  If Me.TxtFormaPagamento = "A Vista" _
  And IsNull(Me.TxtValorRecebido) Then
    MsgBox "O campo Valor Recebido é Obrigatório para pagamento A Vista", vbExclamation
    Exit Sub
  End If

Você esqueceu de colocar a função IsNull num teste condicional.

---

Tomei a liberade e troquei End por Exit Sub. 

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 2

Por Felipe, foi isso mesmo! Obrigado pela ajuda!!! Problema solucionado.