Inserire Immagini in report

di
LeonKennedy
il
15 risposte
L
LeonKennedy
Pochi posts
Iscritto da
lug, 2019
Messaggi:
18

Inserire Immagini in report

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

  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8752

    Re: Inserire Immagini in report

    Scommetto una pizza che Apri il report in modalità LAYOUT invece che ANTEPRIMA.
  • L
    LeonKennedy
    Pochi posts
    Iscritto da
    lug, 2019
    Messaggi:
    18

    Re: Inserire Immagini in report

    Ciao Alex e grazie per l'interessamento. No apro il report in anteprima di stampa se intenti quello.
  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8752

    Re: Inserire Immagini in report

    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.
  • L
    LeonKennedy
    Pochi posts
    Iscritto da
    lug, 2019
    Messaggi:
    18

    Re: Inserire Immagini in report

    Ok. Dice che il problema è l'apertura del report??? Dovrei aprirlo da form con comando??
  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8752

    Re: Inserire Immagini in report

    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.
  • L
    LeonKennedy
    Pochi posts
    Iscritto da
    lug, 2019
    Messaggi:
    18

    Re: Inserire Immagini in report

    Ok provo
  • L
    LeonKennedy
    Pochi posts
    Iscritto da
    lug, 2019
    Messaggi:
    18

    Re: Inserire Immagini in report

    Ciao Alex ho provato da comando
    DoCmd.OpenReport ("prova"), acViewReport ma niente escono tutti gli altri campi ma non visualizza immagine.
  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8752

    Re: Inserire Immagini in report

    Puoi allegare in un sito di file-sharing o ONEDRIVE il file accdb o mdb con un esempio del report...?
  • L
    LeonKennedy
    Pochi posts
    Iscritto da
    lug, 2019
    Messaggi:
    18

    Re: Inserire Immagini in report

    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.
  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8752

    Re: Inserire Immagini in report

    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.
  • L
    LeonKennedy
    Pochi posts
    Iscritto da
    lug, 2019
    Messaggi:
    18

    Re: Inserire Immagini in report

    Hai ragione. Come posso risolvere? Non saprei proprio.
  • L
    LeonKennedy
    Pochi posts
    Iscritto da
    lug, 2019
    Messaggi:
    18

    Re: Inserire Immagini in report

    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.
  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8752

    Re: Inserire Immagini in report

    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
  • L
    LeonKennedy
    Pochi posts
    Iscritto da
    lug, 2019
    Messaggi:
    18

    Re: Inserire Immagini in report

    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