Access - imagenes en listado (reporter)

   
Vista:
Imágen de perfil de Francesc

imagenes en listado (reporter)

Publicado por Francesc FrancescVC@hotmail.com (61 intervenciones) el 22/10/2013 16:41:06
Buenas tardes,
Estoy intentando emitir unas fichas de socios que incluyen su fotografia. Cuando diseño un formulario para contrastar datos e imagen la siguiente instrucción me funciona estupendamente y por pantalla veo los datos requeridos y su fotografia:

Private Sub Form_Current()
Dim RutaFoto As String
If Len(Nz(NUMSOCI, "")) = 0 Then Imagen23.Picture = "": Exit Sub
RutaFoto = "C:\Users\Francesc\Documents\My eBooks\EsplaiGentGranOcata\Fotos\" & NUMSOCI & ".jpg"
Imagen23.Picture = IIf(Dir(RutaFoto) <> "", RutaFoto, "")
End Sub

Ahora bien, este mismo codigo lo utilizo al dar formato de un report (listado/ficha que he creado para imprimir) y no me aparece ni en pantalla ni en el documento impreso. He provado con este otro cógido y tampoco funciona:

Private Sub Detalle_Format(Cancel As Integer, FormatCount As Integer)
Dim ruta As String
Dim Imagen As String
ruta = CurrentProject.Path
Imagen = ruta & "\Francesc\Documents\My eBooks\EsplaiGentGranOcata\Fotos\" & Me.NUMSOCI & ".jpg"
If Dir(Imagen) <> vbNullString Then
Imagen39.Picture = Imagen
Else
Imagen39.Picture = vbNullString
End If
End Sub

Alguien puede echarme una mano y decirme que estoy haciendo mal?.

Gracias por anticipado,
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