Imprimir página | Cerrar ventana

cambio de linea en caja de texto

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84198
Fecha de impresión: 20/Junio/2019 a las 15:49


Tema: cambio de linea en caja de texto
Publicado por: cpampasPT
Asunto: cambio de linea en caja de texto
Fecha de publicación: 28/Diciembre/2018 a las 19:17
Ola Colegas,

Se puede en Access 2007 en una caja de texto  desvinculada tener varias lineas ?

intente :
Me.tt = "linea1" & Chr(13) & Chr(10) & "linea2"

ademas escoji en las propiedades RichText, y ademas el comportamientoi de la tecla enter como pasar a nueva linea

a lo mejor es que no se puede
alguna idea ?






Respuestas:
Publicado por: Mihura
Fecha de publicación: 28/Diciembre/2018 a las 20:38
Usa vbcrlf

-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: emiliove
Fecha de publicación: 28/Diciembre/2018 a las 22:00
Es correcto como lo haces, como te dice el Sr. Mihura o también con vbNewLine pero lo tienes que hacer en VBA no en el origen del control, y lo colocas en el evento al cambiar del formulario y en el evento al salir de ambos controles.

Saludos.


Publicado por: cpampasPT
Fecha de publicación: 28/Diciembre/2018 a las 23:37
Hola,
El ejemplo me funciono bien, con & Chr(13) & Chr(10) &, y lo puse en un boton de comando, solo tuve que cambiar  de Rich TExt , a texto simples

pero ahora que lo queria hacer con datos reales, tengo este problema. Lo que quiero pasar a la caja de texto es el contenido de una string, que se ve asi en el inmediate window :

?mm1
 Contrato de Arrendamento Urbano para fins habitacionais com prazo certo (e com fiança – opcional)

Entre:
I -    ________________________ . XXX ,  XXX ,  XXX 

el caso  es que  al pasar el contenido de la string a la caja de texto, me lo escribe todo seguido

Contrato de Arrendamento Urbano para fins habitacionais com prazo certo (e com fiança – 0pcional)Entre: I -    ________________________ . XXX ,  XXX ,  XXX

Sabeis la razon de esto, y si tiene alguna solucion? o sea que me gustaria mantener  los avances de linea en la caja de texto

Saludos




Publicado por: pitxiku
Fecha de publicación: 29/Diciembre/2018 a las 11:41
Puede que ese texto sólo tenga el código de nueva línea (vbLf) para indicar el cambio de línea, que es el estándar de Unix y Linux. En cambio, en Windows hay que indicar 2 caracteres, retorno de carro y nueva línea (vbCrLf) para el cambio de línea.

Si es esto, puedes crearte una pequeña función para "formatear" el texto a lo deseado:

Function NuevaLineaWin(ByVal Texto As String) As String
    NuevaLineaWin = Replace$(Texto, vbCr, "")
    NuevaLineaWin = Replace$(NuevaLineaWin, vbLf, vbCrLf)
End Function



Publicado por: cpampasPT
Fecha de publicación: 29/Diciembre/2018 a las 20:52
hola pitxiku,
Tampoco lo consigo como me dices.
y si hago un loop para ver cual es cada uno de los caracteres ? para no hacer el texto todo pongo solo esta parte de la string que contiene los avances de linea, a partir del caracter 90 hasta el 110 Esto ayuda algo ?

opcional)

Entre:
I -  

90 - o - 111
91 - p - 112
92 - c - 99
93 - i - 105
94 - o - 111
95 - n - 110
96 - a - 97
97 - l - 108
98 - ) - 41
99 - 
-13
100 - 
-13
101 - E - 69
102 - n - 110
103 - t - 116
104 - r - 114
105 - e - 101
106 - : - 58
107 - 
-13
108 - I - 73
109 -   - 32
110 - - - 45


























Publicado por: pitxiku
Fecha de publicación: 30/Diciembre/2018 a las 11:09
El 13 es el retorno de carro (vbCr). A ti te falta el avance de línea (vbLf) que es el carácter 10. Puedes reemplazar el 13 por la pareja 13+10:


NuevaLineaWin = Replace$(Texto, vbCr, vbCrLf)


Publicado por: cpampasPT
Fecha de publicación: 30/Diciembre/2018 a las 14:46
A_hora si, gracias pitxiku, por tu amable ayuda
SAludos

Podeis cerrar el hilo



Imprimir página | Cerrar ventana