Ao passar rápido por Campo, não executa condição

Boa Noite,
No meu form, tenho um campo com uma instrução IF, o que acontece é que se passar normalmente pelo campo ele funciona normalmente, mas, se deixar o dedo em cima do enter e ele passar rápido pelo campo, ele acaba não executando o comando corretamente, o comando está abaixo, se alguém poder me ajudar agradeço

Roxo

Private Sub UMFrete_Exit(Cancel As Integer)

If (Me.UMFrete) > "0" And (Forms!FrmPedidos!SfrmParcela!ContadorVencimento) < "2" Then
SfrmParcela.SetFocus 'move o foco para o subformulario
DoCmd.GoToRecord , , acLast 'vai até ao ultimo registro
DoCmd.GoToRecord , , acNewRec 'cria novo registro
Forms!FrmPedidos!SfrmParcela!UMParcela = Forms!FrmPedidos!UMFrete
Forms!FrmPedidos!SfrmParcela!DHDataVencimento = Forms!FrmPedidos!DHDataEntrega
Forms!FrmPedidos!SfrmParcela!ComboPar_Fre = "2"
Else
End If

End Sub

Olá,

Olhando assim, a critica que posso fazer é o uso de aspas em dados numerais, deveria tá sem as aspas. Tentou deixar sem aspas ?

Pode arriscar testar se está preenchido:

If isNull(SeuCampo) Then
      MsgBox "Preencha o campo antes de sair.", vbinformation, "Atenção"
      SeuCampo.setfocus
end if

Denilson, desculpa a demora no retorno
O que acontece é que o campo é calculado no subfrm e comparado a outro campo do Frm principal e a impressão que dá é que o access demora muito para executar o calculo e o foco vai trocar para outro campo, então da erro

Blz

Roxo