Cambio de Mayusculas a minusculas y no aceptar ningun acento

Maximus Julius
28 de Junio del 2004
Hola amigos, alguien me podria ayudar a hacer un codigo que comvierta de Mayusculas a Minusculas y Validar tambien que no acepte ningun acento? y si existe que lo quite automaticamente? gracias a todos..saludos desde morelos mexico...Julio cesar

queen
28 de Junio del 2004
Hola. Para pasar de mayusculas a minusculas hay unas funciones q te hacen estas conversiones. La funciones son estas:
(Te pongo un ejemplo también para q te aclares mejor)

Texto = "Madrid, ESPAÑA"
UCase$(Texto) 'MADRID, ESPAÑA (pasa todo el texto a mayusculas)
LCase$(Texto) 'madrid, españa (pasa todo el texto a minusculas)
StrConv(Texto, vbProperCase) 'Madrid, España (Pone la primera letra de cada palabra en mayusculas y el resto en minusculas)

Lo del acento no se como se hace

Oscar
28 de Junio del 2004
Posible solución:
Replace(Replace(Replace(Replace(Replace(UCase(strTexto), "Á", "A"), "É", "E"), "Í", "I"), "Ó", "O"), "Ú", "U")

Imagino que se podrá hacer de una forma más elegante, pero imagino que te servirá.

Un saludo.

Lobo
28 de Junio del 2004
estoy bien wey