Probleme avec on error resume next non permis dans une fonction

Bonsoir tout le monde

J'utilise ce code pour envoyer des mails ,lorsque je ne ne veux pas que ma
commande s'execute j'ai essayé de mettre on error resume next exit sub
mais Exit Sub est non permis dans une fonction ou une propriété. Que dois
je mettre à la place et pourquoi ? Vous trouverez le code en dessous ?

Merci pour vos réponses Amicalement Francisco

Public Function EnvoyerEmail(ByVal StrDestinataire As String, _
ByVal strCC As String, _
ByVal strBCC As String, _
ByVal StrSujet As String, _
ByVal strMsg As String, _
ByVal blnEdit)
*********************************************************
'On Error Resume Next (erreur )
***********************************************************
DoCmd.SendObject acSendNoObject, , , StrDestinataire, strCC, strBCC,
StrSujet, strMsg, blnEdit
************************************************************************
'Exit Sub (erreur)
************************************************************************
End Function

Bonsoir.

sans lire ta fonction:

On Error GoTo Sortie_Sub
DoCmd.SendObject acSendNoObject, , , StrDestinataire, strCC, strBCC,
StrSujet, strMsg, blnEdit
Sortie_Sub:
End Function

ou
On Error Resume Next
DoCmd.SendObject acSendNoObject, , , StrDestinataire, strCC, strBCC,
StrSujet, strMsg, blnEdit
End Function

dans les deux cas toute erreur sera ignorée.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"malabar" <malabar@wanadoo.fr> a écrit dans le message de news:
41d6f913$0$2744$8fcfb975@news.wanadoo.fr...

Bonsoir tout le monde

J'utilise ce code pour envoyer des mails ,lorsque je ne ne veux pas que
ma commande s'execute j'ai essayé de mettre on error resume next exit sub
mais Exit Sub est non permis dans une fonction ou une propriété. Que dois
je mettre à la place et pourquoi ? Vous trouverez le code en dessous ?

Merci pour vos réponses Amicalement Francisco

Public Function EnvoyerEmail(ByVal StrDestinataire As String, _
ByVal strCC As String, _
ByVal strBCC As String, _
ByVal StrSujet As String, _
ByVal strMsg As String, _
ByVal blnEdit)
*********************************************************
'On Error Resume Next (erreur )
***********************************************************
DoCmd.SendObject acSendNoObject, , , StrDestinataire, strCC, strBCC,
StrSujet, strMsg, blnEdit
************************************************************************
'Exit Sub (erreur)
************************************************************************
End Function

Bonsoir tout le monde

J'utilise ce code pour envoyer des mails ,lorsque je ne ne veux pas que ma
commande s'execute j'ai essayé de mettre on error resume next exit sub
mais Exit Sub est non permis dans une fonction ou une propriété. Que dois
je mettre à la place et pourquoi ? Vous trouverez le code en dessous ?

Merci pour vos réponses Amicalement Francisco

Public Function EnvoyerEmail(ByVal StrDestinataire As String, _
ByVal strCC As String, _
ByVal strBCC As String, _
ByVal StrSujet As String, _
ByVal strMsg As String, _
ByVal blnEdit)
*********************************************************
'On Error Resume Next (erreur )
***********************************************************
DoCmd.SendObject acSendNoObject, , , StrDestinataire, strCC, strBCC,
StrSujet, strMsg, blnEdit
************************************************************************
'Exit Sub (erreur)
************************************************************************
End Function

« Exit Sub » est utilisé dans le cas des Sub (). Pour les fonctions, il
faut utiliser « Exit Function ».

S. L.

"malabar" <malabar@wanadoo.fr> wrote in message
news:41d6f913$0$2744$8fcfb975@news.wanadoo.fr...

Bonsoir tout le monde

J'utilise ce code pour envoyer des mails ,lorsque je ne ne veux pas que
ma commande s'execute j'ai essayé de mettre on error resume next exit sub
mais Exit Sub est non permis dans une fonction ou une propriété. Que dois
je mettre à la place et pourquoi ? Vous trouverez le code en dessous ?

Merci pour vos réponses Amicalement Francisco

Public Function EnvoyerEmail(ByVal StrDestinataire As String, _
ByVal strCC As String, _
ByVal strBCC As String, _
ByVal StrSujet As String, _
ByVal strMsg As String, _
ByVal blnEdit)
*********************************************************
'On Error Resume Next (erreur )
***********************************************************
DoCmd.SendObject acSendNoObject, , , StrDestinataire, strCC, strBCC,
StrSujet, strMsg, blnEdit
************************************************************************
'Exit Sub (erreur)
************************************************************************
End Function