查询后打印报表，清除不了报表的筛选条件

AAAA　发表于：2018-07-15 00:05:57 　

查询后打印报表，清除不了报表的筛选条件

采购应支和采购支出两个都是同样的情况
在未查询时可以打印全部所有的记录，如图1
在查询单位名称为天时，如图2。报表打印出来是对的，是对应的记录
但是在清除后，如图3时，再点报表打印就不对了，显示出来的是图4的样子。
报表中多了一个筛选：([单位名称]like'天')

AAAA 发表于：2018-07-15 13:36:22

重新上传附件。

请各位大神帮忙看一下。

伊西军发表于：2018-07-16 08:34:22

建议可以直接修改 Qry_采购应支的SQL语句

仙来发表于：2018-07-16 10:47:18

因你查询后，你的筛选器并没有清空。可改为

Cmd查询_Click
    Dim strWhere As String
    strWhere = Me.Frm_采购支出_List_Child.Form.Filter
   DoCmd.OpenReport "Rpt_采购支出", acViewPreview, , strWhere

AAAA 发表于：2018-07-17 00:00:54

谢谢仙来的回答，不过弄错打印按键了，不是Cmd打印这个键有问题，而是Cmd报表打印这个键出问题。

是这个键有上面所提到的问题。就是查询后，清除不了报表的内容。

仙来发表于：2018-07-17 08:07:02

原理一样，你执行报表是先执行查询。

Private Sub Cmd报表打印_Click()
    On Error GoTo Err_Cmd报表打印_Click
     Cmd查询_Click
    Dim stDocName, strWhere As String

stDocName = "Rpt_采购支出_Qry"
strWhere = Me.Frm_采购支出_List_Child.Form.Filter

DoCmd.OpenReport stDocName, acPreview, , strWhere

Exit_Cmd报表打印_Click:
Exit Sub

Err_Cmd报表打印_Click:
MsgBox Err.Description
Resume Exit_Cmd报表打印_Click

End Sub

AAAA 发表于：2018-07-17 08:54:00

谢谢仙来。

总记录：6篇页次：1/1 9 1 :

Access交流中心