SetFocus not working

[Momma]

I want to set the focus on the Email field if already exist. Not getting an error but it goes to the next field instead.

Private Sub Email_AfterUpdate()
    If DCount("*", "tblContacts", "[Email] = '" & Me.Email & "'") > 0 Then
        MsgBox "This Email already exists:-" & vbCrLf, vbOKOnly + vbExclamation
        Me.Undo
        Me.Email.SetFocus
    End If
End Sub

 

[arnelgp]

use BeforeUpdate event:

Private Sub Email_BeforeUpdate(Cancel As Integer)
    Cancel = (DCount("*", "tblContacts", "[Email] = '" & Me.Email & "'") <> 0)
    If Cancel  Then
        MsgBox "This Email already exists:-" & vbCrLf, vbOKOnly + vbExclamation
    End If
End Sub

 

[Momma]

use BeforeUpdate event:

Private Sub Email_BeforeUpdate(Cancel As Integer)
    Cancel = (DCount("*", "tblContacts", "[Email] = '" & Me.Email & "'") <> 0)
    If Cancel  Then
        MsgBox "This Email already exists:-" & vbCrLf, vbOKOnly + vbExclamation
    End If
End Sub

Thank you for your reply. It is working