Valeur Null dans une condition

Bonsoir

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

Code:

---

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

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)

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.

Bonjour

Essaye :

Code:

---

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

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

Code:

---

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

---

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

Re

Pense au tag :résolu:, sytématiquement quand je fais un test, je contrôle le null et ce que je t'ai mis, cela passe à tous les coups.

Starec

Re Bonjour,

J’ai fait une manip en mettant directement le code dans la section détail « Au formatage » et celui-ci fonctionne correctement.

Code:

---

1 2 3 4 5 6 7

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) If IsNull(Me.txtPhoto) Or Me.txtPhoto.Value = "" Then Me.ImageFrame.Picture = strBase & "\photos\vide.jpg" Else Me!ImageFrame.Picture = strBase & "\" & strImagePath End If End Sub

---

Auparavant ce code était dans une Function

Code:

---

1 2 3 4 5 6 7 8

Function setImagePath()   If IsNull(Me.txtPhoto) Or Me.txtPhoto.Value = "" Then Me.ImageFrame.Picture = strBase & "\photos\vide.jpg" Else Me!ImageFrame.Picture = strBase & "\" & strImagePath End If End Function

---

Et je l’appelais par:

Code:

---

1 2 3 4

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) '--- Appel de la fonction ImagePath Call setImagePath En sub

---

Ou se trouve mon erreur ?

Salutations.

Bonjour

Dans ton cas, il ne faut pas faire une fonction, mais une routine, remplace Function par Sub.

starec