Discussion :

[Salsaboy60]

Bonjour,

j'ai une fichier produit et je stock mes images en dehors de la bdd. Je construit le chemin vers la photo dynamiquement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim StrPhoto As String
SearchString = Me.CodeFournisseur
SearchChar = "-"
StrPos = InStr(10, SearchString, SearchChar, 1)
StrLen = Len(SearchString)
StrRight = StrLen - StrPos
 
StrPhoto = Mid(Me.CodeFournisseur, 1, 8) & "-" & Right(Me.CodeFournisseur, StrRight) & ".jpg"
 
If CurrentProject.Path & "\Articles\" & StrPhoto <> "" Then
    Me.imgAperçu.Picture = CurrentProject.Path & "\Articles\" & StrPhoto
Else
    Me.imgAperçu.Picture = CurrentProject.Path & "\Articles\Zumbito.gif"
End If

Mais quelle teste est ce que je dois effectuer pour savoir si la photo existe déjà dans l'emplacement spécifié?
Car actuellement il me renvoie une message d'erreurs mais il va pas afficher la photo par défault.

Merci pour vos remarques

Hans

[Invité]

Bonjour
Et bien tu as en partie répondu.
Tu peux intercepter l'erreur et la traiter.

[jimbolion]

Salsaboy60,

Pour tester l'existence d'un fichier mettre dir devant la variable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
StrPhoto = Mid(Me.CodeFournisseur, 1, 8) & "-" & Right(Me.CodeFournisseur, StrRight) & ".jpg"
 
If Dir(CurrentProject.Path & "\Articles\" & StrPhoto) > "" Then
    Me.imgAperçu.Picture = CurrentProject.Path & "\Articles\" & StrPhoto
Else
    Me.imgAperçu.Picture = CurrentProject.Path & "\Articles\Zumbito.gif"
End If

Après et comme suggéré par Gayot, ton contrôle est bon

JimBoLion

[Salsaboy60]

Merci Guyout et jimbolion. Problème résolu.

Je ne connaissait pas le DIR. Encore qqc appris aujourd'hui.

Merci en tout cas.

Hans