Ciao, ho creato un campo allegati in una tabella, nella maschera c'è un tasto Sfoglia e uno Apri, che vanno a scriver il PATH con questa funzione:
Public Function SelezionaFile() As String
Dim FO As Object
Set FO = Application.FileDialog(3)
If FO.Show = True Then
SelezionaFile = FO.SelectedItems(1)
Else
MsgBox "Nessun Documento Allegato"
End If
End Function
con tasto che richiama la funzione, devo dire che funziona, mi stato fatto notare, ma se devo allegare 2 documeti, scannerizzazioni, PDF insomma piu cose, come posso rimediare a qusta richiesta peraltro giustificata.
GRAZIE a tutti