3

我的问题是关于我必须将访问报告打印到 PDF 文件的代码。我需要为每个组提供单独的 PDF，以便我可以向每个组发送他们的销售额，并且只发送他们的销售额。该报告打印出每件售出的物品和销售的详细信息。我的代码有效，但是在第 10 个分组后它停止并给我错误代码 3048：无法打开更多数据库。我在另一个线程上读到访问限制为 2048 个引用，但是我的数据集并不是那么大。我的代码如下（我已经标记了我的报告名称 REPORT 和组标识符 GROUP，我的 QUERY 从 2 个表中提取）：

Private Sub Report_Click()

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim MyFileName As String
    Dim mypath As String
    Dim temp As String


    mypath = "PATH\Access PDF Testing\"

    Set db = CurrentDb()

    Set rs = db.OpenRecordset("SELECT [GROUP] FROM [QUERY]", dbOpenSnapshot)

    Do While Not rs.EOF

        temp = rs("GROUP")
        MyFileName = rs("GROUP") & ".PDF"

        DoCmd.OpenReport "REPORT", acViewReport, , "[GROUP]='" & temp & "'"
        DoCmd.OutputTo acOutputReport, "", acFormatPDF, mypath & MyFileName
        DoCmd.Close acReport, "REPORT"
        DoEvents

        rs.MoveNext
    Loop


    rs.Close
    Set rs = Nothing
    Set db = Nothing

End Sub

它可以工作，但是在将 10 个组打印到 PDF 后，它会失败。我尝试只运行名称中没有特殊字符的组，结果是强制分页符，但没有任何东西可以超过第 10 组记录。每个组内大约有 10-20 行。关于我可以做些什么不同的事情，任何人都可以提供任何见解吗？

4

1 回答 1

0

您说“每个组中大约有 10-20 行”。但是，您的 OpenRecordset 没有distinct子句，这意味着它将每条记录都拉出 REPORT。也许您实际上打开导出每个报告 10-20 次，而不仅仅是一次？

尝试：

Set rs = db.OpenRecordset("SELECT distinct [GROUP] FROM [REPORT]", dbOpenSnapshot)

（如果这按我认为的方式工作，您将被放回 2048 限制之下，并且运行速度会更快。但它仍然无法向我解释为什么该限制甚至是一个问题，因为您正在关闭每个报告在你成功之后）

于 2013-05-28T21:35:09.857 回答