Office中国论坛/Access中国论坛

标题: 窗体查询与查询结果分别在不同的报表打印的例子，请帮忙改改吧！ [打印本页]

作者: 1978 时间: 2009-2-5 13:48
标题: 窗体查询与查询结果分别在不同的报表打印的例子，请帮忙改改吧！
现在做了个数据库，里面有产品（表），产品查询和条件查询窗体，我想通知查询选择不同的结果在不同的报表里打印出来，请问怎么处理？？具体情况附件里有。

作者: ACMAIN_CHM 时间: 2009-2-5 14:08
打印预览代的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 时间: 2009-2-5 14:10
attachment

作者: todaynew 时间: 2009-2-5 14:15
[attach]34831[/attach]

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

作者: asklove 时间: 2009-2-5 15:26
前面　todaynew 设置界面

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

作者: asklove 时间: 2009-2-5 15:34
修改好，看一下是不是你想要的结果
注：[产品]　文本框已绑定

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)