[Resolvido]regra de validação nao funciona

Boa tarde a todos!
Estou quebrando  com um determinado código que escrevi, pois uam das condiçoes imposta nao esta sendo
obedecida pelo access, vou postar o código e na sequencia explico melhor:

Private Sub BTBAIXAR_Click()
If IsNull(Me!VlrPg) Then
MsgBox "Você precisa informar o valor Pago", vbInformation, "Valor da Despesa"
Me.VlrPg.SetFocus
Exit Sub
End If
If Me!VLR > Me!VlrPg Then
MsgBox " Verifique o valor digitado!", vbCritical, "Valor não Permitido"
Exit Sub
End If
Dim Escolha
Dim DB As Database
Dim RS As DAO.Recordset
Set DB = CurrentDb()
Set RS = DB.OpenRecordset("DESPESAS")
RS.Index = "IDDESP"
RS.Seek "=", (Me!IDDESP)

RS.Edit
Escolha = MsgBox("Confirmao pagamento dessa conta?", vbYesNo, "Confirmação")
If Escolha = 6 Then
RS!STATUS = 1
RS!VlrPago = Me!VlrPg
Me.CBLISTA.Requery
MsgBox "Conta baixada", vbInformation, "Confirmação"
RS.Update
Me.CBLISTA.Requery
Else
DoCmd.CancelEvent
Me.Undo
MsgBox "O pagamento nao foi efetivado!", vbinfomation, "Cancelado pelo Usuário"
End If

End Sub
'------------------------------------------------------------------------------------------------------------------------------------
O código em si funciona perfeitamente o prblema está na linha em negrito
Trata-se de regra de validaçao onde ele compara o valor da Despesa e o valor que está sendo pago.
No caso o valor pago não pode ser menor que o valor da despesa, pois seria incoerente.
porém no caso de um atraso no pagamento se o valor tiver alguma multa ou correção,o pagamento a baixa ocorreria normalmente visto que isso seria normal ( Exemplo: pagamento de boleto em atraso).
Oque está acontecendo é que se habilito esse código de validação nao importa se o valor é igual ou maior que o valor da conta em questão o sistema simplesmente me informa via msgbox que o valor informadoprecisa verficado exatamente como esá no código.
e ai não executa o resto do processo.
Isso só deveria ocorrer quando valor pago fosse menor que o valor a pagar .
O campo VLR é o Valor da conta o Campo VlrPg é o valor pago.
Onde estou errando?
Alguem poderia me dar uma luz
Obrigado!

Caro Ney Santos, Boa tarde.

Posta aqui a parte do banco onde está ocorrendo o problema para visualizarmos melhor.

Grande abraço.

boa tarde,

o ideal seria testar no bd, mas tenta dessa forma:

Código:

Private Sub BTBAIXAR_Click()

Dim Escolha
Dim DB As Database
Dim RS As DAO.Recordset
Set DB = CurrentDb()
Set RS = DB.OpenRecordset("DESPESAS")


If IsNull(Me!VlrPg) Then

    MsgBox "Você precisa informar o valor a Pagar", vbInformation, "Valor a Pagar"
    Me.VlrPg.SetFocus
    Exit Sub

End If


If IsNull(Me!VLR) Then

    MsgBox "Você precisa informar o valor da Despesa", vbInformation, "Valor da Despesa"
    Me.VLR.SetFocus
    Exit Sub

End If


If Me!VLR > Me!VlrPg Then

    MsgBox "Verifique o valor do pagamento!", vbCritical, "Valor a Menor"
    Exit Sub

End If

Escolha = MsgBox("Confirmao pagamento dessa conta?", vbYesNo, "Confirmação")

If Escolha = 6 Then

    RS.Index = "IDDESP"
    RS.Seek "=", (Me!IDDESP)
    RS!STATUS = 1
    RS!VlrPago = Me!VlrPg
    RS.Edit
    RS.Update
   
    Me.CBLISTA.Requery
    MsgBox "Conta baixada", vbInformation, "Confirmação"

    Exit Sub

Else

    DoCmd.CancelEvent
    Me.Undo

    MsgBox "O pagamento nao foi efetivado!", vbinfomation, "Cancelado pelo Usuário"

    Exit Sub

End If

End Sub

Abraços,

Vou testar , mas a pedidos segue parte do bd
desde já agradeço a atenção.
Para selecionar um laçamento de um duplo click na listagem de contas

Boas, só dando um pitaco !

If Me!VLR > Me!VlrPg Then
MsgBox " Verifique o valor digitado!", vbCritical, "Valor não Permitido"
Exit Sub
End If

if Me!VLR > Me!VlrPg Then
Me!VLR.setfocus
MsgBox " Verifique o valor digitado!", vbCritical, "Valor não Permitido"
Exit Sub

End If

Prezado Silvio!
Obrigadp pela atenção...
realmente faltou esse detalhe mas não resolve, independente do valor digitado ,maior ou menor que o valor da conat o evento dispara e nao concretisa a baixa..

Abraço.

Prezado Cleverson, testei seu código e tambem não funcionou, ou seja ele contnua nao respeitando a regra de validação.
fiz algumas alteraçoes pois quando simplesmente comentei a parte que tratava do valor a meno estava dando erro ai reescrevi e o codigo funciononou porem desde que eu desabilite a parte onde verifica seo valor pago e menor ou amoir que o valor a pagar veja:


If IsNull(Me!VLRPG) Then

MsgBox "Você precisa informar o valor a Pagar", vbInformation, "Valor a Pagar"
Me.VLRPG.SetFocus
Exit Sub

End If


If IsNull(Me!VLR) Then

MsgBox "Você precisa informar o valor da Despesa", vbInformation, "Valor da Despesa"
Me.VLR.SetFocus
Exit Sub

End If
Dim Escolha
Dim DB As Database
Dim RS As DAO.Recordset
Set DB = CurrentDb()
Set RS = DB.OpenRecordset("DESPESAS")
RS.Index = "IDDESP"
RS.Seek "=", (Me!IDDESP)

RS.Edit
'If Me!VLR > Me!VLRPG Then

' MsgBox "Verifique o valor do pagamento!", vbCritical, "Valor a Menor"
' Exit Sub

'End If

Escolha = MsgBox("Confirmao pagamento dessa conta?", vbYesNo, "Confirmação")

If Escolha = 6 Then


RS!STATUS = 1
RS!VlrPago = Me!VLRPG
' RS.Edit
RS.Update
Me.VLRPG = Null
Me.CbLista.Requery
MsgBox "Conta baixada", vbInformation, "Confirmação"

Exit Sub

Else

DoCmd.CancelEvent
Me.Undo

MsgBox "O pagamento nao foi efetivado!", vbinfomation, "Cancelado pelo Usuário"

Exit Sub

End If


Continuamos a tentar...
Abraços

Ney

Altere esta parte e teste:

If Me!VLR.Value > CDBl(Me!VlrPg) Then
MsgBox " Verifique o valor digitado!", vbCritical, "Valor não Permitido"

Exit Sub
End If

If IsNull(Me!VLRPG) Or Me!VLRPG= "" Or IsNull (Me!VLR OR Me.VLR= "" Then

MsgBox "Você precisa informar o valor a Pagar, preste atenção !!! ", vbInformation, "Valor a Pagar"
Me.VLRPG.SetFocus
Exit Sub

Else

Dim Escolha
Dim DB As Database
Dim RS As DAO.Recordset
Set DB = CurrentDb()
Set RS = DB.OpenRecordset("DESPESAS")
RS.Index = "IDDESP"
RS.Seek "=", (Me!IDDESP)

Prezado Assis, funcionou perfeitamente.
Essa comunidade é simplesmente maraviolhosa sempre disposta a nos ajudar.
agora funcionou da maneira que eu esperava.
muito obrigado a todos que se manifestaram para ajudar.
Deixo o topico como resolvido,

Att

Ney Santos

Obrigado Ney

Pelo retorno o forum agradece.

só por curisidade oque srika esse Item CDBl?
eel nao consta no meu projeto..
Fiquei curioso tentando entender essa linha que vc alterou..