Discussion :

[lefabe]

Bonjour,

Je voudrais exporter un rapport access nommé "Certificate PDF" sous un format .pdf en le nommant systématiquement "numéro de client - Certificate" (ex: "22150 - Certificate").

Mon rapport tire ses données d'une requête nommée "Q_Certificate" qui elle même tire ses données d'une table nommée "T_Data".

Voici mon code mais je n'arrive pas à insérer le numéro de client nommé "client number" dans la table "T_Data" :

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
Private Sub Export_Click()
 
Dim myPath As String
Dim strReportName As String
Dim strClientNumber As String
 
DoCmd.OpenReport "Certificate PDF", acViewPreview
 
myPath = "M:\Comptabilite Shared\Certificate of Balance\Temp\"
strClientNumber = ?????????????
strReportName = strClientNumber + " - " + "Certificate" + ".pdf"
 
DoCmd.OutputTo acOutputReport, "", acFormatPDF, myPath + strReportName, True
DoCmd.Close acReport, "Certificate PDF"
 
End Sub

Merci d'avance

[Jean-Philippe André]

Salut,

ton numero client apparait-il dans ton etat ?

Sous quel libelle ?

Regarde si par exemple une ligne comme

Code :

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

strClientNumber = Me.TaTextBoxNumeroClient.Value

ferait l'affaire

[Zekraoui_Jakani]

En principe, ton n° Client apparaît sur le rapport; donc la solution proposée par JP André est la bonne !
Supposons que le nom sur le rapport est NbrClt, alors:

Code :

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

strClientNumber = dlookup("[client number]","[T_Data]","[client number] = '" & NbrClt & "'")

[lefabe]

Salut,

ton numero client apparait-il dans ton etat ?

Sous quel libelle ?

Regarde si par exemple une ligne comme

Code :

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

strClientNumber = Me.TaTextBoxNumeroClient.Value

ferait l'affaire

Bonjour,

Oui mon n° de client apparaît dans mon état soit "Client number" qui est une Text Box.

J'ai essayé ceci mais sans succès:

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
Private Sub Export_Click()
 
Dim myPath As String
Dim strReportName As String
Dim strClientNumber As String
 
DoCmd.OpenReport "Certificate PDF", acViewPreview
 
myPath = "M:\Comptabilite Shared\Certificate of Balance\Temp\"
strClientNumber = Me.Client_number.Value
strReportName = "Certificate" + " - " + strClientName + ".pdf"
 
DoCmd.OutputTo acOutputReport, "", acFormatPDF, myPath + strReportName, True
DoCmd.Close acReport, "Certificate PDF"
 
End Sub

Merci

[lefabe]

En principe, ton n° Client apparaît sur le rapport; donc la solution proposée par JP André est la bonne !
Supposons que le nom sur le rapport est NbrClt, alors:

Code :

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

strClientNumber = dlookup("[client number]","[T_Data]","[client number] = '" & NbrClt & "'")

Bonjour,

Comme expliqué plus haut le n° Client apparaît bien sur le rapport soit "Client number" qui est une Text Box.

J'ai essayé ceci mais sans succès:

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
Private Sub Export_Click()
 
Dim myPath As String
Dim strReportName As String
Dim strClientNumber As String
 
DoCmd.OpenReport "Certificate PDF", acViewPreview
 
myPath = "M:\Comptabilite Shared\Certificate of Balance\Temp\"
strClientNumber = dlookup("[Client number]","[T_Data]","[Client number] = ' " & Client number & " ' ")
strReportName = "Certificate" + " - " + strClientName + ".pdf"
 
DoCmd.OutputTo acOutputReport, "", acFormatPDF, myPath + strReportName, True
DoCmd.Close acReport, "Certificate PDF"
 
End Sub

Merci

[Zekraoui_Jakani]

Qu'en est-il de :

Code :

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

strClientNumber = dlookup("[Client number]","[T_Data]","[Client number] = " & me.[Client number])

?

[lefabe]

Qu'en est-il de :

Code :

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

strClientNumber = dlookup("[Client number]","[T_Data]","[Client number] = " & me.[Client number])

?

Bonjour,

J'ai trouvé ceci et ça fonctionne parfaitement. Merci pour votre aide.

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
18
19
20
21
Private Sub Export_Click()
 
 
Dim myPath As String
Dim strReportName As String
Dim strClient_number As String
 
DoCmd.OpenReport "Certificate_PDF", acViewPreview
 
strClient_number = Reports!Certificate_PDF.[client_number]
 
myPath = "M:\Comptabilite Shared\Certificate of Balance\Temp\"
 
strReportName = strClient_number & " - " & "Certificate" & ".pdf"
 
DoCmd.OutputTo acOutputReport, "", acFormatPDF, myPath & strReportName, True
DoCmd.Close acReport, "Certificate_PDF"
 
 
 
End Sub