Saludos
Buen dia a todos
Tengo un problema en una pagina qeu estoy realizando al insertar datos necesito eliminar las cosas por lo tanto hice la función "ChecaCadeba" pero no funciona
Teniendo la duda de que estuviera mal hice "ValCadena" que si por ejemplo yo ingreso
"perra" me uestra "perre" pero si pongo con acento me la deja igual
alguien save porque no me funciona
asi los mando llamar
Call ValidaCadenaInvalida(varMATT)
Call ValidaCadenaInvalida(varPAT)
Call ValidaCadenaInvalida(varMAT)
Call ValidaCadenaInvalida(varNOM)
Call ChecaCadena(varMATT)
Call ChecaCadena(varPAT)
Call ChecaCadena(varMAT)
Call ChecaCadena(varNOM)
'-------------------------------------------------------------------------------------------
'Prueba Cadena
'-------------------------------------------------------------------------------------------
Function ValCad(strCadena)
strCadena = replace(strCadena,"a","e")
strCadena = replace(strCadena,"á","e")
strCadena = Trim(strCadena)
ValCad = strCadena
End Function
'-----------------------------------------------------------------------------------------------
' Funcion para quitar los acentos
'-----------------------------------------------------------------------------------------------
Function ChecaCadena(Cadena)
Cadena = Replace(Cadena,"Á","A")
Cadena = Replace(Cadena,"À","A")
Cadena = Replace(Cadena,"Ä","A")
Cadena = Replace(Cadena,"á","a")
Cadena = Replace(Cadena,"ä","a")
Cadena = Replace(Cadena,"à","a")
Cadena = Replace(Cadena,"É","E")
Cadena = Replace(Cadena,"Ë","E")
Cadena = Replace(Cadena,"È","E")
Cadena = Replace(Cadena,"è","e")
Cadena = Replace(Cadena,"é","e")
Cadena = Replace(Cadena,"ë","e")
Cadena = Replace(Cadena,"Í","I")
Cadena = Replace(Cadena,"Ì","I")
Cadena = Replace(Cadena,"Ï","I")
Cadena = Replace(Cadena,"ì","i")
Cadena = Replace(Cadena,"í","i")
Cadena = Replace(Cadena,"ï","i")
Cadena = Replace(Cadena,"Ó","O")
Cadena = Replace(Cadena,"Ò","O")
Cadena = Replace(Cadena,"Ö","O")
Cadena = Replace(Cadena,"ò","o")
Cadena = Replace(Cadena,"ó","o")
Cadena = Replace(Cadena,"ö","o")
Cadena = Replace(Cadena,"Ú","U")
Cadena = Replace(Cadena,"Ù","U")
Cadena = Replace(Cadena,"Ü","U")
Cadena = Replace(Cadena,"ù","u")
Cadena = Replace(Cadena,"ú","u")
Cadena = Replace(Cadena,"ü","u")
strCadena = Trim(strCadena)
ChecaCadena = Cadena
End Function
Thanks por la atención prestada
