请版主帮忙完善一下代码实现我想要的功能，谢谢！

ysh5858

请版主帮忙完善一下代码实现我想要的功能[见图片说明]，谢谢！

ysh5858

Henry D. Sy 版主：请帮帮忙呀！谢谢！

roych

日期包含了月份，因此只需要日期即可，这样会更方便处理，否则得多写一个筛选字段。
此外，草草看了下里面的统计字段，由于里面没有把条件加上去。因此，需要一个公共变量进行把筛选条件进行返回。晚些再看看，先睡觉~~~

Henry D. Sy

ysh5858 发表于 2011-12-18 17:19
Henry D. Sy 版主：请帮帮忙呀！谢谢！

呜啊，这么都问题，
能不能一个一个来

Henry D. Sy

问题3：按roych说的，把月份去掉
如果想要查询月份，比如11月份的，可以输入2011-11-1至2011-11-30来查询！
另外，编程日期没有必要format为文本
更改如下：

1. Private Sub 查询_Click()
   
2.     Dim sLookFor As String
   
3.     sLookFor = ""
   
4.     If 模具编号 <> "" Then
   
5.         sLookFor = sLookFor & "模具编号='" & 模具编号 & "' and "
   
6.     End If
   
7.     If 零件编号 <> "" Then
   
8.         sLookFor = sLookFor & "零件编号='" & 零件编号 & "' and "
   
9.     End If
   
10.     If 零件名称 <> "" Then
    
11.         sLookFor = sLookFor & "零件名称='" & 零件名称 & "' and "
    
12.     End If
    
13.     If 加工类别 <> "" Then
    
14.         sLookFor = sLookFor & "类别='" & 加工类别 & "' and "
    
15.     End If
    
16.     If 编程员 <> "" Then
    
17.         sLookFor = sLookFor & "编程员='" & 编程员 & "' and "
    
18.     End If
    
19.     If 操作员 <> "" Then
    
20.         sLookFor = sLookFor & "操作员='" & 操作员 & "' and "
    
21.     End If
    
22.     If 机台号 <> "" Then
    
23.         sLookFor = sLookFor & "机台号='" & 机台号 & "' and "
    
24.     End If
    
25. 
    
26.     If Not IsNull(Me.完成日期1) Then
    
27.         sLookFor = sLookFor & "([完成加工时间] >= #" & Format(Me.完成日期1, "yyyy-mm-dd") & "#) AND "
    
28.     End If
    
29.     If Not IsNull(Me.完成日期2) Then
    
30.         sLookFor = sLookFor & "([完成加工时间] <= #" & Format(Me.完成日期2, "yyyy-mm-dd") & "#) AND "
    
31.     End If
    
32. 
    
33.     If 编程日期1 <> "" Then
    
34.         sLookFor = sLookFor & "([编程完成日期] >= #" & Me.编程日期1 & "#) AND "
    
35.     End If
    
36.     If 编程日期2 <> "" Then
    
37.         sLookFor = sLookFor & "([编程完成日期] <= #" & Me.编程日期2 & "#) AND "
    
38.     End If
    
39. 
    
40.     If sLookFor <> "" Then
    
41.         sLookFor = Mid(sLookFor, 1, Len(sLookFor) - 5)
    
42. 
    
43.         Me.加工信息综合查询_子窗体.Form.Filter = sLookFor
    
44.         Me.加工信息综合查询_子窗体.Form.FilterOn = True
    
45.     Else
    
46.         MsgBox "请输入要查找的对象"
    
47.     End If
    
48. End Sub

复制代码

Henry D. Sy

问题2：
参照cuxun大肚对日期为null的处理方式：
函数稍微更改一下
应用:
实际工时: gongshi(nz([开始加工时间],0),nz([完成加工时间],0),"M")/60

1. Public Function GongShi(TimeStart As Date, TimeEnd As Date, Optional MH As String = "M") As Integer
   
2. 
   
3.     Dim i As Integer
   
4.     If MH = "H" Then
   
5.         i = 24
   
6.     Else
   
7.         i = 1440
   
8.     End If
   
9.      If TimeStart = 0 Or TimeEnd = 0 Then
   
10.         GongShi = 0
    
11.     ElseIf Nz(TimeEnd) < Nz(TimeStart) Then
    
12.         GongShi = (Nz(TimeEnd) - Nz(TimeStart) + 1) * i
    
13.     Else
    
14.         GongShi = (Nz(TimeEnd) - Nz(TimeStart)) * i
    
15.     End If
    
16. 
    
17. End Function

复制代码

Henry D. Sy

问题1，问题4
下回待续，暂时有事！

Henry D. Sy

问题4-1打印报表
根据子窗体的记录源建立报表A
然后：

1. Private Sub 打印报表_Click()
   
2.     DoCmd.OpenReport "A", acViewPreview, , Me.加工信息综合查询_子窗体.Form.Filter
   
3. End Sub
   

复制代码

Henry D. Sy

问题4-2导出excel
随便建立一个查询，比如A
然后：

1. Private Sub 导出Excel_Click()
   
2.     Dim qdf As DAO.QueryDef
   
3.     Dim Criteria As String
   
4.     Dim sSQL As String
   
5.     sSQL = "SELECT 工序ID, 模具编号, 零件编号, 零件名称, 类别, 数量,估工,需求日期,编程员,编程完成日期,机台号,操作员, 开始加工时间, 完成加工时间,完成数量,工时,金额,状态,备注说明 FROM 加工信息综合查询"
   
6.     Criteria = Me.加工信息综合查询_子窗体.Form.Filter
   
7.     If Criteria <> "" Then
   
8.         sSQL = sSQL & " where " & Criteria
   
9.     End If
   
10.     Set qdf = CurrentDb.QueryDefs("A")
    
11.     qdf.SQL = sSQL
    
12.     DoCmd.OutputTo acOutputQuery, "A", acFormatXLS, , True
    
13.     qdf.Close
    
14.     Set qdf = Nothing
    
15. End Sub

复制代码

Henry D. Sy

最后一个问题，也就是问题1=吃饭去！