【问题标题】:Trying to customize a report name when I save it as a PDF in Access 2010在 Access 2010 中将报告另存为 PDF 时尝试自定义报告名称
【发布时间】:2012-04-24 23:59:08
【问题描述】:

当我运行以下代码时,我收到错误“需要对象”。我希望能够单击一个按钮,它将保存此文件以及报告上称为 Market_ID 的数字字段,然后报告的名称是 Market Rate Notification Final。报告确实显示了,但我没有得到保存对话框。另外,如果我删除 Report![Market Rate Notification Final].Market_ID + from strReportName 我得到一个保存对话框,其中包含名为 Market Rate Notification Final.pdf 的文件。

Option Compare Database

'------------------------------------------------------------
' Export_MLR
'
'------------------------------------------------------------
Function Export_MLR()
On Error GoTo Export_MLR_Err
    Dim strReportName As String

    strReportName = Report![Market Rate Notification Final].Market_ID + "Market Rate Notification Final"
    DoCmd.OutputTo acOutputReport, strReportName, "PDFFormat(*.pdf)", "", False, "", , acExportQualityScreen


Export_MLR_Exit:
    Exit Function

Export_MLR_Err:
    MsgBox Error$
    Resume Export_MLR_Exit

End Function

【问题讨论】:

  • 将“+”替换为“&”,然后重试。还要检查Report![Market Rate Notification Final].Market_ID是否给出并输出?

标签: ms-access vba report


【解决方案1】:

您不能像这样引用报表控件的内容:

strReportName = _
   Report![Market Rate Notification Final].Market_ID + "Market Rate Notification Final"

各种错误的结果是strReportName为Null。首先是Reports,不是Report,接下来,你不能通过这种方式从一个报表中获取一个控件的值,你会得到报表最后一行的值,连接符是&不是 +,除非你正在做一些非常花哨的事情。

【讨论】:

  • 雷穆,谢谢。我没有意识到“s”,我将 + 更改为 & 然后添加 DoCmd.OpenReport 一切都很好!函数 Export_MLR() On Error GoTo Export_MLR_Err Dim strReportName As String DoCmd.OpenReport "Market Rate Notification Final", acViewPreview strReportName = Reports![Market Rate Notification Final].Market_ID & "Market Rate Notification Final" DoCmd.OutputTo acOutputReport, strReportName, " PDFFormat(*.pdf)", "", False, "", , acExportQualityScreen Export_MLR_Exit: Exit Function Export_MLR_Err: MsgBox Error$ Resume Export_MLR_Exit End Function
猜你喜欢
  • 1970-01-01
  • 2011-12-29
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 2018-02-19
  • 1970-01-01
  • 2013-02-19
相关资源
最近更新 更多