** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Ocultar espacios Nulos o ceros
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoOcultar espacios Nulos o ceros

 Responder Responder Página  12>
Autor
Mensaje
emandres Ver desplegable
Habitual
Habitual


Unido: 05/Febrero/2018
Localización: Murcia
Estado: Sin conexión
Puntos: 98
Enlace directo a este mensaje Tema: Ocultar espacios Nulos o ceros
    Enviado: 04/Octubre/2019 a las 10:36
Buenos dias!
Tengo otro problema, dentro de un informe tengo varios cuadro de texto que tienen un tamaño considerable, y lo que necesito que cuando no tengan valores no me lo presente y que no ocupe espacio en la presentación del informe (me deja el hueco en blanco), no se, si esta bien explicado, 
Arriba
VIMIPAS Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 06/Enero/2006
Localización: ESPAÑA
Estado: Sin conexión
Puntos: 5462
Enlace directo a este mensaje Enviado: 04/Octubre/2019 a las 11:18
Hola emandres.

¿Has probado con las propiedades del control ese "autoextensible" y "autocomprimible".?
Saludos


Gracias
Arriba
emandres Ver desplegable
Habitual
Habitual


Unido: 05/Febrero/2018
Localización: Murcia
Estado: Sin conexión
Puntos: 98
Enlace directo a este mensaje Enviado: 04/Octubre/2019 a las 12:47
Ambos están en si.

If (Me![Texto467] <> "") Then

Me.Texto467.Visible = True

Else

Me.Texto467.Visible = False

End If

He puesto esto pero hay algo que no entiende y no lo hace, yo no veo donde esta el error

Arriba
prga Ver desplegable
Moderador
Moderador


Unido: 16/Noviembre/2004
Localización: España
Estado: Sin conexión
Puntos: 3523
Enlace directo a este mensaje Enviado: 04/Octubre/2019 a las 16:25
Hola.
Pero, ¿Dónde has puesto ese código?
Ya comentas.
Un saludo a todos
Arriba
Antonalo Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 06/Noviembre/2009
Localización: España
Estado: Sin conexión
Puntos: 478
Enlace directo a este mensaje Enviado: 06/Octubre/2019 a las 16:40
Yo pondría el evento en activar el registro
y el if de esta manera

 if Nz(Me.Texto467)= "" then 

Me.Texto467.Visible = True

Else

Me.Texto467.Visible = False

End If

Arriba
emandres Ver desplegable
Habitual
Habitual


Unido: 05/Febrero/2018
Localización: Murcia
Estado: Sin conexión
Puntos: 98
Enlace directo a este mensaje Enviado: 07/Octubre/2019 a las 10:38
http://www.filebig.net/files/b68U4MdaYN
Private Sub Report_Current()
If Nz(Me.Texto467) = "" Then
Me.Texto467.Visible = True
If Nz(Me.Etiqueta475) = "" Then
Me.Etiqueta475.Visible = True
If Nz(Me.Etiqueta477) = "" Then
Me.Etiqueta477.Visible = True
If Nz(Me.Texto472) = "" Then
Me.Texto472.Visible = True
If Nz(Me.Texto476) = "" Then
Me.Texto476.Visible = True
Else
Me.Texto467.Visible = False
Me.Etiqueta475.Visible = False
Me.Etiqueta477.Visible = False
Me.Texto472.Visible = False
Me.Texto476.Visible = False
End If
End Sub
Pero me visualiza los campos de Densidad y humedad (la imagen que he adjuntado)
Necesito que no lo muestre y no ocupe espacio
Arriba
prga Ver desplegable
Moderador
Moderador


Unido: 16/Noviembre/2004
Localización: España
Estado: Sin conexión
Puntos: 3523
Enlace directo a este mensaje Enviado: 07/Octubre/2019 a las 11:28
Hola.
Salvo mejor opinión.
1º.-No todos los eventos se "disparan" en todas las formas de presentación de un informe. El evento current sólo se dispara en la vista presentación, pero no en la vista previa de impresión o impresión y tampoco en la vista informe.
2º.-No hay que confundir valores nulos con cadenas vacías ( space(0)="") ni con ceros
3º.-Si se hace invisible un cuadro de texto o similar, el espacio quedará en el informe aunque no se vea
4º.-Repito, salvo mejor opinión, sólo se pueden "quitar" secciones completas  en el evento format (Vista previa impresión) de las mismas.
5º.-Una chapuza pasa por hacer los cuadros de texto de una altura de décimas de milímetro y hacerlos autoextensibles. Al hacerlos invisibles el espacio que ocupan es muy pequeño, pero no deja de ser una chapuza.
6º.-?????
Espero que ayude a resolver la duda y no líe mas el asunto
Ya comentas.
Un saludo a todos
Arriba
emandres Ver desplegable
Habitual
Habitual


Unido: 05/Febrero/2018
Localización: Murcia
Estado: Sin conexión
Puntos: 98
Enlace directo a este mensaje Enviado: 07/Octubre/2019 a las 12:15
Gracias, pero no se que me quieres decir.
Parece que estas molesto con mi forma de plantear mi problema, lo he desarrollado según me han aconsejado, si tuviera claro como hacerlo no pediría ayuda. 
Un saludo

Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14720
Enlace directo a este mensaje Enviado: 07/Octubre/2019 a las 12:57
Hola,

1. Aquí solo te has molestado tu
2. Lo has desarrollado como te ha aconsejado Antonalo, no como te ha aconsejado VIMIPAS
3. Los consejos de prga siguen siendo totalmente válidos.

Los que colaboramos en el foro lo hacemos con el ánimo de ayudar, no de molestar. Quien tiene el problema eres tu. Algunos vamos hasta arriba de trabajo y aun asi, dedicamos algo de tiempo a responder preguntas.

Un saludo

Xavi, un minyó de Terrassa

Mi web
Arriba
emandres Ver desplegable
Habitual
Habitual


Unido: 05/Febrero/2018
Localización: Murcia
Estado: Sin conexión
Puntos: 98
Enlace directo a este mensaje Enviado: 07/Octubre/2019 a las 13:20
A veces se mal interpretan las cosas, pido perdón, no ha sido mi intención molestar, porque desde que estoy en este foro me han ayudado mucho, y agradezco que hagan el esfuerzo de contestar y poder ayudar, pero ahora mismo estoy en blanco y no comprendo muy bien.
Los campos los tengo "autoextensible" y "autocomprimible" y la funcion de no mostrar tambien lo habia conseguido, el problema lo he tenido que al presentar el informe me guarda el espacio aunque no tenga datos, alguien me dijo que pusiera If Nz(Me.Texto467) = "" Then y no me lo hace bien.
Un saludo
Arriba
emandres Ver desplegable
Habitual
Habitual


Unido: 05/Febrero/2018
Localización: Murcia
Estado: Sin conexión
Puntos: 98
Enlace directo a este mensaje Enviado: 08/Octubre/2019 a las 10:06
Imagen del diseño

http://www.filebig.net/files/vUXcxBDkGS


Presentación del mismo
http://www.filebig.net/files/AZz6fDqQ65


Arriba
pitxiku Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 27/Septiembre/2017
Localización: En mi casa
Estado: Sin conexión
Puntos: 1510
Enlace directo a este mensaje Enviado: 08/Octubre/2019 a las 11:12
Entiendo que esto forma parte del otro problema que tenías, con los saltos de página.

Sin saber exactamente cómo tienes los datos, lo único que se me ocurre es lo que te ha dicho prga: dejar los altos de los controles casi a cero, sin nada de código (ocultar/mostrar), y que trabaje la propiedad Autoextensible.

Si no funciona, convierte las etiquetas a cuadro de texto (una etiqueta siempre tendrá el mismo título, y con un SiInm/Iif dale el título dependiendo de si tiene valor el otro cuadro de texto.
Arriba
emandres Ver desplegable
Habitual
Habitual


Unido: 05/Febrero/2018
Localización: Murcia
Estado: Sin conexión
Puntos: 98
Enlace directo a este mensaje Enviado: 08/Octubre/2019 a las 13:35
Funcionaria si no tuviera campo como objetoOle  no le puedo poner extensible ni autocomprimible tengo que dejarlo del tamaño real de la tabla para que se vea bien.
Son todo inconvenientes, pero gracias por la ayuda, porque con solo cuadros de texto funcionaria.
Seguiré investigando...
Un saludo
Arriba
Antonalo Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 06/Noviembre/2009
Localización: España
Estado: Sin conexión
Puntos: 478
Enlace directo a este mensaje Enviado: 08/Octubre/2019 a las 15:56
Perdona emandres, no leí bien tu cuestión y me equivoqué con la respuesta. Aquí todos queremos ayudar, yo he aprendido aquí casi todo lo que sé, por ello también quisiera poder ayudar y lo hago con esa intención.

Me parece una cuestión muy interesante lo que dice prga en su punto 4º acerca del evento format. Yo también he tenido a veces el problema de los campos vacíos que ocupan espacio y lo he solucionado con la propiedad autoextensible pero lo de prga hay que probarlo.
Arriba
emandres Ver desplegable
Habitual
Habitual


Unido: 05/Febrero/2018
Localización: Murcia
Estado: Sin conexión
Puntos: 98
Enlace directo a este mensaje Enviado: 09/Octubre/2019 a las 12:32
Yo no consigo dar con la solución, Antonalo si das con la solución, nos lo cuentas.
Un saludo
Arriba
 Responder Responder Página  12>
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable