Discussion :

[pobrouwers]

Bonjour,
J'insere dans un état une image qui est stockée sur mon disque (élément extérieur) grace au code suivant :

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Me.CtlPicture.Picture = CurrentProject.Path & "\images\" & Me.S_NUMERO & ".jpg"
End Sub

Le probleme, c'est que pour chaque ID, je n'ai pas de photo donc j'aimerai que s'il ne troube pas physiquement la photo il affiche tjs la meme photo, exemple blank.jpg. Il faut rajouter un if dans mon code mais je ne sais pas le quel !

Une idée ? merci

[marot_r]

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) 
  if dir(CurrentProject.Path & "\images\" & Me.S_NUMERO & ".jpg")<>"" then
      Me.CtlPicture.Picture = CurrentProject.Path & "\images\" & Me.S_NUMERO & ".jpg" 
    else
      Me.CtlPicture.Picture = CurrentProject.Path & "\images\" & maPhotoDefaut & ".jpg" 
  end if
End Sub

Dir permet de faire l'équivalent d'un dir DOS et retourne un nom de fichier.

A+

[pobrouwers]

Merci ca marche mais j'ai un peu changé

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
  If Dir(CurrentProject.Path & "\images\" & Me.S_NUMERO & ".jpg") <> "" Then
      Me.CtlPicture.Picture = CurrentProject.Path & "\images\" & Me.S_NUMERO & ".jpg"
    Else
      Me.CtlPicture.Picture = CurrentProject.Path & "\images\" & "BLANK.jpg"
  End If
End Sub