Mauvais usage de null

Pourquoi le code qui suit ne me permet pas d'intercepter ce message ? Je sais que certain enregistrement de la requête ne contienne pas de courriel et c'est pourquoi j'ai écrit ce code.

Code:

---

1 2 3 4 5 6 7 8 9

Dim strSQL As String strSQL = "select * from reqEnvoiFactures where réfCommande =" & lngNoAuto & ";" Set rst = db.OpenRecordset(strSQL, dbOpenForwardOnly, dbReadOnly) '***************************************************************************************************** If rst.Fields("Courriel").Value = Null Then adMail = "jcarmi3265@hotmail.com" Else adMail = rst.Fields("Courriel").Value End If

---

Bonsoir,

Code:

---

If rst.Fields("Courriel").Value = Null Then ...

---

Null n'est pas une valeur, mais un marqueur pour l'absence de valeur, un champ ne peut donc être "égal à Null". Il faut plutôt écrire :

Code:

---

If IsNull(rst.Fields("Courriel").Value) Then ...

---

Mais si ton champ autorise les chaînes vides, il peut aussi être égal à "", et on écrira :

Code:

---

If rst.Fields("Courriel").Value = "" Then ...

---

Pour couvrir tous les cas ;

Code:

---

if IsNull(rst.Fields("Courriel").Value) Or rst.Fields("Courriel").Value = "" Then ...

---

Merci beaucoup pour votre prompte réponse; votre solution fonctionne très bien ... jusqu'à ce qu'un enregistrement contienne une adresse courriel valide.
Le message Incompatibilité de type est généré par la ligne If IsNull...

2è essai :

Code:

---

1 2 3 4

Dim courriel As Variant courriel = rst.Fields("Courriel").Value   If IsNull(courriel) Or courriel = "" Then ...

---

bonsoir,
pour faire simple, il y a aussi la formule classique:

Code:

---

if rst.Fields("Courriel") & "" = "" Then ...

---

mais à mon sens, d'après le message d'erreur (incompatibilité de type), le champ Courriel ne peut pas contenir de valeur nulle, juste une chaine vide

Merci, vos réponses m'ont permis de résoudre mon problème. C'est très apprécié.