[Resolvido]Código simples que não funciona

Grandes Mestres,

Este código abaixo (que não funciona) está em "após atualizar".
São três campos:
MatAte (botão de combinação)
CodAte (botão de combinação)
DatAte (Uma data que o padrão é a data do computador)

Queria que se o conteúdo da variável "registros" > 1 NÃO deixar passar, dar mensagem, não salvar, limpar os campos e voltar para MatAte (primeiro campo).
O básico está abaixo e nada funciona. Hora grava mesmo entrando no código, hora não grava, não entra no código se ENTER DatAte (padrão é a data do computador), quando abre o formulário e digita todos os campos funciona, mas no próximo registro começa os problemas citados.
Acerto uma coisa, aparece outra, acerto a outra, volta aparecer primeiro erro.

Alguém pode me ajudar?


If registros > 1 Then
MsgBox "Associado já usou seu limite de atendimentos no período " & registros, vbExclamation, "LIMITE DE ATENDIMENTO"
'DoCmd.RunCommand acCmdUndo
Me.Undo
DoCmd.CancelEvent 'cancela o evento.
Me!codcod.Undo 'desfaz a digitação.
Me!AteCod.Undo 'desfaz a digitação.
Me!DatAte.Undo 'desfaz a digitação.
Me.[AteCod].SetFocus
Me.[codcod].SetFocus


End If

Muito grato a todos

Tente..

If registros > 1 Then
MsgBox "Associado já usou seu limite de atendimentos no período " & registros, vbExclamation, "LIMITE DE ATENDIMENTO"
else
'DoCmd.RunCommand acCmdUndo
Me.Undo
DoCmd.CancelEvent 'cancela o evento.
Me!codcod.Undo 'desfaz a digitação.
Me!AteCod.Undo 'desfaz a digitação.
Me!DatAte.Undo 'desfaz a digitação.
Me.[AteCod].SetFocus
Me.[codcod].SetFocus


End If

Grande Rafael

Muito obrigado pelo código. Já havia resolvido exatamente como fizestes. O que não entendo é que logo no início eu havia feito deste mesmo modo e não funcionava. Tentei várias outras maneiras e não funcionou, voltei para a primeira (a que está agora) e funciona. Embora que ainda tem um buraquinho que vez por outra não funciona e estou tentando descobrir quando é para solucionar.
Muito obrigado.
Grande abraço

Obrigado pelo Retorno !


O fórum agradece.