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

ysh5858

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

daxin1

这个例子能否写一个循环变量来简化代码呢？

ysh5858

Henry D. Sy 发表于 2011-12-19 22:36
没注意到你还有一个选项组
更正一下！！

辛苦Henry D. Sy 版主了！非常感谢！

Henry D. Sy

没注意到你还有一个选项组
更正一下！！

Henry D. Sy

1. 最后一个问题详见附件
   

复制代码

Henry D. Sy

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

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

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

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

复制代码

Henry D. Sy

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

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

复制代码