Discussion :

[jmde]

Bonsoir

Pourquoi lorsque txtPhoto est null le code ne passe pas sur la ligne "\photos\vide.jpg"

Code :

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

1
2
3
4
5
If IsNull(Me!txtPhoto) Then
    Me.ImageFrame.Picture = strBase & "\photos\vide.jpg"
Else
    Me!ImageFrame.Picture = strBase & "\" & strImagePath
End If

Merci de votre aide.
Salutations

[dr_feelgood]

logiquement parce que à cet instant Me.txtphoto n'est pas nul....

as_tu mis ce code sur un change, exit, before Update ? tu ne nous le précise pas
Essaie de comprendre ce qu'il y a dans ton controle à ce moment la, en glissant un msgbox avant le If
affiche le contenu, sa longueur...

sinon essaie d'éviter IsNull et de remplacer par un Nz(Me.txt photo,"") et de tester si c'est égal à "" (vide)

[jmde]

Bonsoir feelgood,

Merci pour ta réponse.

Je suis dans la procédure événementielle d'un état "Section Détail".

J'ai mis un Msgbox me.txtPhoto, il m'affiche le chemin de la photo lorsqu'il existe autrement aucune valeur lorsqu'il est vide.

De même aucun effet avec nz(txtPhoto,"").

Salutations.

[Invité]

Bonjour

Essaye :

Code :

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

1
2
3
4
5
If IsNull(Me!txtPhoto) Or Me!txtPhoto.value = "" Then
    Me.ImageFrame.Picture = strBase & "\photos\vide.jpg"
Else
    Me!ImageFrame.Picture = strBase & "\" & strImagePath
End If

Starec

[Jean-Philippe André]

j'oseraias ajouter un autre test pour vérifier que le répertoire est bien valide :

Code :

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

if Dir(me.txtphoto)<>"" then

[jmde]

Bonjour,

J'ai essayé les deux conseils.

C'est vraiment incompréhensible le code passe bien si txtPhoto contient une valeur, mais dès qu'il est vide il ne passe pas.

Salutations