Function AjouterFichier(strchemin As String, inteleve As Integer) As Boolean
On Error GoTo err
Dim oRst As DAO.Recordset
    'Ouvre un recordset sur les fichiers de l'éleve passé en paramètre
    Set oRst = CurrentDb.OpenRecordset("SELECT Fichiers FROM tbl_eleve WHERE [N°]=" & inteleve)
    With oRst.Fields(0).Value
        'Ajoute la pièce jointe
        .AddNew
        'Lit le fichier
        .Fields("FileData").LoadFromFile strchemin
        .Update
    End With
    AjouterFichier = True
    
fin:
    Set oRst = Nothing
    Exit Function

err:
    'Gestion d'erreur
    Select Case err.Number
        Case 3024:
            MsgBox "Fichier inexistant", vbCritical
        Case 3820:
            MsgBox "Une autre pièce-jointe de ce nom existe déjà", vbCritical
        Case Else:
            MsgBox "Erreur inconnue", vbCritical
    End Select
    Resume fin
End Function

Sub creerChampPieceJointe()
Dim oDb As DAO.Database
Dim oTbl As DAO.TableDef
Set oDb = CurrentDb
Set oTbl = oDb.TableDefs("TableClient")
With oTbl
    .Fields.Append .CreateField("PhotoClient", dbAttachment)
End With
End Sub

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

ShellExecute Me.hwnd, "open", strchemin, "", CurrentProject.Path, 1

Function EnregistrerFichier(strNomFichier As String, inteleve As Integer, strNomDestination) As Boolean
On Error GoTo err
Dim oRst As DAO.Recordset
    'Ouvre un recordset sur les fichiers de l'éleve passé en paramètre
Set oRst = CurrentDb.OpenRecordset("SELECT Fichiers.FileData FROM tbl_eleve WHERE [N°]=" & _
            inteleve & " AND Fichiers.FileName=" & Chr(34) & strNomFichier & Chr(34))
    If Not oRst.EOF Then
    
        oRst.Fields(0).SaveToFile strNomDestination
        EnregistrerFichier = True
    End If    
fin:
Set oRst = Nothing
Exit Function
    
err:
    Select Case err.Number
    Case 3839:
        MsgBox "Impossible d'écraser le fichier", vbCritical
    Case Else
        MsgBox "Erreur inconnue", vbCritical
    End Select
    Resume fin
End Function

EnregistrerFichier "photo.jpg", 2, "c:\essai.jpg"

Dim odb As DAO.Database
Dim otbl As DAO.TableDef
'Instancie la base de données
Set odb = CurrentDb
'Accède à la table
Set otbl = odb.TableDefs("Table1")
'Teste la propriété type du champ
If otbl.Fields(0).Type = dbAttachment Then
    MsgBox "Champ de type Pièces-Jointes"
End If

Dim oRst As DAO.Recordset
'Accède aux données du client numéro 1
Set oRst = CurrentDb.OpenRecordset("SELECT * FROM tblClient WHERE Num=1")
'Accède à son jeu de pièces-jointes
With oRst.Fields("Photo").Value
  'parcours tous les fichiers texte en faisant une recherche
  .FindFirst "FileType='txt'"
    While Not .NoMatch
      'Supprime et passe au suivant
      .Delete
      .FindNext "FileType='txt'"
    Wend
End With

Dim oRst As DAO.Recordset
'Accède aux données du client numéro 1
Set oRst = CurrentDb.OpenRecordset("SELECT * FROM tblClient WHERE Num=1")
'Accède à son jeu de pièces-jointes
With oRst.Fields("Photo").Value
  'parcours tous les fichiers et les supprime
    While Not .EOF
      .Delete
      .MoveNext
    Wend
End With