Office中国论坛/Access中国论坛

标题: 选项卡上子窗体的报表问题！ [打印本页]

作者: pwj2009 时间: 2010-1-1 22:35
标题: 选项卡上子窗体的报表问题！
本帖最后由 pwj2009 于 2010-1-2 13:33 编辑

如何设置点击预览。就预览当前选定的子窗体的内容。（根据筛选内容而变）
3个子窗体的内同来源于一个表。.请大家帮帮忙！

作者: pwj2009 时间: 2010-1-2 13:34
本帖最后由 pwj2009 于 2010-1-2 19:53 编辑

请大家帮帮忙啊。。..哎，这么久都米人帮下忙吗。。

作者: goto2008 时间: 2010-1-2 18:25
关注哦

作者: chaojianan 时间: 2010-1-2 20:03
用这个看看
打开"任务栏"报表
Dim str As String
str = "完成日 Is Null and " & Me.事件记录.Form.Filter
DoCmd.OpenReport "任务栏", acViewPreview, , str, acWindowNormal
其他的参考下。

作者: pwj2009 时间: 2010-1-2 22:18
4# chaojianan
会楼上的代码不对啊。有错误，。

作者: chaojianan 时间: 2010-1-3 10:55
我这里没有问题呀，请看附件，请单击任务栏预览按钮。

作者: pwj2009 时间: 2010-1-3 11:25
本帖最后由 pwj2009 于 2010-1-3 11:28 编辑

还是一样的提示不行。我发现了问题了。这个预览只是针对筛选后的。筛选后点击无问题，。但不晒选。一点击就出现上面图片的情况。能弄到，筛选后就预览筛选的内容。不筛选的时候就显示整个子窗体的内内容。。、 6# chaojianan

作者: chaojianan 时间: 2010-1-3 13:18
这个就简单了，根据你的代码可以改为下面的试试。
Private Sub Command71_Click()

Command35_Click
Dim str As String
If 事件记录.Form.FilterOn = True Then
str = "完成日 Is Null and " & Me.事件记录.Form.Filter
Else
str = "完成日 Is Null"
End If

DoCmd.OpenReport "任务栏", acViewPreview, , str, acWindowNormal

End Sub

作者: likaiju 时间: 2010-1-3 13:20
我给你说个方法，报表的内容是可以筛选的，报表的本身源于一个查询，所谓查询就得有查询条件，如果你只需要预览到当前窗体的内容，那么你必须自己搞清楚你当前窗口的查询条件是什么，如果没有条什，你必须建立条件，否则我个人认为是无法达到你的目的的，除非你建立三个报表来达到你的目的，分别用三个按钮去打开你的三个报表

作者: likaiju 时间: 2010-1-3 13:30
另外，在ACCESS中程式码的栏位空值条件表达是：isnull([完成日])，而不是is null[完成日]或:完成日 is null，可能需要注意一下,希望能帮你解决这个问题

作者: pwj2009 时间: 2010-1-3 13:47
多谢chaojianan的帮忙。问题已经解决了。也多谢楼上们的兄弟的解说。谢谢了！

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