Làm cách nào để xuất báo cáo ở định dạng PDF, trong đó tên bao gồm các giá trị từ các trường?

Question

Tôi muốn thêm chức năng vào báo cáo Access 2007 theo đó một bản sao của báo cáo PDF được tạo ra chỉ bằng một lần bấm nút. Tôi biết rằng có một OutputTo vĩ mô mà có thể làm điều này cho tôi, nhưng nó không cho phép tôi để bao gồm các giá trị trường báo cáo như một phần của tên tập tin của PDF, cụ thể là:

[Client Organisations].Code + "-" + Clients.Code + "-" + Invoices_Code + "-" + Format([Invoice Date],"yyyy") + ".pdf" 

Trong khi tôi đã thấy điều này MSDN thread và điều này SO question, tôi không thấy việc sử dụng các giá trị trường trong bất kỳ câu trả lời nào.

Tôi nghĩ mã VBA là con đường để đi, vì vậy tôi (không thành công) thử như sau:

Private Sub Create_PDF_Click() 
DoCmd.OutputTo acOutputReport, , acFormatPDF, "" + [Client Organisations].Code 
+ "-" + Clients.Code + "-" + Invoices_Code + "-" + Format([Invoice Date],"yyyy") 
+ ".pdf", True 
End Sub 

Run-time error '2465':

Microsoft Office Access không thể tìm trường '|' được gọi trong biểu thức của bạn

Có ý tưởng nào không?

Answer 1

tôi đã nhận nó để làm việc (cuối cùng).

Sau đây sub đã làm các trick:

Private Sub Create_PDF_Click() 

Dim myPath As String 
Dim strReportName As String 

DoCmd.OpenReport "Invoices", acViewPreview 

myPath = "C:\Documents and Settings\" 
strReportName = Report_Invoices.[Client Organisations_Code] + "-" + 
Report_Invoices.Clients_Code + "-" + Report_Invoices.Invoices_Code + "-" + 
Format(Report_Invoices.[Invoice Date], "yyyy") + ".pdf" 

DoCmd.OutputTo acOutputReport, "", acFormatPDF, myPath + strReportName, True 
DoCmd.Close acReport, "Invoices" 

End Sub 

Hai hãy cẩn thận:

1. Báo cáo cần phải được mở trước khi in.
2. Tham khảo các trường theo cùng tên mà báo cáo sẽ nhìn thấy. Điều đó [Client Organisations].Code là [Client Organisations_Code] trong báo cáo.

Answer 2

Dễ dàng hơn để Dim chuỗi và đặt toàn bộ biểu thức của bạn ở đó và sau đó gỡ lỗi nó để xem liệu nó có chứa tên báo cáo hợp lệ hay không.

Như thế này:

Dim strReportName as String 

strReportName = [Client Organisations].Code 
+ "-" + Clients.Code + "-" + Invoices_Code + "-" + Format([Invoice Date],"yyyy") 
+ ".pdf" 

//then try to print strReportName before you use DoCmd.OutputTo.