Maschera con allegato in anteprima

Question

Ho realizzato una maschera ed una tabella nella quale c'è un campo di tipo  allegato

E' possibile avere un anteprima anche in miniatura del documento allegato ?

Il documento può essere in pdf o in word

Answer 1

Semplice, lo avevo già scoperto

Grazie sempre per l'enorme pazienza

Answer 2

Ciao,

in un campo di tabella memorizzi ad es.  d:\MiaCartella\Contratti\RossiAngelo.Pdf

e tramite il codice di cui sopra ( Sub cmdApri_Click() ) apri il programma di pertinenza ( in questo caso Acrobat ).

Ciao Mimmo

Answer 3

"non è consigliabile l'utilizzo dei campi allegato poiché 'gonfiano' il Db (ricordati che il limite di dimensioni del Db è di 2 mega) è più opportuno salvare il file (path + nome + estensione). "

Mi puoi spiegare meglio questo concetto ?

Come si salva semplicemente il file (path + nome + estensione)  ?

E se si mettesse un link collegato ad una cartella remota che contiene gli allegati scansionati in pdf ?

Cioè ogni record sarebbe collegato ad un file pdf  in una cartella remota con un link inserito in un campo del record, è possibile fare questo ?

Answer 4

Ciao,

non è consigliabile l'utilizzo dei campi allegato poiché 'gonfiano' il Db (ricordati che il limite di dimensioni del Db è di 2 mega) è più opportuno salvare il file (path + nome + estensione).

Immagina di avere in una maschera due pulsanti cmdCerca e cmdApri. Con cmdCerca (evento su click) selezioni il file dalla finestra di ricerca con il seguente codice:

Private Sub cmdCerca_Click()

   Dim fDialog As Office.FileDialog

   Dim varFile As Variant

Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

With fDialog

.AllowMultiSelect = False

      .Title = "Selezione del file"

.Filters.Add "All Files", "*.*"

If .Show = True Then

          Me.NomeFile = .SelectedItems(1)

      Else

         MsgBox "Azione annullata"

      End If

   End With

End Sub

Mentre con il pulsante cmdApri (evento su click) apri il documento:

Private Sub cmdApri_Click()

    Dim rc As Double

    Select Case Mid(Me.NomeFile, InStr(Me.NomeFile, ".") + 1)

           Case Is = "mdb", "accdb"

                rc = Shell("MSAccess.exe " & Me.NomeFile, vbNormalFocus)

           Case Is = "xls", "xlxs"

                rc = Shell("Excell.exe " & Me.NomeFile, vbNormalFocus)

           Case Is = "pdf"

                rc = Shell("C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe " & Me.NomeFile, vbNormalFocus)

           Case Is = "doc", "docx"

                rc = Shell("WinWord.exe " & Me.NomeFile, vbNormalFocus)

           Case Is = "txt", "csv"

                rc = Shell("Notepad.exe " & Me.NomeFile, vbNormalFocus)

           Case Else

                MsgBox "Estensione non riconosciuta."

    End Select

End Sub

Ricorda di selezionare in Strumenti=>Riferimenti=> Microsoft Office xxx object library

ciao Mimmo