Newsgroup: it.comp.appl.access
Titolo: Immagini nei report

Un saluto a Tutti.
Ora che ho risolto il problema del collegamento di un immagine in una
maschera,
avrei la necessità di stampare il relativo report.
e qui viene il problema.
Ho provato ma l'immagine non viene inserita?
segue codice:
Private Sub Report_Open(Cancel As Integer)
 On Error GoTo Err_Report_Open
        Dim path As String
            path = "C:\Documenti\Foto\"
            Me![Immagine].Picture = path & Me![Matricola] & ".jpg"
        Exit__routine:
  Exit Sub
           Err_Report_Open:
           MsgBox "L'immagine richiesta NON è ancora Presente in archivio",
vbCritical
          Me![Immagine].Picture = ""
       Resume Exit__routine:
End Sub
grazie

 ha scritto nel messaggio
news:Opk8a.259293$0v.72...@news1.tin.it...

Immagino che il controllo Immagine tu lo abbia inserito nel Corpo del
report, quindi il tuo codice VBA non lo devi generare a fronte dell'evento
"Su apertura" del report ma a fronte dell'evento "Su formattazione" del
Corpo del report.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:Spl8a.169687$ZE.50...@twister2.libero.it...

SEI IMMENSO.:)

Facendo seguito al post del 02/03/2003 h. 10.46 ho notato un comportamento
strano nel caricamento dell' immagine, ovvero se l'immagine non è presente
nel percorso specificato, nel controllo immagine del report, resta
l'immagine del report precedente.
Qlc sa spiegarmi l'anomalia ed eventualmente la soluzione?
segue codice
Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)
 On Error GoTo Err_Report_Open
       Dim path As String
       ' Assegna il percorso per l'inserimento della foto
        path = "C:\Documenti\Foto\"
        Me![Immagine].Picture = path & Me![Matricola] & ".jpg"
Exit__routine:
  Exit Sub
Err_Report_Open:
   MsgBox "L'immagine richiesta NON è ancora Presente in archivio",
vbCritical
   Me![Immagine].Picture = ""
   Resume Exit__routine:
End Sub
Grazie in anticipo.



 ha scritto nel messaggio
news:3k39a.3551$pG1....@news1.tin.it...

Prova a invertire le due righe di codice di errore e di impostazione a
stringa vuoata della proprietà Picture dell'Immagine, ovvero:
...
...
Exit__routine:
  Exit Sub
Err_Report_Open:
   Me![Immagine].Picture = ""
   MsgBox "L'immagine richiesta NON è ancora Presente in archivio",
vbCritical
   Resume Exit__routine:
End Sub


 Grazie in anticipo.


 ha scritto nel messaggio
news:8q49a.176458$YG2.5...@twister1.libero.it...

Scusa ma devo avere dei problemi con l'account, quando invio la posta mi da
errore e si scollega quindi pensavo di NON averlo inviato.
Cmq ora provo la tua soluzione e grazie di nuovo.

 ha scritto nel messaggio
news:kl49a.176444$YG2.5...@twister1.libero.it...

NON FUNGE!
Non si annulla l'immagine, rimane visibile quella del report precedente.
Altre "dritte"?:)

 ha scritto nel messaggio
news:jUi9a.7168$pG1.1...@news1.tin.it...

Per scrupolo ho provato il codice da te postato nel tuo messaggio di ieri
delle ore 9:51; a me funziona bene: nel caso di un file immagine inesistente
fa la strada di errore e non mi visualizza alcune immagine, visto che
imposti la proprietà Picture del controllo Immagine con una stringa vuota.
Non saprei proprio cosa dirti.
