Estas en:
gratiszona
>>
trucos
>>
trucos access
trucos access: Manipular cadenas de texto
Una cuestion a controlar es la introduccion de datos en una base de datos; por supuesto querremos que la base de datos controle en todo momento las caracteristicas del texto introducido. Asi se podra forzar a que todo el texto se convierta en mayusculas, minusculas o tipo titulo. Se pueden utilizar caracteristicas del formato como > para todo mayusculas y < para minusculas (por ejemplo, una mascara de entrada como >AAAAAAAA), pero esta no es la solucion ya que en las tablas se guarda tal y como se escribe.
A continuacion se ofrecen unos codigos para facilitar la tarea; la forma de utilizarlos es colocarlos en el evento Despues de Actualizar en las propiedades del campo, elegir Procedimiento de evento del menu desplegable y luego pulsar el botoncito de los puntos suspensivos para introducir este codigo:
Sub Campo_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(Ucase(Chr(KeyAscii)))
End Sub
---------------
Sub Campo_AfterUpdate() ' Cambia el contenido a mayusculas al salir del campo
[Campo] = Ucase ([Campo] )
End Sub
---------------
Sub Campo_AfterUpdate() ' Cambia el contenido a minusculas al salir del campo
[Campo] = Lcase ([Campo] )
End Sub
---------------
Sub Campo_AfterUpdate() ' Cambia el contenido a primera letra mayuscula al salir del campo
Dim CadenA as String
CadenA = Lcase ([Campo] )
Mid ( CadenA, 1, 1 ) = Ucase ( Left ( CadenA, 1 ) )
[Campo] = CadenA
End Sub
---------------
Sub Campo_AfterUpdate() 'Pone en mayuscula la primera letra de cada palabra
Dim CadenA as String
Dim ANSI as Variant
Dim Numero as Integer
CadenA = Lcase ([Campo] )
Mid ( CadenA, 1, 1 ) = Ucase ( Left ( CadenA, 1 ))
For Numero = 2 To Len ( CadenA ) -1
ANSI = Asc ( Mid ( Cadena, Numero,1) )
If ANSI < 65 Or ANSI > 122 Or ( ANSI > 90 And ANSI < 97 ) Then
Mid ( CadenA, Numero + 1, 1 ) = Ucase ( Mid ( Cadena, _ Numero +1, 1) )
End If
Next Numero
[Campo] = Cadena
End Sub
Tambien existe la posibilidad de guardar esto en un modulo y convertir estos procedimientos en funciones. Para ello pasariamos a la funcion la cadena de texto como valor, que podria quedar:
Function Mayusculas ( ByVal Cadena As String ) As String
Actualizado: 06/11/2008
Si has encontrado esta web de tu agrado, ¡ diselo a tus amigos ! Nos ayudas a cubrir gastos si con un simple SMS te bajas a tu movil un logo, un tono o una melodia polifonica desde:
www.gratiszona.com/moviles
www.conmovil.com
·
·
apuntes
trucos