shaomi
28 de Octubre del 2003

Buenas tengo un formulario en Access enlazado con Visual Basic. En ese formulario tengo varios cuadros de texto, me gustaria que si yo introduzco datos en minúsculas me los pase a mayúsculas. Yo en el evento "al hacer clic" le pongo: Ucase(nombre_text), pero así no hace nada. Como podría hacerle?¿
Gracias.

sdemingo
28 de Octubre del 2003

Hola,
tienes que asignarle el valor que devuelve Ucase a la caja de texto:

Private Sub Command1_Click()
Me.Text1.Text = UCase(Me.Text1.Text)
End Sub

Un saludo
sdemingo

shaomi
28 de Octubre del 2003

Y para poner en minusculas los valores de un cuadro combinado?¿

sdemingo
28 de Octubre del 2003

¿con LCase()?

shaomi
28 de Octubre del 2003

Verás la función se que es LCase, el problema es que lo que quiero modificar es un combobox, y lo intento pasar igual que si fuera un cuadro de texto, pero asi no me funciona, que es lo que es diferente para los combobox?¿

Baltasar
28 de Octubre del 2003

Para hacer que las teclas que pulses entren siempre como mayúsculas, sería así:

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

y para que sean siempre minúsculas:
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(LCase(Chr(KeyAscii)))
End Sub

Lo mismo podemos aplicar a un combobox (siempre que se introduzca a través de teclado)

Saludos

shaomi
28 de Octubre del 2003

El problema es que no soy yo quien introduce los datos. Los datos los he de marcar al desplegar el combo. No se puede hacer igual en el evento al hacer clic o algo asi¿?