Não avançar do campo sem corrigir a condição

Vivam!

Tenho em OnCurrent de um formulário e em After Update do campo, o seguinte:

Private Sub DtLimiteProj_AfterUpdate()
If DtLimiteProj < DtEntradaProj Then
MsgBox "A data limite para a entrega do projeto tem de ser a mesma ou posterior à data da entrada"
End If
End Sub

A mensagem de erro funciona bem nas condições colocadas. Contudo, após o Enter passa para o campo seguinte.
O que pretendo é que o cursor fique 'retido' no campo DtLimiteProj, se a data for anterior à DtEntradaProj, enquanto a condição não for cumprida.
Já tentei com SetFocus mas não resultou.

Agradeço qualquer ideia.
Antecipadamente agradecido.

anvs

O evento correto é "Antes de Atualizar".

Código:

If DtLimiteProj < DtEntradaProj Then
MsgBox "A data limite para a entrega do projeto tem de ser a mesma ou posterior à data da entrada"
Cancel = True 'cancelando a atualização do campo com o valor que está, ou seja, não permitindo perder foco
End If

Não esqueça de dar o tópico como resolvido!

DamascenoJr

Agradeço a sua pronta resposta.

Colocando a sua solução em AfterUpdate e em OnCurrent, acontece exatamente o mesmo: avança para o campo seguinte e deixa ficar uma data que não cumpre a condição.

anvs

Antes de Atualizar/BeforeUpdate

Perfeito!

Muito obrigado, pela pronta resposta e pela solução!
anvs

O fórum agradece o retorno. Sucesso.