Access ne trouve systématiquement pas les photos (erreur 2220)

Private Sub cmdAjoutModifPhoto_Click()
' Bouton d'ajout - modification de photo
    
Dim strLink As String
Dim stPhoto As String       'Ce qu'il faut conserver du chemin dans la base de données
Dim stSQL As String
Dim stTitre As String

On Error GoTo err_cmdAjoutModifPhoto_Click
    
    stTitre = "Choisissez une photo de " & Me.Parent!Nom & " " & Me.Parent!Cultivar
    ' récupération du chemin physique de la photo
    ' par la boite de dialogue
    strLink = modFichiers.ChoisirFichier(stTitre)
    ' si la boite renvoie une adresse non nulle
    If Len(strLink) > 0 Then
        ' tentative d'affichage de la photo
        Me.imgPhoto.Picture = strLink
        
        'Sauvegarde d'une portion du chemin relative au projet dans la base de données
        iPos = Len(CurrentProject.Path)
        stPhoto = Right(strLink, Len(strLink) - iPos - 1)
        Me.txtPhoto = stPhoto
        
        DoEvents
         
        If Me.Dirty Then Me.Dirty = False
        
        stSQL = "UPDATE tb_Photo SET PhotoChemin = '" & strLink & "' WHERE Nom = '" & Me.Parent!Nom & "' AND Cultivar = '" & Me.Parent!Cultivar & "'"
        DoCmd.RunSQL stSQL
        
    End If
    
    DisplayPhoto
    
Exit_cmdAjoutModifPhoto_Click:
    Exit Sub

err_cmdAjoutModifPhoto_Click:
    Select Case Err.Number
        Case 2114
            'Cas d'un type de fichier photo non supporté ...
            ' on sort de la procédure
            MsgBox "Le format de l'image n'est supporté par le contrôle image Picture", vbCritical + vbOKOnly, "Application Photos"
            GoTo Exit_cmdAjoutModifPhoto_Click
        Case 2220  'Cas d'un emplacement non valide du fichier image
            MsgBox "Le fichier image n'a pas été trouvé à l'emplacement indiqué : " & vbCrLf & _
                Me.txtPhoto, vbCritical + vbOKOnly, "Application Photos"
            GoTo Exit_cmdAjoutModifPhoto_Click
        Case Else   ' tout autre cas d'erreur
            MsgBox "Erreur inattendue : " & Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Application Photos"
    End Select
    Err.Clear
    Resume Exit_cmdAjoutModifPhoto_Click
    
End Sub

Private Sub Form_Current()

' L'événement Activation (Current) se produit lorsque le focus passe à un enregistrement
' donné pour en faire l'enregistrement en cours, ou lorsque le formulaire est
' Actualisé ou en Actualisation.

' si le chemin vers la photo est non vide : on visualise un enregistrement
' sinon cela indique que nous sommes sur un enregistrement vierge, donc en cours de saisie.
' Me.Caption : gère le titre du formulaire.

Dim stDir As String
Dim stChemin As String

' Gestion des erreurs
On Error GoTo Err_Form_Current


  'Effacer la photo avant de passer à l'enregistrement suivant sinon elle reste
  Me.imgPhoto.Picture = CurrentProject.Path & "\blank.jpg"
  
' si la photo n'est pas définie, on affiche la photo blank.jpg
' CurrentProject.Path : est le chemin de l'application
    If Len(Me.txtPhoto) > 0 Then
        stChemin = CurrentProject.Path & "\" & Me.txtPhoto
        stDir = Dir(stChemin)
        If stDir <> "" Then
            Me.imgPhoto.Picture = stChemin
        End If
    
    End If

    DisplayPhoto
    
    
Exit_Form_Current:
    Exit Sub

Err_Form_Current:
    Select Case Err.Number
    
        Case 2114  'Cas d'un type de fichier photo non supporté ...
            MsgBox "Le format de l'image n'est supporté par le contrôle image Picture", vbCritical + vbOKOnly, "Application Photos"
            Me.imgPhoto.Picture = CurrentProject.Path & "\images\blank.jpg"
            'Me.txtPhoto = vbNullString
    
        Case 2220  'Cas d'un emplacement non valide du fichier image
            MsgBox "Le fichier image n'a pas été trouvé à l'emplacement indiqué : " & vbCrLf & _
                Me.txtPhoto, vbCritical + vbOKOnly, "Application Photos"
            Me.imgPhoto.Picture = CurrentProject.Path & "\blank.jpg"
            stSQL = "UPDATE tb_Photo SET FichierPhotoIntrouvable = TRUE WHERE Nom = '" & Me.Nom & _
                "' AND Cultivar = '" & Me.Cultivar & "'"
                
        Case Else   ' tout autre cas d'erreur
            MsgBox "Erreur inattendue : " & Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Application Photos"
    End Select
    
    Err.Clear
    Resume Exit_Form_Current

End Sub

Sub DisplayPhoto()
'DisplayPhoto est la sub d'affichage des photos dans le contrôle Image appelé : imgPhoto.
'Cette procédure ajuste l'affichage de la photo au cas où ses dimensions dépasseraient celles du contrôle photo.
'Me.imgPhoto.ImageHeight : donne la hauteur de la Photo (Fichier .jpg par exemple)
'Me.imgPhoto.Height : donne la hauteur du contrôle d'affichage.

' Traitement en fonction de la taille de l'image
' regarde si la hauteur de l'image dépasse celle du controle Picture
    If Me.imgPhoto.ImageHeight > Me.imgPhoto.Height Then
    ' met le controle en mode zoom (3)
        Me.imgPhoto.SizeMode = 3
        'Me.imgPhoto.SizeMode = 0
    Else   ' met le contrôle en mode respect de la taille originale
        Me.imgPhoto.SizeMode = 0
    End If ' si la largeur dépasse et qu'on est en mode taille réelle ...
    If (Me.imgPhoto.ImageWidth > Me.imgPhoto.Width) And (Me.imgPhoto.SizeMode) = 0 Then
        ' on met en mode zoom
        Me.imgPhoto.SizeMode = 3
        'Me.imgPhoto.SizeMode = 0
    End If
End Sub