Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » Mostrar leyenda si en un subinforme no hay datos...

Access - Mostrar leyenda si en un subinforme no hay datos...

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil
Val: 38
Ha aumentado su posición en 2 puestos en Access (en relación al último mes)
Gráfica de Access

Mostrar leyenda si en un subinforme no hay datos...

Publicado por Angel Andrés (113 intervenciones) el 27/02/2015 16:54:09
Hola a todos y muchas gracias desde ya! Tengo un informe en el cual existe un subinforme basado en una consulta. Cuando no hay registro el subinforme no se muestra en el informe contenedor y es ahí dónde yo quiero mostrar una leyenda que diga "SIN REGISTROS EN BASE DE DATOS".
Al abrir el subinforme por sí sólo yo logré mostrar la leyenda, utilizando el evento al no haber datos y la propiedad visible de una etiqueta. Pero no logro hacerlo una vez que está incrustado en un informe principal.
Espero haberme explicado. Muchas gracias otra vez!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Neckkito
Val: 529
Plata
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Mostrar leyenda si en un subinforme no hay datos...

Publicado por Neckkito (1157 intervenciones) el 02/03/2015 12:39:47
Hola!

Suponiendo que el subinforme se llama subFrm1 y que la etiqueta se llama lblSinDatos prueba con esto en el evento "Al activar registro" (doy por supuesto que vas recorriendo los registros. Si no tendrías que seleccionar el evento del control del formulario que te ejecute el cambio de información del subinforme) del formulario principal:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
...
Private Sub Form_Current()
    Dim rst As DAO.Recordset
    Set rst = Me.subFrm1.Form.RecordsetClone
    With Me
        If rst.RecordCount = 0 Then
            .subFrm1.Visible = False
            .lblSinDatos.Visible = True
        Else
            .subFrm1.Visible = True
            .lblSinDatos.Visible = False
        End If
    End With
    rst.Close
    Set rst = Nothing
End Sub
...

A ver si te sale.

Saludos,
firmaMail
http://neckkito.siliconproject.com.ar
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar