Office中国论坛/Access中国论坛

标题: 请教高手有关查询窗体的打印问题！ [打印本页]

作者: xxj0109 时间: 2009-3-27 13:51
标题: 请教高手有关查询窗体的打印问题！
[attach]36966[/attach]一个关于水分值的查询程序：
总次数：timestring满足起始时间和借助时间范围内的记录数
合格水分：timestring在起始时间和截止时间内，varvalue小于等于水分上线大于等于水分下线的记录数
不合格水分：总次数-合格水分。（即timestring在起始时间和截止时间内，varvalue大于水分上线或者小于水分下线的记录数）

我已完成了大部分程序。只是关于打印程序做了几天都没有通过。请各位大侠帮我看一下这个打印程序。（打印合格表，不合格表、汇总表三种）。

另外，我在tblsjyb表里添加了水分上线和水分下线，希望在做查询时，当选择表时，能在水分上线和水分下线文本框里显示相应的值，该值也可以在文本框里进行修改。应该怎么做呢？我查一下，好像用dloopup，可是有些不会用。

请高手百忙中帮助一下，我得交差了！拜托了！[attach]36966[/attach]

作者: xxj0109 时间: 2009-3-27 16:15
dlookup（），。。。。。。继续等！

作者: xxj0109 时间: 2009-3-28 14:24
都很忙？没人理？

作者: xxj0109 时间: 2009-3-28 14:40
请各位大侠帮帮忙，报表我已经设计好了，要打印的数据是通过查询得到的左下角和右下角的数据。多谢！

作者: Henry D. Sy 时间: 2009-3-28 14:45
http://www.accessbbs.cn/bbs/viewthread.php?tid=9356

作者: xxj0109 时间: 2009-3-28 15:38
谢谢。为什么我的报表每次只是对水分值的上线限进行筛选，而没有同时对时间的起始和截止时间段进行筛选？

作者: xxj0109 时间: 2009-3-28 15:59
Private Sub Com1()
  Dim strWhere As String
strWhere = ""
   If Not IsNull(Me.水分上线) Then strWhere = strWhere & "([VarValue] <= " & Me.水分上线 & ") AND "
   If Not IsNull(Me.水分下线) Then strWhere = strWhere & "([VarValue] >= " & Me.水分下线 & ") AND "
      If Len(strWhere) > 0 Then
      strWhere = Left(strWhere, Len(strWhere) - 5)
End If
   Me.水分.Form.Filter = strWhere
Me.水分.Form.FilterOn = True
End Sub

Private Sub Com2()
Dim str2 As String
      str2 = ""
If Not IsNull(Me.水分上线) Then str2 = str2 & "([VarValue] > " & Me.水分上线 & ") OR "
If Not IsNull(Me.水分下线) Then str2 = str2 & "([VarValue] < " & Me.水分下线 & ") OR "
If Len(str2) > 0 Then
      str2 = Left(str2, Len(str2) - 4)
   End If
Me.不合格水分.Form.Filter = str2
Me.不合格水分.Form.FilterOn = True
End Sub

Private Sub Command14_Click()
Me.起始时间 = Null
Me.截止时间 = Null
Me.水分上线 = Null
Me.水分下线 = Null
Call Com1
Call Com2
Me.水分.Requery
Me.不合格水分.Requery

Me.起始时间.SetFocus
End Sub

Private Sub Command73_Click()
Frame54 = 1
Dim stDocName, strWhere  As String
stDocName = "水分合格表"
strWhere = Me.水分.Form.Filter

DoCmd.OpenReport stDocName, acPreview, , strWhere
Frame54 = 2
Dim stDocName, strWhere  As String
stDocName = "水分不合格表"
strWhere = Me.水分.Form.Filter
DoCmd.OpenReport stDocName, acPreview, , strWhere
  Frame54 = 3
Dim stDocName, strWhere  As String
stDocName = "水分汇总表"
strWhere = Me.水分.Form.Filter
DoCmd.OpenReport stDocName, acPreview, , strWhere
Exit_Command73_Click:
Exit Sub
Err_Command73_Click:
MsgBox Err.Description
Resume Exit_Command73_Click

作者: xxj0109 时间: 2009-3-28 16:00
发部分代码和打印程序。。。。。。

作者: xxj0109 时间: 2009-3-28 16:51
sorry，Frame54 =2和3是复制的，有明显错误

作者: xxj0109 时间: 2009-3-30 17:02
谢谢各位版主，问题解决了！祝各位愉快！

作者: playonthesun 时间: 2009-5-18 13:26
关注

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