[Resolvido]Apagar o registro errado e mover o foco de volta ao campo

Amigos, boa noite!

Tenho dois problemas na seguinte situação:
1.
O usuário preenche vários campos de um subform e, qdo um dos campos não satisfaz determinada condição o valor desse campo, e somente desse campo, deve ser deletado e o foco retornado para ele. Isso é importante porque se usuário já digitou três ou quatro campos corretos, não é justo que tenha que iniciar toda a linha novamente porque errou apenas em um campo.
O código está no evento Após Atualizar dos campos.
Me!txtDataSaida.Undo Esta linha não está funcionando como eu gostaria. já tentei frm.Undo, me.Undo e Me.TxtDataSaida.Undo

2.
Mesmo usando Me!txtDataSaida.SetFocus o foco não se move de volta para o txtDataSaida. Tentei outras variações a exemplo do problema 1, mas não deu certo.

Todos os campos tem preenchimento obrigatório, ocorrendo em erro ao usar .Value = "" ou txtDataSaida = Null. Talvez desse certo se o foco retornasse para os campos, mas não tenho certeza.

Código:

Private Sub txtDataSaida_AfterUpdate()
    dtaDataSair = DataSaida 'Variável pública
     If dtaDataSair < Date Then
        MsgBox "A data de saída deve ser igual ou maior à data de hoje. Por favor, informe uma data válida!", vbExclamation, "Sistema Educacional"
        Me!txtDataSaida.Undo
        Me!txtDataSaida.SetFocus
    End If
End Sub


Se puderem ajudar, fico grato.
Pesquisei e encontrei situações onde não se deseja salvar nenhum registro, mas isso causaria descontentamento no usuário.

Tente:

Me!txtDataSaida = ""
ou me.txtdatasaida = Null

Amigos, obrigado!

Dá erro 2108 ao usar as opções que me sugeriram, na seguinte ordem:

Código:

Private Sub txtDataSaida_BeforeUpdate(Cancel As Integer)
   
    dtaDataSair = DataSaida
   
    If dtaDataSair < Date Then
        MsgBox "A data de saída deve ser igual ou maior à data de hoje. Por favor, informe uma data válida!", vbExclamation, "Sistema Educacional"
        Me.txtDataSaida.SetFocus
        Me.txtDataSaida = Null
    End If

End Sub

Ou invertendo a ordem como abaixo, está dando erro em tempo de execução, dizendo que não podem ser salvos os dados do campo, usando em antes de atualizar.

Código:

Private Sub txtDataSaida_BeforeUpdate(Cancel As Integer)
   
    dtaDataSair = DataSaida
   
    If dtaDataSair < Date Then
        MsgBox "A data de saída deve ser igual ou maior à data de hoje. Por favor, informe uma data válida!", vbExclamation, "Sistema Educacional"
        Me.txtDataSaida = Null
        Me.txtDataSaida.SetFocus
    End If

End Sub

Olá amigo, grato pelo retorno!

O sistema informa que o valor viola a regra de validação do registro ou campo.
Não há regras de validação no formulário ou tabela, para este campo.
Creio que a função atribui uma "regra de validação", mas não sei como resolver.
O foco é movido para o campo específico, mas não elimina o valor do campo. Caso o usuário passe o próximo campo o valor acaba sendo aceito.

Amigos, alguma informação nova!
Pesquisei outros assuntos mas nada ainda

Olá João,
Tente assim, no evento Ao Sair do seu campo:

If TxtDataSaida < Date Then
MsgBox "A data de saída deve ser igual ou maior à data de hoje. Por favor, informe uma data válida!", vbExclamation, "Sistema Educacional"
Cancel = True
Me.TxtDataSaida = Null
Me.TxtDataSaida.SetFocus
End If

Grato pelo retorno!

Funcionou bem, mas tem um detalhe, o foco não retorna para o campo de forma alguma.
Já tentei outros caminhos, mas não deu certo.

Estranho. Testei aqui e o foco se manteve no campo.

Olá meu amigo

Segue frm para avaliação

Selecione um aluno e no subfrm atribua uma saída preenchendo os campos. Tente preencher com data inferior à atual para ver a mensagem e o deslocamento do foco.

Os outros campos data também tem condições semelhantes.
Foco Aqui

Meu Access não reconheceu o formato do arquivo.
Se puder converter para o 2007...

Agora vai

Foco novo

Olá João,
Como você disse no post anterior... Agora vai.
Observe que não considerei a variável. Trabalhei com o próprio nome do campo. E isso no evento Ao Sair, e não no Após Atualizar. Exatamente como havia dito na postagem onde coloquei o código.
Dê uma olhada.

     O que á falta de atenção!!!!

Teria poupado tempo (principalmente o seu) e eu aprendido mais rápido!   

Muito obrigado mais uma vez!!!

Obrigado pelo retorno.
Sucesso.
Valeu.

A muito estava procurando encontrar essa mesma solução para o mesmo problema, agora encontrei.