Inserire Immagini in report

di Anonimizzato26680 il
15 risposte
/
Anonimizzato26680
Utente anonimizzato
Buona sera a tutti, sono nuovo del forum e grazie ai vostri post e consigli, sono riuscito quasi a terminare il mio db.
Avrei bisogno di un piccolo aiuto, lo so che forse il forum ne pieno e molti di Voi esperti di access ne avranno letti tanti di post di questo tipo, ma dopo ripetuti tentativi andati a vuoto adesso mi trovo di fronte a questo problema: non riesco a visualizzare le immagini nel report. Premetto che nelle maschere seguendo questo codice 
percorso = Me.Application.CurrentProject.Path & "\foto\" & Me.tmp_foto
If Len(Trim(Me.tmp_foto)) > 0 Then
Me.foto.Picture = percorso
Else
Me.foto.Picture = ""
End If
tutto funziona benissimo. Lo stesso codice con gli stessi controllo immagine lo riporto nel report nella sez. corpo formattazione non visualizzo l'immagine. Dove sbaglio???? Ringrazio tutti anticipatamente per l'aiuto. Grazie

15 Risposte

  • Avatar di @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi
    8951
    Scommetto una pizza che Apri il report in modalità LAYOUT invece che ANTEPRIMA.
  • /
    Anonimizzato26680
    Utente anonimizzato
    Ciao Alex e grazie per l'interessamento. No apro il report in anteprima di stampa se intenti quello.
  • Avatar di @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi
    8951
    Quel codice non va bene nel senso che verifica solo che il controllo non sia vuoto... Non verifichi che il file esista e questo non va bene...
    Detto ciò deve funzionare se il file c'è.

    Se apri il report con doppio click sei in modalità LAYOUT.... è di default.
  • /
    Anonimizzato26680
    Utente anonimizzato
    Ok. Dice che il problema è l'apertura del report??? Dovrei aprirlo da form con comando??
  • Avatar di @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi
    8951
    Se apri il report in modalità Struttura tra le proprietà trovi quella che definisce la modalità di Apertura di default che opera proprio al doppio click... devi selezionare Anteprima.
    Ovviamente se lo apri da codice puoi definire la modalità acViewPreview di conseguenza non avresti dubbi.

    Io ti suggerisco di fare una verifica.
  • /
    Anonimizzato26680
    Utente anonimizzato
    Ok provo
  • /
    Anonimizzato26680
    Utente anonimizzato
    Ciao Alex ho provato da comando
    DoCmd.OpenReport ("prova"), acViewReport ma niente escono tutti gli altri campi ma non visualizza immagine.
  • Avatar di @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi
    8951
    Puoi allegare in un sito di file-sharing o ONEDRIVE il file accdb o mdb con un esempio del report...?
  • /
    Anonimizzato26680
    Utente anonimizzato
    Ok. Grazie Alex esaustivo sempre. Risolto impostazioni sbagliate sia da comando che da impostazioni all'apertura del report.
    Ultima cosa. L'immagine nel report la si può vedere solo in anteprima stampa alla fine. Cmq funziona. Adesso. Grazie di nuovo. Solo una cosa prima accennavi ad un errore nel codice per visualizzare le immagini ma nn ho capito a cosa ti riferivi.
  • Avatar di @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi
    8951
    Quindi ho vinto la pizza...? Era la visualizzazione

    Ora Cancella o sposta l'immagine ed apri la tua Form o Report e capisci cosa intendo... poi scorri i records e vedi che la dove cerca l'immagine non rimuove la precedente... oltre che a generare errore.
  • /
    Anonimizzato26680
    Utente anonimizzato
    Hai ragione. Come posso risolvere? Non saprei proprio.
  • /
    Anonimizzato26680
    Utente anonimizzato
    Cmq questo errore lo avevo notato. e questo era un altro post che volevo aprire non appena risolto quello della visualizzazione. Se mi puoi aiutare te ne sarei grado.
  • Avatar di @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi
    8951
    Basta usare questa funzione: 
    ' Check if a file exists
Function fileExists(s_directory As String, s_fileName As String) As Boolean
    Dim obj_fso As Object

    Set obj_fso = CreateObject("Scripting.FileSystemObject")
    fileExists = obj_fso.fileExists(s_directory & "\" & s_fileName)

End Function
    Quindi invece di controllare il contenuto del controllo verifichi l'esistenza del file 
    
If FilExist(Me.NomeControllo) THEN
   Me.Immagine.Picture=Me.NomeControllo
Else
   Me.Immagine.picture=vbNullstring
End if
  • /
    Anonimizzato26680
    Utente anonimizzato
    Buona sera. Scusa se sono sparito ma impegnato con il lavoro. Il problema delle immagini risolto era come dice vi tu solo una questione di visualizzazione. Adesso provo l'altro codice. Questo lo devo sostituire del tutto o integrare a quello già esistente.
Devi accedere o registrarti per scrivere nel forum
15 risposte