窗体查询与查询结果分别在不同的报表打印的例子，请帮忙改改吧！

1978

现在做了个数据库，里面有产品（表），产品查询和条件查询窗体，我想通知查询选择不同的结果在不同的报表里打印出来，请问怎么处理？？具体情况附件里有。

ACMAIN_CHM

打印预览代的onclick事件码如下

Option Compare Database
Option Explicit

Private Sub Command21_Click()
   
    If IsNull(Me.[产品 查询 子窗体].Form.[检验结果].Value) Then
        Exit Sub
    End If

    Dim sReportName As String
    Select Case Trim(Me.[产品 查询 子窗体].Form.[检验结果].Value)
        Case "合格"
            sReportName = "合格"
        Case Else
            sReportName = "不合格"
    End Select
   
    DoCmd.OpenReport sReportName, acViewPreview, "产品编号='" & Me.[产品 查询 子窗体].Form.[产品编号].Value & "'"
   

End Sub



******************
*  一切皆有可能  *
******************

QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/SList/Access .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

ACMAIN_CHM

attachment

todaynew

asklove

看了一下你的二个报表，除了标题不同，下面的内容一样
你可以只建一个报表　标题改为文本框　="贵州XXX公司检验" & Forms!产品!检验结果 & "通知单"
根据你[产品]窗体中的[检验结果]文本框来返回报表标题　“合格”　“不合格”
报表内容就是你[产品]窗体中所查询的内容

asklove

前面　todaynew 设置界面

筛选：[检验结果]=Forms!产品!检验结果

asklove

修改好，看一下是不是你想要的结果
注：[产品]　文本框已绑定