MS Access 2013 VBA 自动取消 OutputTo（错误 2501）

Question

我正在尝试配置一个功能，该功能将根据用户输入他们想要的报告类型和他们想要保存的文件路径自动为用户生成一个 pdf 文件夹。 一些注意事项：

• 它通常用于根据查询生成约 100 个 pdf 报告 从链接的后端数据库表中提取数据。
• CReport 是数据库中以编程方式分配的报告名称
• CPath 是使用文件对话框选择的文件夹
• 如果代码循环中的 OutputTo 行被注释掉（不幸的是这就是重点）

错误 2501 出现在 2-76 次循环重复中，很少出现在同一点 两次。偶尔，整个事情都会运行，但我无法交出 只是偶尔运行的东西。 -

• 在 Windows 7 上使用 Access 2013。
• 我已经尝试重建函数、重建表单、反编译、压缩和修复，在输出报告后添加 2 秒延迟并更改我放置关闭报告命令的位置。

当前代码：

Sub RunThatReport(CReport As String, CPath As String)
    'dimension variables
    Dim dbs1 As Database, rst As Recordset
    Dim Can8 As Double, vend As String
    Dim Location As String, CFilePath As String
    'create a filename
    Select Case CReport
        Case "rpt_Form-1"
            Location = "_Form-1.pdf"
            DoCmd.OutputTo acOutputReport, "rpt_all_lines", acFormatPDF, CPath & "\Lines Required.pdf", False
        Case "rpt_Form-2"
            Location = "_Form-2.pdf"
        Case "rpt_Form-3"
            Location = "_Form-3.pdf"
        Case Else
            Exit Sub
    End Select
    'Get the AN8 of all lines
    Set dbs1 = CurrentDb
    Set rst = dbs1.OpenRecordset("tbl_all_lines_to_run", dbOpenDynaset)
    rst.MoveFirst
    'loop through the lines
    Do While Not rst.EOF
        If Not IsNull(rst!AN8) Then
            Can8 = rst!AN8 'I know this assignment is not actually necessary
            vend = Replace(Replace(Replace(Trim(rst!Name), "/", "-"), "\", "-"), ".", "")
            'CFilePath = CPath & "\" & vend & Location
            CFilePath = CPath & "\" & Can8 & Location
            Debug.Print vend & ": " & Can8 & " " & CFilePath 'This is my check to look at what was getting hung up
            DoCmd.OpenReport CReport, acViewReport, , "ABAN8 =" & rst!AN8 'open report only for that line type
            DoCmd.OutputTo acOutputReport, CReport, acFormatPDF, CFilePath, False
            'DoCmd.Close acReport, CReport, acSaveNo
            'waiting (2) 'This was my delay function
        End If
        rst.MoveNext
    Loop
    rst.Close
    Set rst = Nothing
    dbs1.Close
    DoCmd.Close acReport, CReport, acSaveNo
End Sub

Answer 1

它工作了多年，但在更改为 access365 后，它显示了这个问题。在运行命令“docmd.outputto”之前跳过“docmd.openreport”行的解决方案 显示了正确的结果。