Access - Imagenes aleatorias en informe

   
Vista:

Imagenes aleatorias en informe

Publicado por Jose Luis josesirera@telefonica.net (3 intervenciones) el 08/06/2015 19:17:37
Hola a todos:
Es mi primera consulta y espero explicarme bien.
Llevo unos días intentando hacer algo que me es imposible con mis conocimientos.
Tengo un informe en el que pueden aparecer hasta 10 imágenes, la ruta de cada imagen (.picture) depende de otros tantos campos que pueden tener ruta o no tenerla, hasta ahí bien, pero quiero que si por ejemplo en un registro los campos 3, 5, 7 y 9 no son nulos y cuentan con una ruta de imágen, que dichas rutas aparezcan en las imágenes 1, 2, 3 y 4.

Bueno, espero haberme explicado y de antemano gracias. La verdad es que estoy totalmente atascado
Un saludo
José luis
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

Imagenes aleatorias en informe

Publicado por GOOO (46 intervenciones) el 08/06/2015 19:49:04
Hola josé Luis

Si quieres asignar una imagen para aquellos registros que estén nulos, tengo una sugerencia.

Crea un control tipo TextBox (cuadro de texto) independiente y asignale una ruta a una imágen predispuesta o establecida.

En tu control imagen pones lo siguiente:

=SiInm(EsNulo([RutaCompleta]),[RutaAlterna],[RutaCompleta])

Donde RutaCompleta es la que tienes asignado a tus registros y
donde RutaAlterna es el campo independiente donde asignas una imagen para aquellos registros que no tengan

Saludos
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

Imagenes aleatorias en informe

Publicado por Jose Luis josesirera@telefonica.net (3 intervenciones) el 08/06/2015 22:23:54
Gracias por tu respuesta, pero creo que no lo expliqué correctamente:
Cuento con 10 imágenes en blanco y 10 campos con ruta de imagen o con contenido nulo.
Lo que quiero hacer es que si por ejemplo hay 3 campos(el 4, el 6 y el 9) con ruta de imagen, estas se vean en las imágenes 1,2 y 3 y el resto de imágenes se sigan viendo en blanco.
Un saludo
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
Imágen de perfil de douglas

Imagenes aleatorias en informe

Publicado por douglas (280 intervenciones) el 09/06/2015 01:28:47
Revisa lo que te dice Goo esa es la forma debes adaptarlos con
If IsNull
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
Imágen de perfil de Norberto

Imagenes aleatorias en informe

Publicado por Norberto (432 intervenciones) el 09/06/2015 08:53:43
Hola.

Prueba con esto:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Form_Current()  'Al activar cada registro
    Dim c As Integer, p As Integer
 
    p = 1   'Primera imagen
    For c = 1 To 10 'Para cada campo
        If Not IsNull(Me.Controls("Campo" & c)) Then    'Si no es nulo
            Me.Controls("Imagen" & p).Picture = Me.Controls("Campo" & c)    'Asignamos la ruta a la imagen
            p = p + 1   'Siguiente imagen
        Else
            Me.Controls("Imagen" & p).Picture = ""  'Borramos la imagen
        End If
    Next
 
    'Ahora queda borrar el resto de las imágenes
    'Si había 4 campos con imagen, debemos borrar desde la 5 a la 10
    'En este caso p valdría 4 y la primera a borrar sería p + 1
    c = p + 1 'Guardamos en número de la primera imagen a borrar en c
    For p = c To 10 'Recorremos las imágenes que faltan (p.e. de la 5 a la 10)
        Me.Controls("Imagen" & p).Picture = ""  'Borramos la imagen
    Next
 
End Sub

Los nombres "Campo" e "Imagen" deberás adaptarlos según tu caso.

Un saludo,

Norberto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar

Imagenes aleatorias en informe

Publicado por Jose Luis josesirera@telefonica.net (3 intervenciones) el 09/06/2015 16:27:42
Perfecto Norberto,
lo he adaptado y funciona a la perfección
Siento mucho no haberme explicado correctamente y gracias a todos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar