gestione oggetto OLE in stampa

Question

Ciao a tutti,

ho creato una tabella nella quale, in un campo chiamato IMMAGINE, ho previsto l'inserimento del collegamento con una immagine pescata da una cartella del disco del mio PC.

Il campo IMMAGINE l'ho configurato come oggetto OLE.

Con una form inserisco i dati della tabella e nel campo IMMAGINE inserisco il percorso per collegare l'immagine.

Se visualizzo i campi inseriti in tabella e faccio doppio clic sul campo IMMAGINE, la foto si apre.

Ora vorrei stampare i diversi campi della tabella, ma l'immagine non viene stampata.

Qualcuno mi sa aiutare?

Grazie anticipatamente

Answer 1

ciao Paolo,

devi copiare questa funzione :

Option Compare Database

Option Explicit

Public Function cmdFileDialog() As Variant

   Dim fDialog     As Object

    Dim varFile     As Variant

   Set fDialog = Application.FileDialog(3)

    With fDialog

      .Title = "Select One or More Files"

      .AllowMultiSelect = False

       .Filters.Clear

       .Filters.Add "files JPG", "*.JPG"

      .InitialFileName = CurrentProject.Path & ""

       varFile = Null

       If .Show = True Then

          varFile = .SelectedItems(1)

       End If

    End With

   cmdFileDialog = varFile

 End Function

in un modulo pubblico, la funzione cmdDialog è quella di cui sopra e indicata nel post inziale.

Per generare un modulo in cui inserire la funzione esegui questo passo :

Dopo questo copia incolla in un modulo standard e pubblico, salva il modulo chiamandolo ad esempio mod_Dialog.

Dopo questo passaggio, la finestra del database deve mostrare tra i moduli anche quello contenente la funzione cmdDialog così :

in questo modo quando si scatenerà l'evento click del command button cmdLoadFile eseguirai la funzione mostrando la finestra di caricamento/scelta del file.

per l'option explicit vedi qui :https://msdn.microsoft.com/it-it/library/y9341s4f.aspx?f=255&MSPPError=-2147217396

Facci sapere.

Ciao, Sandro.

Answer 2

ciao Paolo,

non devi utilizzare il campo OLE che memorizza il file nella tabella.

Devi semplicemente memorizzare il FullPath del file.

Per memorizzare il fullPath del file basta un fileDialog, settato in una funzione, e restituente il fullPath del file immagine.

Dopo di che imposti nell'origine di controllo di un controllo immagine di una maschera o di un report  il campo in cui risiede il path dell'immagine.

Non serve altro.

Per il fileDialog se cerchi nella community trovi molti esempi a riguardo, ad esempio:

https://answers.microsoft.com/it-it/msoffice/forum/msoffice\_access-mso\_winother/automatizzare-immagini-da-access-a-word/11e76493-a3a4-43ea-9184-0bb9f5f70a25?page=2

Ciao, Sandro.

Answer 3

funziona!

grazie mille :)

Paolo