Access - Problema con el Focus

Tengo estas lineas de codigo:

Private Sub txtEMPRESA_AfterUpdate()
'CUENTA LAS VECES QUE APARECE EL TEXTO TECLEADO EN LA TABLA A GUARDAR,
'SI ES MAYOR A CERO ENVIA MENSAJE Y NO PERMITE GUARDAR

Dim intCUENTAEMPRESA As Integer

intCUENTAEMPRESA = DCount("[strEMPRESA]", "tblEMPRESAS", "[strEMPRESA] ='" & Me!txtEMPRESA.Value & "'")

If intCUENTAEMPRESA > 0 Then
MsgBox "EL NOMBRE QUE HA TECLEADO YA EXISTE, POR FAVOR INTRODUCE UN TEXTO DISTINTO.", , "TEXTO DUPLICADO."
txtEMPRESA.Value = Null
Me.txtEMPRESA.SetFocus
End If

End Sub

Por que el focus no regresa al control cuando la condicion se cumple?????

Hola buenas noches:

Prueba con el evento antes de actualizar, este:

Private Sub nif_BeforeUpdate(Cancel As Integer)

'Aquí pones lo mismo que has puesto arriba

End Sub

checa este enlace

http://www.lawebdelprogramador.com/news/mostrar_new.php?id=1&texto=Access&n1=533541&n2=2&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0

Hola Raziel:

NO puedes devolver al "foco" a un campo en el que estás.

El "truco" más utilzado es:

Envía el FOCO a otro campo, por ejemplo:

Me.txtDIRECCIÓN.SetFocus
y, a continuación,

Me.txtEMPRESA.SetFocus

NO importa que el 1er campo a donde envíes el foco esté antes o después del actual.

Con ésto te bastará

Saludos

Juan Amorós