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