Duplicados, afterupdate y deshacer

Cada uno es libre de poner el código donde quiera, pero yo te aconsejaría que lo pusieras en el evento Antes de actualizar. ¿Para qué vas a esperar a actualizar un valor, y después vas a anularlo?
Por ejemplo, supongamos que tienes una Tabla2 con un campo Numfactura y un formulario Ventas con ese mismo cuadro de texto. En sus propiedades-eventos-Antes de actualizar, puedes crear un procedimiento de evento y entre Private Sub y End Sub escribir
If dcount("numfactura","tabla2","[numfactura]=[forms]![Ventas]![numfactura]")>=1 then
msgbox"Esa factura ya existe",vbokonly
docmd.cancelevent
end if
Esto lo que hace es que cuando escribas un número, ANTES de guardarlo mira si ya hay otro en la tabla. Si lo hay te aparece el mensaje y "no te deja" pasar de Numfactura.
De todas formas, puedes hacer exactamente lo que quieres (también en el evento Antes de actualizar) poniendo
el código como
Dim respuesta As Integer
If DCount("numfactura", "tabla2", "[numfactura]=[forms]![tabla2]![numfactura]") >= 1 Then
DoCmd.CancelEvent
respuesta = MsgBox("Ya existe ese número de factura", vbOKOnly)
If respuesta = vbOK Then
Numfactura.Undo
End If
End If
Se diferencia en que ahora te borra lo escrito.

Ok, lo he puesto en antes de actualizar, con esto consigo que me borre lo escrito, pero no consigo que me deshaga campo/registro activo.
El problema que tengo es que en el evento "al salir" tengo una acción actualizar (ya que me interesa que me salgan unos datos de otra tabla en función de lo que meta en numfactura). Con esto, si quiero salir después de meter un numero de factura duplicado y que me lo borre, no me deja, ya que me dice que la clave principal no puede ser nula. Lo que querría es que me deshiciera campo/registo activo, pero no me lo hace ni metiendo otro Undo, en cambio, si que me lo hace metiendo el deshacer vía menús.
¿Cómo lo soluciono eso?
Gracias por la colaboración