Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

poner en mayusculas

122 views
Skip to first unread message

Sid

unread,
Dec 20, 2004, 1:33:02 PM12/20/04
to
En el formulario que utilizo para entrar datos en la BD, hay varios
campos del tipo NOMBRE, APELLIDO1, APELLIDO2, .....etc.

Ocurre que hay quien introduce los datos poniendo la inicial en
Mayusculas y lo demas en Minuscualas, o todo en minusculas; o unas en
mayusculas y otros en minusculas.

Busco la manera de que metan los registros en el formato que los metan
al actualizar el campo los datos se pongan en MAYUSCULAS en esos
campos que me interesa esten en ese formato.

No se si sera posible.

Battle Troll

unread,
Dec 20, 2004, 2:26:43 PM12/20/04
to
Estimado Sid:

por definicion, eso es algo que debieras controlar desde los formularios
donde capturan la informacion, poniendo una mascara de entrada a los
bloques de texto donde introducen los datos.

tambien podrias controlarlo poniendo la mascara directamente en la
definicion del campo cuando abres la tabla en modo diseño.

Una mascara que podrias usar en ambos casos podria ser
">AAAAAAAAAAAAAAAAAAAA"

Y para que todos los datos que ya quedaron mezclados queden en mayusculas,
prueba hacer una consulta de actualizacion del tipo:

UPDATE MiTabla
SET MiCampo = UCASE( [MiCampo] )

--
La mayoria de las preguntas que se nos pudieran ocurrir ya fueron
preguntadas y contestadas anteriormente.
Puedes buscar en los archivos de Usenet a través de Google:
http://groups-beta.google.com/group/microsoft.public.es.access
http://groups-beta.google.com/group/microsoft.public.es.sqlserver

Ju@nK

unread,
Dec 20, 2004, 3:01:10 PM12/20/04
to
Otra opcion es que en formato pongas > así solo te mostrará mayúsculas, lo
pongan como lo pongan

--
Colabora con el grupo, contesta a este mensaje y dinos si te sirvió o no la
respuesta dada.
Muchas gracias

Salu2
Ju@nK [DCE **?]
www.juank.tk
"Battle Troll" <antoniopineda@drop_thisatt.net.mx> escribió en el mensaje
news:opsjbmytvzwn5jbo@ad15...

Josema

unread,
Dec 21, 2004, 5:37:16 AM12/21/04
to
Juan podrías aclararme un poco donde puedo poner eso, es
que me interesa el tema.
Perdonar la intrusión
Gracias
Josema

Emilio (en el curro)

unread,
Dec 21, 2004, 5:45:27 AM12/21/04
to
--------------------------------------------------------------------------
¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te

sirvió o no la respuesta dada. Muchas gracias
--------------------------------------------------------------------------
Hola!
Ju@nk, Ojo que eso solo cambia la presentación, se mostrará en mayúsculas,
mientras que el dato, quedará guardado tal y como se haya escrito.

Saludos a tod@s
Emilio
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro


"Ju@nK" <con...@hotmail.com> escribió en el mensaje
news:esKz16s5...@TK2MSFTNGP15.phx.gbl...

Josema

unread,
Dec 21, 2004, 6:21:45 AM12/21/04
to
Efectivamente en la tabla pongo el símbolo > y hace que todo lo que se
encuentra en la Columna se muestra en mayúsculas, sin embargo en el
formulario no se modifica nada, lo sigo viendo en minúsculas.
Por cierto , me esta pasando una cosa curiosa, si entro al foro por Inicio,
Ayuda....etc.... consigo ver lo que os envío, pero desde Outlook no veo el
mensaje que envío yo. Parece una tontería pero no veo donde lo pone, seguro
que toque algo, por qué antes lo veía perfectamente, pero desde que me dio
por poner la banderita roja y las gafas, etc... no lo veo. ¿Como puedo
volver a hacer que se vean los mensajes que os envío, pues como os digo solo
veo vuestras respuestas.
Gracias
Josema
"Emilio (en el curro)" <miliuco56 ARROBA hotmail.com> escribió en el mensaje
news:OcuTxo05...@TK2MSFTNGP14.phx.gbl...

Emilio (en el curro)

unread,
Dec 21, 2004, 6:41:26 AM12/21/04
to
--------------------------------------------------------------------------
¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
--------------------------------------------------------------------------
Lo ideal para un campo de texto (texto1) sería
Private Sub Texto1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

o para todo el formulario

Private Sub Form_Load()
KeyPreview = True
End Sub

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

En cuanto a tus problemas con Outlook, lo siento no sé que te pueda estar
pasando


Saludos a tod@s
Emilio
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro


"Josema" <josed...@terra.es> escribió en el mensaje
news:ORqYD905...@TK2MSFTNGP10.phx.gbl...

Josema

unread,
Dec 21, 2004, 7:00:33 AM12/21/04
to
Emilio perdona mi ignorancia, pero dónde pongo es código que me envías, es
que no sé donde colocarlo. Lo siento.
Gracias
Josema


Emilio (en el curro)

unread,
Dec 21, 2004, 8:04:10 AM12/21/04
to
--------------------------------------------------------------------------
¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
--------------------------------------------------------------------------
Hola Josema
en el código de tu formulario, pulsa Alt+F11 y pegalo allí

Saludos a tod@s
Emilio
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro


"Josema" <josed...@terra.es> escribió en el mensaje

news:eamKvS15...@TK2MSFTNGP10.phx.gbl...

Sid

unread,
Dec 21, 2004, 9:20:51 AM12/21/04
to
Hola Emilio

Me viene bien tu solucion para un campo de texto.
El problema es que tengo cinco campos en los que el contenido debe ir
obligatoriamente en mayúsculas. asi que segun tu codigo debo
introducir el codigo cinco veces o tienes alguna solucion para esta
eventualidad.

Gracias

En fecha Tue, 21 Dec 2004 12:41:26 +0100, alguien con este nick
"Emilio \(en el curro\)" <miliuco56 ARROBA hotmail.com> escribio:

Emilio (en el curro)

unread,
Dec 21, 2004, 10:26:18 AM12/21/04
to
--------------------------------------------------------------------------
¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
--------------------------------------------------------------------------
Hola Sid
Si te fijas bien, he dado dos opciones, una para un cuadro de texto y otra
para todo el formulario.

Private Sub Form_Load()
KeyPreview = True
End Sub

' esto anterior podrías eliminarlo poniendo en las propiedades del
formulario Vista Previa a Si, de ese modo el formulario recoje las
pulsaciones del teclado antes que cualquiera de sus controles, pero, OJO
todos los cuadros de texto se convertiran a a mayúsculas

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

Saludos a tod@s


"Sid" <sto...@spam.es> escribió en el mensaje
news:tqbgs0l002g346be8...@4ax.com...

Ju@nK

unread,
Dec 21, 2004, 12:55:34 PM12/21/04
to
Si, pero lo puedes usar en formularios e informes sin importar como esté
almacenado y evitando la utilización de código (que no tengo nada en contra
de usarlo, como bien sabes ;-)), es una forma sencilla de hacerlo "Sin
código" como diría Julián.

--
Colabora con el grupo, contesta a este mensaje y dinos si te sirvió o no la
respuesta dada.
Muchas gracias

Salu2
Ju@nK [DCE **½]
www.juank.tk
"Emilio (en el curro)" <miliuco56 ARROBA hotmail.com> escribió en el mensaje
news:OcuTxo05...@TK2MSFTNGP14.phx.gbl...

Emilio

unread,
Dec 21, 2004, 1:21:32 PM12/21/04
to
Hola Ju@nk
lo malo es y lo digo por experiencia, cuando crees que lo estás guardando en
mayúsculas y luego te encuentras con que no, me ocurrió preparando una
migración a Oracle, donde las mayúsculas y minúsculas no son lo mismo y en
el primer intento me rechazó el cincuenta por ciento de los registros por
inconsistencia de datos (los usuarios como lo veían todo en mayúsculas, lo
escribían de cualquier modo), así que desde entonces no me vuelven a pillar
;-))


Saludos a tod@s desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

http://www.mvp-access.com/foro

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/default.aspx?scid=fh;ES-ES;newsreglas

"Ju@nK" <con...@hotmail.com> escribió en el mensaje

news:eGaYMZ45...@TK2MSFTNGP15.phx.gbl...

Jose Luis Galicia

unread,
Dec 21, 2004, 1:29:00 PM12/21/04
to
Lo que puedes hacer es en el evento antes de actualizar
convertir dichos valores a mayúsculas para ello utiliza la
función Ucase.

ejemplo

mi campo=ucase(mi campo).

Otra manera es que en los campos hagas uso de la propiedad
formato. Presiona F1 cuando el cursor esté en el recuadro
de dicha propiedad.

> Convertir todos los caracteres a mayúsculas.

Sid

unread,
Dec 21, 2004, 3:07:39 PM12/21/04
to
Saludos Emilio

Acabo de probar y efectivamente funciona,
lo pone todo en mayúsculas pero de los 15 campos de la base
solo quiero que las mayusculas vayan en 5 de los campos.
En fin, si no es posible, habra que resignarse.

Gracias por tu tiempo


En fecha Tue, 21 Dec 2004 16:26:18 +0100, alguien con este nick

Emilio

unread,
Dec 21, 2004, 3:53:14 PM12/21/04
to
--------------------------------------------------------------------------
¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
--------------------------------------------------------------------------
Hola !
en ese caso tal vez tengas que hacerlo en el evento afterupdate de cada
campo, escribo al vuelo
campo1=ucase(left(campo1,5) & mid(campo1,6)

Saludos a tod@s desde Huelva

Emilio
miliuco56 ALGARROBA hotmail.com

http://www.mvp-access.com/foro

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/default.aspx?scid=fh;ES-ES;newsreglas

"Sid" <sto...@spam.es> escribió en el mensaje
news:hd0hs0ttepmkqej5b...@4ax.com...

Josema

unread,
Dec 21, 2004, 5:09:44 PM12/21/04
to
Emilio ya lo he conseguido, gracias, no veas la de trabajo que se ahorra uno
con estas cosas. Siguiendo el hilo me has asustado cuando dices que puede
fallar, espero que no falle. Yo no pienso pasar a Oracle ni nada de eso,
pero si me falla no veas la que me prepara. Lo importante es que ahora
funciona y eso de momento es mucho.
Gracias y un saludo
Josema


Emilio

unread,
Dec 21, 2004, 5:32:35 PM12/21/04
to
--------------------------------------------------------------------------
¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
--------------------------------------------------------------------------
Hola !
fallar, no, no debe fallar, lo que "falla" es cuando uno cree que con format
">" estás convirtiendo en mayúsculas y realmente no lo estás haciendo.

Saludos a tod@s desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

http://www.mvp-access.com/foro

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/default.aspx?scid=fh;ES-ES;newsreglas

"Josema" <josed...@terra.es> escribió en el mensaje
news:%23GQVJn6...@TK2MSFTNGP12.phx.gbl...

Ju@nK

unread,
Dec 22, 2004, 6:14:42 AM12/22/04
to
En realidad poniendo > solo lo representas en mayúsculas en ese control,
pudiendo estar almacenado de cualquier modo.

--
Colabora con el grupo, contesta a este mensaje y dinos si te sirvió o no la
respuesta dada.
Muchas gracias

Salu2
Ju@nK [DCE **½]
www.juank.tk
"Emilio" <miliuco56 ALGARROBA hotmail PUNTO com> escribió en el mensaje
news:OvLh0z65...@TK2MSFTNGP14.phx.gbl...

Sid

unread,
Dec 22, 2004, 12:35:21 PM12/22/04
to
En fecha Tue, 21 Dec 2004 21:53:14 +0100, alguien con este nick
"Emilio" <miliuco56 ALGARROBA hotmail PUNTO com> escribio:

>--------------------------------------------------------------------------
>¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
>sirvió o no la respuesta dada. Muchas gracias
>--------------------------------------------------------------------------

>Hola !
>en ese caso tal vez tengas que hacerlo en el evento afterupdate de cada
>campo, escribo al vuelo
>campo1=ucase(left(campo1,5) & mid(campo1,6)
>

Asi no ME funciona, amigo Emilio.
Quizás lo hago mal..... Sustituyo campo1 por el nombre del campo de mi
BD y en Diseño del formulario selecciono el campo; en propiedades
antes de actualizar pongo el codigo. No rula...

Por otro lado, poniendo en el evento de cada campo, al pulsar una
tecla, el codigo

KeyAscii = Asc(UCase(Chr(KeyAscii)))

Si, funciona. Pero insisto.....
No habra alguna forma de que se pasen a la funcion UCase los campos en
que se desea actúe sin tener que introducir ese codigo en cada campo
que nos interese.

Saludos

Emilio (en el curro)

unread,
Dec 23, 2004, 2:23:40 AM12/23/04
to
--------------------------------------------------------------------------
¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
--------------------------------------------------------------------------
perdona, habia una errata, lo había escrito al vuelo y me comí un
parentesís, pero eso es algo que podrías / deberías haber detectado tu

Campo1 = UCase(Left(Campo1, 5)) & Mid(Campo1, 6)

Saludos a tod@s
Emilio
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro


"Sid" <sto...@spam.es> escribió en el mensaje

news:nabjs0t29rngvrboq...@4ax.com...

Sid

unread,
Dec 23, 2004, 9:23:35 AM12/23/04
to
Ok! Emilio
Ahora si rula. Muchas Gracias y Felices fiestas


En fecha Thu, 23 Dec 2004 08:23:40 +0100, alguien con este nick
"Emilio \(en el curro\)" <miliuco56 ARROBA hotmail.com> escribio:

0 new messages