请教一个追加查询的问题

lazybird

请教一个追加查询的问题。两个按员工号排列的登录时间和退出时间表格，现想通过追加查询将两个时间汇总到一张表。追加的时候除了判断员工号一致外还须判断下列两个条件：
1.  退出时间必须大于登录时间。
2.  退出时间大于多次登录时间时必须追加到最接近的那一条记录。例如：登录时间有 3-15,4-15两条记录，退出时间为6-15，则只追加到4-15这一行。

（抱歉网络问题上传不了附件）下面为示例查询结果。

员工号        登录时间               退出时间
1001        6/15/2011       
1001        3/15/2011        4/15/2011
1001        4/15/2011        5/15/2011
1002        3/15/2011       
1002        4/15/2011        5/15/2011
1003        6/15/2011       

Henry D. Sy

那就等传来附件再说！

lazybird

这是附件，版主有空帮忙看看

lazybird

自己顶下

Henry D. Sy

表中数据会不会出现最小的退出时间小于最小的登陆时间？

Henry D. Sy

如果结果是0:00:00说明还没有退出

1. Public Function gDATE(id As String, myDate As Date) As Date
   
2.     Dim strSQL As String
   
3.     Dim rs As New ADODB.Recordset
   
4.     On Error GoTo gDATE_Error
   
5. 
   
6.     strSQL = "select 退出时间 from 退出时间 where 工号='" & id & "' And 退出时间>#" & myDate _
   
7.              & "# order by 退出时间"
   
8.     rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
   
9.     gDATE = rs.Fields(0)
   
10.     rs.Close
    
11.     Set rs = Nothing
    
12. 
    
13.     On Error GoTo 0
    
14.     Exit Function
    
15. 
    
16. gDATE_Error:
    
17. 
    
18.     MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
    
19. End Function
    

复制代码

1. SELECT 时间汇总.工号, 时间汇总.登录时间, gDATE([工号],[登录时间]) AS 退出时间
   
2. FROM 时间汇总

复制代码

自己看看对不对，我没有核对！

lazybird

不符合追加条件的话就不追加， 例如表中数据出现最小的退出时间小于最小的登陆时间， 或者出现最大退出时间小于最大的登陆时间。 版主，我运行了一下你的附件，出现 "Error 430 (Class does not support Automation or does not support expected interface)"