imagenes en listado (reporter)
Publicado por Francesc (68 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,
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
0