visualizzazione in un report di foto esterne al db
skipper
del NG...
Sto producendo un db per un cliente che produce migliaia di prodotti diversi
che hanno tutti una fotografia da gestire.
Ho deciso di tenere le fotografie tutte all'esterno del db per tenere
leggero il db...
sull'evento *su corrente* nella maschera che utilizzo per visalizzare i
prodotti ho inserito questo codice:
Dim sFile As String
sFile = Dir(DirFoto & Forms!sk_prodotti.id_prodotto & ".jpg")
If sFile <> "" Then
Immagine_catalogo.Picture = DirFoto &
Forms!sk_prodotti.id_prodotto & ".jpg"
Else
Immagine_catalogo.Picture = ""
End If
il mio problema � che devo stampare due tipi di report: uno con una pagina
per ogni record, quindi con foto e annotazioni; l'altro � un report con
molti record e quindi fotografie per ogni pagina.
non ho trovato nessun esempio di codice in rete...
qualcuno sa suggerirmi qualche idea da seguire?
grazie
ps.... non la cambio la moto!!!
:-)
--
Skipper dixit...
on cbr1000rr
Azz... L'� minga el sesc�nt!!! L'� 'l mille!!!
motostory su http://www.superskipper.it/pagine/le_mie_moto.htm
Pablitomf
> per ogni record, quindi con foto e annotazioni; l'altro � un report con
> molti record e quindi fotografie per ogni pagina.
> non ho trovato nessun esempio di codice in rete...
> qualcuno sa suggerirmi qualche idea da seguire?
> grazie
Sul "FORMATTAZIONE" del corpo del report...
Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)
If Dir("TUOPERCORSO" & TUOCAMPO & ".jpg") = TUOCAMPO & ".jpg" Then
Me.TUAIMMAGINE.Picture = "TUOPERCORSO" & TUOCAMPO & ".jpg"
Else
Me.TUAIMMAGINEPicture = ""
End If
End Sub
--
Ciao
Pablitomf
----------------------------
http://www.accessgroup.it/
----------------------------
Non mi fido molto delle statistiche, perch� un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news segnala gli abusi ad ab...@newsland.it
Pablitomf
> Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)
> If Dir("TUOPERCORSO" & TUOCAMPO & ".jpg") = TUOCAMPO & ".jpg" Then
> Me.TUAIMMAGINE.Picture = "TUOPERCORSO" & TUOCAMPO & ".jpg"
> Else
> Me.TUAIMMAGINEPicture = ""
Questo ultimo non funge, perch� tiene memorizzata l'ultima img... per cui
ti conviene mettere un immagine vuota di default tipo "NO-IMAGE" chiamarla
tipo "noimage.jpg" e richiamarla nel caso in cui non vi sia un immagine
associata al record :
Me.TUAIMMAGINE.Picture = "noimage.jpg"
skipper
news:h2i2ag$145$1...@news.newsland.it...
>> Sul "FORMATTAZIONE" del corpo del report...
>
>> Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)
>> If Dir("TUOPERCORSO" & TUOCAMPO & ".jpg") = TUOCAMPO & ".jpg" Then
>> Me.TUAIMMAGINE.Picture = "TUOPERCORSO" & TUOCAMPO & ".jpg"
>> Else
>> Me.TUAIMMAGINEPicture = ""
>
> Questo ultimo non funge, perch� tiene memorizzata l'ultima img... per cui
> ti conviene mettere un immagine vuota di default tipo "NO-IMAGE" chiamarla
> tipo "noimage.jpg" e richiamarla nel caso in cui non vi sia un immagine
> associata al record :
>
> Me.TUAIMMAGINE.Picture = "noimage.jpg"
>
>> End If
>> End Sub
urca che velocit�....
per ora grazie mille...
dopo provo...
skipper
>
>> Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)
>> If Dir("TUOPERCORSO" & TUOCAMPO & ".jpg") = TUOCAMPO & ".jpg" Then
>> Me.TUAIMMAGINE.Picture = "TUOPERCORSO" & TUOCAMPO & ".jpg"
>> Else
>> Me.TUAIMMAGINEPicture = ""
>
> Questo ultimo non funge, perch� tiene memorizzata l'ultima img... per cui
> ti conviene mettere un immagine vuota di default tipo "NO-IMAGE" chiamarla
> tipo "noimage.jpg" e richiamarla nel caso in cui non vi sia un immagine
> associata al record :
>
> Me.TUAIMMAGINE.Picture = "noimage.jpg"
>
>> End If
>> End Sub
funzica...
grazie...
adesso ci smanetto un po'....
spero di non spaccare tutto...