Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Envoi piece jointe Etat (avec filtre)

Envoi piece jointe Etat (avec filtre)

1 réponse
Avatar
Franck
Access XP

Bonjour,

Comment faire pour envoyer un mail avec comme pi=E8ce=20
jointe, un =E9tat de l'enregistrement en cours.

Je m'explique :
ci-dessous j'ai la possiblit=E9 d'appliquer mon=20
filtre "req_filtre_etat" =E0 l'impression

Private Sub Commande2_Click()
On Error Resume Next
DoCmd.OpenReport Me.Liste1, acNormal, "req_filtre_etat"
End Sub

par contre je n'y arrive pas avec : Pour envoyer un mail
Private Sub Commande3_Click()
On Error Resume Next
DoCmd.SendObject acSendReport,Me.Liste1, "req_filtre_etat"
End Sub

Peut-on contourner ce probl=E8me ?

Merci d'avance pour vos r=E9ponses
Salutations
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
J-Pierre
Bonjour Franck,

Je vois deux possibilités:

1) Mettre le filtre dans un formulaire caché, et à l'ouverture de ton état, appliquer le filtre par code VBA.

2) Modifier ton état avant de l'envoyer par mail:

Dim rpt1 As Report

DoCmd.OpenReport rptToPrint, acViewDesign

Set rpt1 = Reports(rptToPrint)
rpt1.Filter = xxxxxxxxxxxx
rpt1.FilterOn

' une des deux lignes suivantes
DoCmd.OpenReport rptToPrint, acNormal
DoCmd.SendObject acSendReport........

DoCmd.Close acReport, rptToPrint, acSaveNo

J'ai légèrement un code existant, mais je n'ai pas testé......

J-Pierre

"Franck" a écrit dans le message de news: 04f901c3c54c$1b95e2e0$
Access XP

Bonjour,

Comment faire pour envoyer un mail avec comme pièce
jointe, un état de l'enregistrement en cours.

Je m'explique :
ci-dessous j'ai la possiblité d'appliquer mon
filtre "req_filtre_etat" à l'impression

Private Sub Commande2_Click()
On Error Resume Next
DoCmd.OpenReport Me.Liste1, acNormal, "req_filtre_etat"
End Sub

par contre je n'y arrive pas avec : Pour envoyer un mail
Private Sub Commande3_Click()
On Error Resume Next
DoCmd.SendObject acSendReport,Me.Liste1, "req_filtre_etat"
End Sub

Peut-on contourner ce problème ?

Merci d'avance pour vos réponses
Salutations