ACCESS如何查询订单查询详表中字段为空值的记录

yzc2011

原来的查询代码都删除了，原来查询代码应该如何加上呢，不能有了这个功能把另一个功能弄没了。能再麻烦你一下吗。

yzc2011

这个空值查询与原来的查询能不能合一起使用。如能合一起的话，帮忙看一下这两段代码如何结合。我把两段代码都放进去后，总是只能运行空值的代码。如不能合在一起使用，那就另外新建一个空值查询按键好了。谢谢你。

Henry D. Sy

yzc2011 发表于 2017-3-22 17:39
这个空值查询与原来的查询能不能合一起使用。如能合一起的话，帮忙看一下这两段代码如何结合。我把两段代码 ...

订单管理0320.rar (58.07 KB, 下载次数: 65)

2017-3-22 19:40 上传

点击文件名下载附件
下载积分: 金钱 -1 点

yzc2011

谢谢

yzc2011

打印有点问题。
如何把空值查询的结果传到报表中打印。同时不影响原打印功能。
原打印代码：
Private Sub 订单查询预览打印_Click()
    On Error GoTo Err_订单查询预览打印_Click

    Dim stDocName, strWhere As String

    stDocName = "订单查询打印"
    strWhere = Me.订单查询详表.Form.Filter

    '在打开报表的同时把子窗体的筛选条件字符串也传递给报表，
    '这样地话报表也会显示和子窗体相同的记录。
    DoCmd.OpenReport stDocName, acPreview, , strWhere
   
Exit_订单查询预览打印_Click:
    Exit Sub

Err_订单查询预览打印_Click:
    MsgBox Err.Description
    Resume Exit_订单查询预览打印_Click

yzc2011

打印有点问题
如何把空值查询的结果传到报表中打印。同时不影响原打印功能。

原打印代码：
Private Sub 订单查询预览打印_Click()
    On Error GoTo Err_订单查询预览打印_Click
    Dim stDocName, strWhere As String
    stDocName = "订单查询打印"
    strWhere = Me.订单查询详表.Form.Filter
    '在打开报表的同时把子窗体的筛选条件字符串也传递给报表，
    '这样地话报表也会显示和子窗体相同的记录。
    DoCmd.OpenReport stDocName, acPreview, , strWhere
   
Exit_订单查询预览打印_Click:
    Exit Sub
Err_订单查询预览打印_Click:
    MsgBox Err.Description
    Resume Exit_订单查询预览打印_Click
End Sub