Insertar datos en una tabla en mayúsculas.
Hola a todos y gracias de antemano por su ayuda, ¿Cómo puedo insertar datos capturados en el textbox de un formulario en minúsculas a una tabla pero en mayúsculas?
1 respuesta
Respuesta de Neckkito Nck
1
Para contestar esta pregunta doy por supuesto que el textbox que comentas tiene su origen del registro en el campo de la tabla cuyos datos quieres tener en mayúsculas. Si no fuera así me lo comentas y tendríamos que cambiar algunas cosas.
También doy por supuesto que sabes hacer todo lo que te explico a continuación. Si te pierdes en algún paso me lo comentas y te lo explico con más detalle.
Imaginemos que el textbox tiene de nombre txtNombre. Sacas sus propiedades y al evento "Después de actualizar" le asignas el siguiente código:
---
Private Sub txtNombre_AfterUpdate()
Dim valor As Variant
'Coge el valor introducido
valor = Me.txtNombre.Value
'Comprueba que el campo no está vacío
'para prevenir el error
If IsNull(valor) Then Exit Sub
'Convierte ese valor en mayuúsculas
valor = UCase(valor)
MsgBox valor
'Lo almacena de nuevo, pero en mayúsculas
Me.txtNombre.Value = valor
End Sub
---
Y eso es todo.
Ya me dirás cosas.
También doy por supuesto que sabes hacer todo lo que te explico a continuación. Si te pierdes en algún paso me lo comentas y te lo explico con más detalle.
Imaginemos que el textbox tiene de nombre txtNombre. Sacas sus propiedades y al evento "Después de actualizar" le asignas el siguiente código:
---
Private Sub txtNombre_AfterUpdate()
Dim valor As Variant
'Coge el valor introducido
valor = Me.txtNombre.Value
'Comprueba que el campo no está vacío
'para prevenir el error
If IsNull(valor) Then Exit Sub
'Convierte ese valor en mayuúsculas
valor = UCase(valor)
MsgBox valor
'Lo almacena de nuevo, pero en mayúsculas
Me.txtNombre.Value = valor
End Sub
---
Y eso es todo.
Ya me dirás cosas.
Ops!
He puesto una línea en el código que te he enviado que no es necesaria (la he puesto para ver yo que el resultado fuera el correcto). Sólo tienes que borrar la línea que pone: "MsgBox valor".
Sorry!
He puesto una línea en el código que te he enviado que no es necesaria (la he puesto para ver yo que el resultado fuera el correcto). Sólo tienes que borrar la línea que pone: "MsgBox valor".
Sorry!
