** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - VBA: Como Quitar Acentos a una cadena de texto
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoVBA: Como Quitar Acentos a una cadena de texto

 Responder Responder
Autor
Mensaje
admin Ver desplegable
Administrador
Administrador
Avatar

Unido: 14/Agosto/2013
Localización: Cualquier lugar
Estado: Sin conexión
Puntos: 790
Enlace directo a este mensaje Tema: VBA: Como Quitar Acentos a una cadena de texto
    Enviado: 14/Agosto/2013 a las 14:02
Emilio Sancha 2004

Esta función elimina todas las tildes de la cadena de texto pasada como parámetro, yo la uso en busquedas de palabras claves, para evitar problemas de errores en la acentuación (que dicho sea de paso, como ya habréis podido comprobar, se me da muy mal)

'*******************************************************************************

'* SinTildes

'* Devuelve sin tildes (acentos, dieresis) la palabra pasada como parámetro y

'* convertida a minusculas

'* Argumentos: strTexto => cadena de texto a convertir

'* uso: SinTildes strTexto

'* ESH 28/09/04 10:51

'*******************************************************************************

 

 

Function SinTildes(strTexto As String) As String

  strTexto = LCase(strTexto)

  strTexto = Replace(strTexto, "á", "a")

  strTexto = Replace(strTexto, "é", "e")

  strTexto = Replace(strTexto, "í", "i")

  strTexto = Replace(strTexto, "ó", "o")

  strTexto = Replace(strTexto, "ú", "u")

  strTexto = Replace(strTexto, "ü", "u")

  SinTildes = strTexto

End Function            ' SinTildes

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable