MS.Access - 在 DoCmd.OpenReport [where 条件] 中有 2 个过滤条件的表单中的 VBA 打印报告

问题描述

我试图在不打开报告的情况下从表单打印批次 ID 数据表。 使用下面的代码，我可以打开只显示我想要的数据的报告

Private Sub PrntbLblV1_Click()   
Dim str As String
str = "[BatchID] = " & Me.BatchID
DoCmd.OpenReport "RprtLblPrint",acViewPreview,str
DoEvents
End Sub

这会在打印预览中打开我想要的记录...但是我只想将记录发送到打印机...我已经尝试过

 DoCmd.OpenReport "RprtLblPrint",acnormal,str
    DoCmd.runcommand acCmdPrint
   DoEvents

但它打印每个批处理事务而不仅仅是当前的...我认为问题是我在报告属性中有一个进一步的过滤器，可以过滤加载以删除已完成的事务 [Complete] = False 这是一个真/假复选框.. 我似乎无法将已完成的和批处理标准嵌套到 DoCmd.OpenReport 的 where 部分中 它不断抛出类型不匹配错误

str = "[BatchID] = " & Me.BatchID And [Complete] = False

我试过把它分开

Dim str As String
Dim Cmplt As String
str = "[BatchID] = " & Me.BatchID
Cmplt = [Complete] = False
    DoCmd.OpenReport "RprtLblPrint",str And Cmplt
    DoCmd.runcommand acCmdPrint

关于如何将 2 个过滤条件加入 DoCmd.OpenReport where 条件有什么建议吗？？

解决方法

它需要是过滤器字符串的一部分，如：

str = "[BatchID] = " & Me.BatchID & " And [Complete] = False"