OVH Cloud OVH Cloud

Pb d'envoi de mail d'un etat

1 réponse
Avatar
Baceri
Salut a tous,

Voila mon pb j'ai un formulaire avec un sous formulaire.
Pour imprimer un état des données de ce formulaire, pour éviter d'imprimer
tout les sous formulaire j'ai rajoute ""[ID Principal]=" & Me![ID Principal

DoCmd.OpenReport stDocName, acPreview, , "[ID Principal]=" & Me![ID
Principal]



ID principal étant la clé de ce formulaire, et la pas de pb sa marche

Par contre quand je sélectionne envoyer par mail j'ai la totalité des sous
foumulaire



End Sub

Private Sub Cde_mail_Click()

On Error GoTo Err_Cde_mail_Click



Dim stDocName As String



stDocName = "E_Commande"

DoCmd.SendObject acReport, stDocName, acFormatSNP,
"jean-marc.cosenza@ine.com"

Exit_Cde_mail_Click:

Exit Sub



Err_Cde_mail_Click:

MsgBox Err.Description

Resume Exit_Cde_mail_Click



End Sub



J'ai essaye de mettre comme pour imprimer mais j'ai un message d'erreur

DoCmd.SendObject acReport, stDocName, acFormatSNP,
"jean-marc.cosenza@ine.com", , , , "[ID Principal]=" & Me![ID Principal]



merci de me répondre

1 réponse

Avatar
3stone
Salut,

"Baceri"
| Voila mon pb j'ai un formulaire avec un sous formulaire.
| Pour imprimer un état des données de ce formulaire, pour éviter d'imprimer
| tout les sous formulaire j'ai rajoute ""[ID Principal]=" & Me![ID Principal
|
| DoCmd.OpenReport stDocName, acPreview, , "[ID Principal]=" & Me![ID
| Principal]
| ID principal étant la clé de ce formulaire, et la pas de pb sa marche
|
| Par contre quand je sélectionne envoyer par mail j'ai la totalité des sous
| foumulaire


[...]
| J'ai essaye de mettre comme pour imprimer mais j'ai un message d'erreur
|
| DoCmd.SendObject acReport, stDocName, acFormatSNP,
| "", , , , "[ID Principal]=" & Me![ID Principal]


Ou à tu trouvé ce paramètre de filtrage dans le "SendObject" ??


Tu devrais remplacer ton "[ID Principal]=" & Me![ID Principal]
par un critère sous le champ [ID Principal] dans la requête source de ton état...

Forms!TonFormulaire!IdPrincipal

de cette façon, il devrait également fonctionner pour le "SendObject"


PS: les noms de champs n'ont que faire des espaces et lettres accentuées !
cela complique inutilement l'écriture...


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/