Como validar con acentos y sin acentos en access y duplicados

Tengo el siguiente cofigo

Private Sub PN1_AfterUpdate()
If DCount("*", "Libreta", "CLAVE='" & Me.P1 & "'") > 0 Then 'Si se cumple es que el nombre ya está registrado
If DCount("*", "Libreta", "NOMBRE='" & Me.PN1 & "'") > 0 Then
    MsgBox "OCUPO ESTA PLAZA ANTES"
    PN1.ForeColor = 255 '(para letra en color rojo)
    PN1.FontWeight = 900 ' LETRAS EN NEGRITAS
'UnidadesEnExistencia .BackColor = 255 (para fondo en color rojo)
  Else
  If DCount("*", "Libreta", "TIPOCORRECCION='" & Me.PN1 & "'") > 0 Then
  MsgBox "OCUPO ESTA PLAZA ANTES"
    PN1.ForeColor = 255 '(para letra en color rojo)
    PN1.FontWeight = 900 ' LETRAS EN NEGRITAS
  End If
  End If
End If
End Sub

tengo una tabla llamada libreta 

Con 3 campos : clave, nombre, corrección

Con este código válido que la clave no se le asigne 2 veces a la misma persona, valida tanto el nombre como corrección (cambio de nombre a:)

Pero aveces me dice que el registro esta duplicado y no es así

Pero otro problema que tengo es que si al momento de consultar la clave 005 a nombre de "Hernandez"

Si escriben "Hernández" con acento ya no me da duplicidad.

Añade tu respuesta

Haz clic para o