Validar mayúsculas en textbox

[Karil]

Hola otra vez!!!

Vengo ahora con una duda un poco tonta pero la verdad no sé como hacerlo... Tengo una caja de texto en donde escribo unas cuentas, que poseen valores y se guardan en un MSflexgrid, cuando escribo el nombre de la cuenta, mando a que los valores se guarden en cero para después actualizarlos, pero algunas de las cuentas son encabezados, por lo tanto no necesitan ningún valor.

Lo que necesito hacer es validar que cuando en la caja de texto se escriba mayúsculas, que son los encabezados, no se guarde ningún valor.

Espero haberme explicado, y gracias de antemano por la ayuda que me puedan brindar.

[erbuson]

Hola no se si puede servirte porque ignoro el contenido del Text, pero prueba esta funcion


If IsNumeric(Text1) Then
' Pasarlo al Grid
Else
' No pasarlo al Grid
End If

Inténtalo y comenta

[Karil]

Hola erbuson, y gracias por atender a mi pregunta.

Lo que necesito hacer es validar, si el texto está escrito en Mayúsculas o no, y mandar a guardar en el grid, como puedo hacer esa validación???

Gracias por todo...

[erbuson]

Hola:

Creo que si pusieras un ejemplo sería mas claro, te pongo lo que yo entiendo a ver si es lo que quieres.

Ucase convierte minúsculas a mayúsculas, por lo tanto

If Ucase(Text1) = Text1 Then
' El texto SI está escrito en mayúsculas
Else
' El texto NO está escrito en mayúsculas
End If

Pero cuidado que si no hay caracteres alfabéticos la función te devolverá verdadero o sea:

Ucase("Jose") devuelve JOSE pero por lo que si el usuario ha escrito JOSE la comparación devuelve VERDADERO pero si ha escrito "JOse" te devuelve FALSO

Si el usuario ha escrito "1234" siempre devolverá VERDADERO

No se si me explico bien, si no es así expón un ejemplo.

Saludos

[Karil]

Muchísimas Gracias erbuson, era exactamente lo que necesitaba...

Que bueno que me pudiste entender, es que no soy muy buena explicando nada, pero pude resolver el problema de la validadción.

Otra vez mil Gracias por la ayuda y por el tiempo que te tomaste para contestarme.

[erbuson]

Pues de nada, ya sabes donde estamos si necesitas algo.

Saludos