[Resolvido]Um VBA para não permitir o avanço com o erro...

Oi! Como que eu forço o usuário, através do VBA, a preencher corretamente o campo N_Saida2, pois se ele utilizar a tecla TAB ele muda de registro?
Segue o comando:

Private Sub N_Saida2_AfterUpdate()
VerificaSaida2
End Sub

Private Sub VerificaSaida2()
If N_Saida2.Value < N_Saida1.Value Then
MsgBox "Numero de Saida2 da Série não pode ser menor que o numero de Saida1. Relance, por favor", vbInformation, "Atenção"
N_Saida2.Value = 0
Me.N_Saida1.SetFocus
Me.N_Saida2.SetFocus
End If
End Sub

Agradeço desde já!

Amigo, você não chamou a sub!
Em vez de fazer assim:

Private Sub N_Saida2_AfterUpdate()
VerificaSaida2
End Sub

Private Sub VerificaSaida2()
If N_Saida2.Value < N_Saida1.Value Then
MsgBox "Numero de Saida2 da Série não pode ser menor que o numero de Saida1. Relance, por favor", vbInformation, "Atenção"
N_Saida2.Value = 0
Me.N_Saida1.SetFocus
Me.N_Saida2.SetFocus
End If
End Sub

Faça assim:

Private Sub N_Saida2_AfterUpdate()
Call VerificaSaida2 'O Call em vermelho chama a sub
End Sub

Private Sub VerificaSaida2()
If N_Saida2.Value < N_Saida1.Value Then
MsgBox "Numero de Saida2 da Série não pode ser menor que o numero de Saida1. Relance, por favor", vbInformation, "Atenção"
Cancel = True 'Cancelo o evento e mantenho o foco no campo
N_Saida2.Value = 0
End If
End Sub

Ou simplesmente assim:

Private Sub N_Saida2_AfterUpdate()

If N_Saida2.Value < N_Saida1.Value Then
MsgBox "Numero de Saida2 da Série não pode ser menor que o numero de Saida1. Relance, por favor", vbInformation, "Atenção"
Cancal = True 'Cancelo o evento e mantenho o foco no campo N_Saida2
N_Saida2.Value = 0
End If


End Sub

Caro Marcelo, não surtiu efeito!
Inclusive a subtração do...
Me.N_Saida1.SetFocus
Me.N_Saida2.SetFocus
...fez falta!
O CALL e o CANCEL=TRUE continuou permitindo a mudança de registro sem exigir a correção do campo N_Saida2.

Boa tarde, MPS

E se colocar, ao entrar no controlo seguinte, a verificação se N_Saida2 é nulo. Se for, retorna ao controlo N_Saida2

Caro Alexandre, e se o usuário utilziar o mouse e passar por este controlo?
Caro Noberto, não entendi a tua orientação!
Obrigado a ambos!

Verdade Norbs, na correi ei acabei não atentando para o evento! Grato pela observação!!

Bom dia, MPS

Como só referiu o premir o TAB, lhe dei a sugestão.
Tente no acontecimento Form_BeforeUpdate

Caros, desculpem-me a demora! Mas só hoje consegui fazer os testes.
Coloquei em N_saida2 beforeupdate o seguinte:
If N_Saida2.Value < N_Saida1.Value Then
MsgBox "Numero de Saida2 da Série não pode ser menor que o numero de Saida1. Relance, por favor", vbInformation, "Atenção"
Cancel = True 'Cancelo o evento e mantenho o foco no campo N_Saida2
N_Saida2.Value = 0
End If

E deu uma mensagem 2115 dizendo que esta função está evitando o programa salve os dados do campo.

O que pode ser?
Agradeço desde já!!