Discussion :

[rose0729]

Bonjour,

Evidemment on veut toujours plus !

Cette formule marche très bien

Code :

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

1
2
3
4
5
6
7
If Len(Me.Photo) > 0 Then
    Me.imgPhoto.Picture = Me.Photo
 
Else
    Me.imgPhoto.Picture = CurrentProject.Path & "\Image\" & Me.codeProduit & ".jpg"
 
End If

mais ce "CurrentProject.Path" met le chemin de la base ou je travaille

j'aimerai transférer le fichier photo sur un autre poste ... mais comment mettre ce chemin d'accés qui sera toujours le même
c:\serveur\photo\image\

Merci à vous si vous avez une idée

[ClaudeLELOUP]

Bonjour,

simplement :

Code :

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

1
2
3
4
5
6
7
If Len(Me.Photo) > 0 Then
    Me.imgPhoto.Picture = Me.Photo
 
Else
    Me.imgPhoto.Picture = "c:\serveur\photo\image\" & Me.codeProduit & ".jpg"
 
End If

[rose0729]

oh ! pourquoi je fais toujours compliqué quand c'est si simple !

Merci beaucoup à toi