Office中国论坛/Access中国论坛

标题: 关于报表筛选的问题 [打印本页]

作者: huangwl 时间: 2004-1-13 22:03
标题: 关于报表筛选的问题
请问从窗体中打印报表，如何对报表进行需要的筛选。
如窗体中录入一张工资单，在窗口中添加了一个打印按钮。
该如何编写，可以只打印对应的工资单报表，　窗体和报表间通过“工资单号”对应。

　　docmd.openreport该如何写??

作者: huangwl 时间: 2004-1-13 22:16
参考
http://www.office-cn.net/bbs/dispbbs.asp?BoardID=2&replyID=69817&id=14142&skin=0
解决了

作者: garyshang 时间: 2007-10-15 11:04
又删除了？

作者: nxjswt 时间: 2007-10-17 12:54
也可以这样，
1、模糊查询

'查询语句
Me.Refresh
Dim strWhere As String
strWhere = ""

   If IsNull(Me.Text0) Then
      MsgBox "请输入要查询的公司的简称！", vbExclamation, "警告！"
End If

If Not IsNull(Me.Text0) Then
      strWhere = strWhere & "([F3] like '*" & Me.Text0 & "*') AND "
End If


'==========================================================
If Len(strWhere) > 0 Then
      strWhere = Left(strWhere, Len(strWhere) - 5)
End If

Me.all1.Form.FilterOn = True
Me.all1.Form.Filter = strWhere

2、 '下面这些控件的值要清空
Me.Text0 = Null

Me.all1.Form.FilterOn = False

3、 '预览窗体查询结果

If IsNull(Me.Text0) Then
   MsgBox "您还没有进行查询！", vbExclamation, "警告"
   Else
Me.Refresh
DoCmd.OpenReport "mylike", acPreview, , Me.all1.Form.Filter
End If

4、'打印窗体查询结果
If IsNull(Me.Text0) Then
   MsgBox "您还没有进行查询！", vbExclamation, "警告"
   Else
MsgBox "请确认打印机的电源已开启及纸张是否足够", vbExclamation, "警告！"
Me.Refresh
DoCmd.OpenReport "mylike", acViewNormal, , Me.all1.Form.Filter
End If

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