Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access envoie d'un état par courriel

envoie d'un état par courriel

1 réponse
Avatar
Stéphane
Bonjour,=20

Sur mon formulaire bon de commande j'ai un bouton qui me=20
permet sendobject pour envoyer le bon de commande via=20
courriel .. voici le code g=E9n=E9rer.

Private Sub Com_courriel_Click()
On Error GoTo Err_Com_courriel_Click

Dim stDocName As String

stDocName =3D "rptBon_Commande"
DoCmd.SendObject acReport, stDocName

Exit_Com_courriel_Click:
Exit Sub

Err_Com_courriel_Click:
MsgBox Err.Description
Resume Exit_Com_courriel_Click
=20
End Sub

Le probleme c'est qu'il envoye l'=E9tat de tout les bon de=20
commandes ... comment envoyer l'=E9tat du bon de commande=20
courrant.=20

Merci=20
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
Arnaud [lwa]
Bonjour,

essaye de mettre ça dans ton état (événement sur ouverture) :

Private Sub Report_Open(Cancel As Integer)
Me.Filter = "([LeChamp]=[Forms]![TonFormulaire]![TonControle].Value)"
Me.FilterOn = True
End Sub

Ton état s'ouvrira filtré sur un champ source égal à la valeur d'un controle de ton formulaire.
Ici, syntaxe pour un LeChamp numérique.

à+
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------


Bonjour Stéphane,

| Bonjour,
|
| Sur mon formulaire bon de commande j'ai un bouton qui me
| permet sendobject pour envoyer le bon de commande via
| courriel .. voici le code générer.
|
| Private Sub Com_courriel_Click()
| On Error GoTo Err_Com_courriel_Click
|
| Dim stDocName As String
|
| stDocName = "rptBon_Commande"
| DoCmd.SendObject acReport, stDocName
|
| Exit_Com_courriel_Click:
| Exit Sub
|
| Err_Com_courriel_Click:
| MsgBox Err.Description
| Resume Exit_Com_courriel_Click
|
| End Sub
|
| Le probleme c'est qu'il envoye l'état de tout les bon de
| commandes ... comment envoyer l'état du bon de commande
| courrant.
|
| Merci