Discussion :

[lefabe]

Bonjour,

Je voudrais lorsque je clique sur un bouton (Command303) dans mon formulaire « Menu », exporter au format pdf l’état « R_by Date ». Ce dernier est basé sur la requête « Q_By Date » qui elle-même est basée sur la table « T_data ». Jusque-là pas de problème. Lorsque je clique sur le bouton (Command303) je reçois un pop-up (like dans la requête « Q_By Date ») qui m’invite à rentrer une date (jj/mm/aaaa) dans le champ "Time". Jusque-là toujours pas de problème. Je que je n’arrive pas à faire, c’est nommer le fichier pdf comme suit :

« Report jj/mm/aaaa » donc intégrer la date rentrée (champ "Time") via le pop-up dans le nom (ex : Report 11/06/2014.pdf)

Ce que vous devez savoir dans ma DB :

• Un état « R_by Date »
• Une requête « Q_By Date »
• Une table « T_data »
• Un formulaire « Menu »

Merci d’avance.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub Command303_Click()
 
 
Dim myPath As String
Dim strReportName As String
 
DoCmd.OpenReport "R_by Date", acViewPreview
 
myPath = "\\bxlsrvfile01\deptment\Comptabilite Shared\METF\"
strReportName = "Report" & [Time] & ".pdf"
 
DoCmd.OutputTo acOutputReport, "", acFormatPDF, myPath & strReportName, True
DoCmd.Close acReport, "R_by Date"
 
 
End Sub

[madefemere]

Bonsoir,

Il faut que vous transférer le paramètre [Time] (qui est un mot réservé entre nous, donc à changer) de la requête vers un autre endroit où il peut être enregistré et re-utilisé. Parce qu'actuellement, il est volatile. Donc, il faudrait l'enlever de la requête.
Après, soit créer une zone de texte dans le formulaire menu d'où on le transfert vers l'état, soit créer un inputbox et transférer la valeur de l'inputbox lors de l'ouverture de l'état au Docmd.OpenReport

Dites-nous s'il y a des difficultés.

Bonne continuation