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.