来自其他数据库的MS Access导出报告

Question

我基本上尝试执行以下操作（以PDF格式导出报告）：

DoCmd.OpenReport report_name, acViewPreview
DoCmd.OutputTo acOutputReport, report_name, acFormatPDF, dest, False
DoCmd.Close acReport, report_name

但是我试图让它在一个完全独立的数据库中引用一个报表对象。如何修改report_name以使其生效？我试过“[dbpath]。[report_name]”无济于事。如果重要，报告名称在名称中包含空格。

Answer 1

创建一个新的Access应用程序会话，打开另一个数据库，并将该会话用作Application.DoCmd方法的主机应用程序。

Dim objAccess As Access.Application
Set objAccess = New Access.Application

objAccess.Visible = True ' <- useful during development
objAccess.OpenCurrentDatabase "C:\wherever\YourDatabase.accdb"
With objAccess.DoCmd
    .OpenReport report_name, acViewPreview
    .OutputTo acOutputReport, report_name, acFormatPDF, dest, False
    .Close acReport, report_name
End With
objAccess.CloseCurrentDatabase
objAccess.Quit
Set objAccess = Nothing