Discussion :

[clickandgo]

Bonjour à tous,

Est il possible de changer le titre d'un état suivant paramètres choisis pour éviter qu' access utilise le nom de l' état par défaut ?

Code :

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

1
2
3
4
5
Private Sub BtnEnvoyerDocumentPDF_Click()
 
DoCmd.SendObject acSendReport, ("rptdevisetfactures"), acFormatPDF, Forms![devis et factures]![sf client].Form![Mail1Contact], , , "Votre " & Me.[TypeDoc]
 
End Sub

Lorsque j'utilise ce code tous les états que je veux envoyer ont le même titre , ("rptdevisetfactures") or, l' état en question sert pour différent types de documents.

J'ai réussi à créer une chaîne lorqu'il s'agît d'enregistrer un état mais je ne vois pas si on peut faire la même chose juste avant de l'envoyer...

Merci pour vos suggestions

[RobiPMS]

Bonjour.

Voici le code que j'utilise pour ce genre de chose :

Code :

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

1
2
3
DoCmd.OpenReport "rptdevisetfactures", acViewDesign
Reports![rptdevisetfactures].Controls!Étiquette_Titre.Caption = "BlaBlaBla:"
DoCmd.Close acReport, "rptdevisetfactures", acSaveYes

J'imagine que tu dois pouvoir adapter cela pour modifier le titre en fonction des paramètres d'envoi.

Cordialement.

[clickandgo]

Merci pour ta réponse mais tout le problème est dans la fonction objectsend report car apparement on ne peut changer le titre de l' état dans celle là ...

A moins que je me trompe ?

[RobiPMS]

Tu changes le titre avant l'envoi.
La séquence est :
1. ouverture de l'état en mode création
2. Affectation de la légende de l'étiquette Titre
3. Fermeture et sauvegarde de l'état avec son titre modifié
Après, tu l'envoies. L'affectation le la légende de ton étiquette est indépendante de ce que tu fais ensuite de l'état.
A+

[clickandgo]

Oui, donc ça ne sert à rien de faire un bouton "envoyer par mail" ...

[RobiPMS]

Pourquoi ça ne sert à rien? Tu peux toujours mettre le code qui détermine le titre de l'état avant la commande d'envoi...

[vodiem]

salut clickandgo et RobiPMS,

Code :

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

1
2
3
Docmd.CopyObject ,"TitreReport",acReport,"rptdevisetfactures"
DoCmd.SendObject acSendReport, "TitreReport", acFormatPDF, Forms![devis et factures]![sf client].Form![Mail1Contact], , , "Votre " & Me.[TypeDoc]
Docmd.DeleteObject acReport,"TitreReport"

?

[clickandgo]

Ahhh, ça m' étonnait qu'il n'y ait une solution

Merci beaucoup