Discussion :

[nogood1]

bjr
j'ai un pb avec ce code j'ai une erreur mais je ne vois pas ou si qql'un peut m'aider
merci d'avance

Code :

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

1
2
3
4
5
6
7
8
9
     Dim stEmail As String
    Dim stAdresseEmailClient As String
 
    'recupere l'adresse email du contact
    stEmail = Me.EMAIL_contact1
    If IsNull(stEmail) Then
    MsgBox "pas d'envoi"
    End If
    stAdresseEmailClient = Trim(Left(stEmail, Len(stEmail) - InStr(stEmail, "#mailto") - Len("#mailto") - 1))

[Lou Pitchoun]

Salut,

Il est où le problème ??

Qu'est ce qui ne se passe pas ?
Quelle est la ligne en cause ?
Plus de précisions merci.

[nogood1]

voila le message d'erreur:

"erreur d'execution '94'
utilisation incorrect de Null"

le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Private Sub cmdEmailClient_Click()
    Dim stEmail As String
    Dim stAdresseEmailClient As String
    'recupere l'adresse email du contact
    'stEmail = Me.cmbEmailClient
    stEmail = Me.EMAIL_contact1
    If IsNull(Me.EMAIL_contact1) Then
    MsgBox "pas d'envoi"
    End If
    stAdresseEmailClient = Trim(Left(stEmail, Len(stEmail) - InStr(stEmail, "#mailto") - Len("#mailto") - 1))
 
On Error GoTo Err_envoi_mail_Click
 
    Dim stDocName As String
    stDocName = "rptVisite"
    DoCmd.SendObject acReport, stDocName, , stAdresseEmailClient
Exit_envoi_mail_Click:
    Exit Sub
 
Err_envoi_mail_Click:
    MsgBox "Il n'y a pas d'adresse mail pour le contact"
    Resume Exit_envoi_mail_Click
End Sub

[cafeine]

à quelle ligne l'erreur ?

[stolx_10]

Code :

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

If IsNull(Me.EMAIL_contact1) Then  ---> if ( me.EMAIL_contact1.text = "" ) Then

[nogood1]

merci pour vos reponses
j'ai mis la ligne de stolx 10 mais sans succes

la ligne qui coince c'est elle:

Code :

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

stEmail = Me.EMAIL_contact1

[stolx_10]

pareil que la ligne que j'ai mis

Code :

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

stEmail = Me.EMAIL_contact1.Text

dans ce cas

Code :

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

1
2
stEmail = Me.EMAIL_contact1.Text
    If (stEmail = "") Then

[nogood1]

merci ca marche
pour votre aide