[MS Access] Pulsante per inserire allegati in campo maschera

Alessio Forconi

Nuovo Utente
1 Gen 2019
3
0
1
Salve a tutti,

vorrei creare un pulsante per inserire un allegato in un campo di una maschera, che ovviamente è collegato ad una tabella.

Per ora sono arrivato a questo codice:

Codice:
Dim fDialog As Office.FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
   
With fDialog
    .AllowMultiSelect = False
    .Title = "Seleziona la foto da allegare"
    .Filters.Clear
    .Filters.Add "Jpg", "*.jpg"
    .Filters.Add "Jpeg", "*.jpeg"
    .Filters.Add "Png", "*.png"
    If .Show = True Then
        For Each selezione In .SelectedItems
            FileDaInserire = selezione
        Next
    Else
        MsgBox "Operazione annullata!", vbInformation
        Exit Sub
      End If
    End With

A questo punto pensavo ad una query di inserimento che abbia il percorso del file, cioè FileDaInserire, come contenuto del campo allegato della tabella.

È corretto come ragionamento logico?
Se sì, va bene passare il nome del file completo di percorso alla query?

Grazie
 

Discussioni simili