Imprimir página | Cerrar ventana

Fijar posición campo texto en informe.

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=85759
Fecha de impresión: 24/Abril/2024 a las 11:05


Tema: Fijar posición campo texto en informe.
Publicado por: elregajo
Asunto: Fijar posición campo texto en informe.
Fecha de publicación: 23/Enero/2021 a las 18:26
Buenas tardes.
Recurro al foro para pedir ayuda sobre esto:

Tengo un informe con un campo de texto en el lateral derecho de dicho informe.
En el informe hay incrustado un subinforme que puede tener de una a seis lineas.
Cuando el subinforme tiene una línea el campo de texto del lateral está en la posición donde yo lo he colocado pero, cuando el subinforme tiene más de una línea dicho campo se va desplazando hacia abajo en función del número de líneas de dicho subformulario.

El texto que hay debajo de subformulario se desplaza igualmente pero eso no me importa.
Lo que yo quiero es mantener el campo lateral siempre en la misma posición, tenga el subformulario una línea o tenga seis.

Me podéis ayuda con esto. Como puedo bloquear la posición de este cuado de exto y que no se desplace. Que siempre esté en la mismo posición vertical?

Muchas gracias.

Edito el mensaje para decir que he probado con:
Me.Campo.Top = 10000
pero no hace lo que quiero. Se sigue desplazando en función de las líneas del subformulario.



Respuestas:
Publicado por: Mihura
Fecha de publicación: 23/Enero/2021 a las 19:17
El truco está en que, en el diseño, la parte inferior del texto lateral NO esté por debajo de la parte inferior del subformulario que 'crece'.



-------------
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: elregajo
Fecha de publicación: 23/Enero/2021 a las 19:47
Gracias Mihura por la respuesta.
Por la configuración del informe eso no es posible.
Ese texto lateral tiene que quedar por debajo del subformulario pero con su posición bloqueada.

Estoy intentando una posible solución.
Si lo consigo lo expondré en este hilo.


Publicado por: elregajo
Fecha de publicación: 23/Enero/2021 a las 19:59
He encontrado una posible solución que no sé si será la mejor pero, de momento, puede valer.

He creado un campo en el subformulario que cuenta las líneas que tiene
(Forms![Equipos]![SubformularioCambios].Form![CuantasLineas])
y después
En Private Sub Detalle_Format(Cancel As Integer, FormatCount As Integer)
He metido esta línea:
Me.Campo.Top = 10500 - (Forms![Equipos]![SubformularioCambios].Form![CuantasLineas].Value * 190)

No sé si es la mejor solución pero, si nadie aporta alguna mejor podemos cerrar este hilo.
Gracias


Publicado por: elregajo
Fecha de publicación: 23/Enero/2021 a las 20:19
Pues mi gozo en un pozo.

No sé por qué ocurre esto:
Si tengo 1, 2 o 3 líneas, funciona bien pero
si tengo 4 o más líneas, no se mantine la posición y se desplaza mucho más hacia abajo.

A ver si alguien sabe por qué ocurre estó.
Gracias.


Publicado por: elregajo
Fecha de publicación: 24/Enero/2021 a las 13:54
Me estoy volviendo un poco loco con esto.
El campo que cuenta las líneas es: CuantasLineas=Cuenta([NumEquipo])

He puesto un MsgBox en el evento Al Dar Formato del informe para que me muestre el dato de ese campo que cuenta las líneas y, no entiendo por qué, se el campo tiene los valores 1, 2 o 3, aparece en el MsgBox pero si tiene los valores 4, 5 o 6 aparece en blanco.

Ya no sé por donde puedo mirar para ver por que sucede esto.

¿Alguna idea?
Gracias.


Publicado por: elregajo
Fecha de publicación: 24/Enero/2021 a las 19:11
Bueno no entiendo por qué pasa esto.
Lo he resuelto creando el campo que cuenta las lineas en el propio subinforme en lugar de contarlas en el subfomulario y con esto parece que funciona.

Gracias.
Podemos cerrar el hilo.


Publicado por: Mihura
Fecha de publicación: 25/Enero/2021 a las 09:33
OK, gracias por la información Wink.




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

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



Imprimir página | Cerrar ventana