请教高手有关查询窗体的打印问题！

xxj0109

一个关于水分值的查询程序：
总次数：timestring满足起始时间和借助时间范围内的记录数
合格水分：timestring在起始时间和截止时间内，varvalue小于等于水分上线大于等于水分下线的记录数
不合格水分：总次数-合格水分。（即timestring在起始时间和截止时间内，varvalue大于水分上线或者小于水分下线的记录数）

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

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

请高手百忙中帮助一下，我得交差了！  拜托了！

xxj0109

dlookup（），。。。。。。继续等！

xxj0109

都很忙？没人理？

xxj0109

请各位大侠帮帮忙，报表我已经设计好了，要打印的数据是通过查询得到的左下角和右下角的数据。多谢！

Henry D. Sy

http://www.accessbbs.cn/bbs/viewthread.php?tid=9356

xxj0109

谢谢。为什么我的报表每次只是对水分值的上线限进行筛选，而没有同时对时间的起始和截止时间段进行筛选？

xxj0109

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

发部分代码和打印程序。。。。。。

xxj0109

sorry，Frame54 =2和3是复制的，有明显错误

xxj0109

谢谢各位版主，问题解决了！祝各位愉快！