Office中国论坛/Access中国论坛

标题: 【已解决】如何创建一个报表能根据子窗体内容打印？ [打印本页]

作者: 紫风 时间: 2012-11-6 12:04
标题: 【已解决】如何创建一个报表能根据子窗体内容打印？
本帖最后由紫风于 2012-11-6 15:44 编辑

请看附件的库，做几个报表太费事，我想只做一个报表，只打印窗体里刷新后的内容。
另外，关于窗体，我想在cbo船代的列表里增加一个 ALL 和无，当cbo船代=ALL时，刷新后显示所有内容；当cbo船代=无时，刷新后只显示船代为空的内容。

请各位帮忙看一下，我也继续尝试中……谢谢各位！

窗体问题已解决，请帮忙看报表如何实现，谢谢！

附件已重新上传，窗体OK了，就差报表了……

作者: Agent 时间: 2012-11-6 13:05
看看!

作者: Agent 时间: 2012-11-6 13:54
我修改了下.看是否你想要的效果!

作者: 紫风 时间: 2012-11-6 14:00
本帖最后由紫风于 2012-11-6 14:02 编辑

Agent 发表于 2012-11-6 13:54
我修改了下.看是否你想要的效果!

谢谢，窗体我自己弄好了，和你这个类似，就差报表了……一做起报表我就头大……

作者: 紫风 时间: 2012-11-6 14:08

admin 发表于 2012-11-6 14:05
你只是按这两个条件查询导出报表吗?

是的，就这两个条件就OK了，谢谢！

作者: Agent 时间: 2012-11-6 14:48

紫风发表于 2012-11-6 14:00
谢谢，窗体我自己弄好了，和你这个类似，就差报表了……一做起报表我就头大……

你看这样可以不?

作者: 紫风 时间: 2012-11-6 14:58

Agent 发表于 2012-11-6 14:48
你看这样可以不?

谢谢AGENT帮忙，不过我要的不是这样的结果。我就是弄了一个中午都是你给这个结果才头痛的……
比方说：
日期：2012-11-01 - 2012-11-09
船代：联代
刷新后只有3条记录，rpt也只要打印刷新出来的这3条记录，别的不要显示在rpt里啊……

作者: Agent 时间: 2012-11-6 15:14

紫风发表于 2012-11-6 14:58
谢谢AGENT帮忙，不过我要的不是这样的结果。我就是弄了一个中午都是你给这个结果才头痛的……
比方说：
...

不好意思,错了一点

作者: 紫风 时间: 2012-11-6 15:38

Agent 发表于 2012-11-6 15:14
不好意思,错了一点

谢谢AGENT!
我也刚刚弄好，代码似乎比你的简单些

代码如下，也提供给有需要的朋友：
Private Sub cmd打印_Click()
Dim rptname As String
rptname = "rpt制单费明细"
DoCmd.OpenReport rptname, acViewPreview, , Me.frm制单费明细报表child.Form.Filter
End Sub

Private Sub cmd刷新_Click()
Me.船代.SetFocus

If Me.船代 Like "全部" Then
      Me.frm制单费明细报表child.Form.Filter = ""
      Me.frm制单费明细报表child.Form.FilterOn = True
ElseIf Me.船代 Like "无" Then
      Dim a As String
      a = ""
      Me.frm制单费明细报表child.Form.Filter = "[船代] = '" & a & "'"
      Me.frm制单费明细报表child.Form.FilterOn = True
Else
      Me.frm制单费明细报表child.Form.Filter = "[船代] like '*" & Me.船代 & "*'"
      Me.frm制单费明细报表child.Form.FilterOn = True
End If
With Me.frm制单费明细报表child
      .SetFocus
      .Requery
End With
End Sub

作者: huangli0356 时间: 2012-11-9 11:21
学习了.

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