Discussion :

[Jisse55]

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 :

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

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

[f-leb]

Bonsoir,

Code :

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

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 :

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

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 :

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

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

Pour couvrir tous les cas ;

Code :

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

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

[Jisse55]

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...

[f-leb]

2è essai :

Code :

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

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

[tee_grandbois]

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

Code :

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

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

[Jisse55]

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