通过日期查人员状态

123shusheng

表Sheet1内是张三、李四两个人的简单简历，我希望在窗体1，日期框内输入日期，只显示据此日期最近的那条记录，比如输入2009-08-01，那么，只显示：
5    张三   工作    2006-09-01
10   李四   工作    2006-03-01


如果输入2002-04-06，那么，只显示：
3   张三    高中    1999-09-01
9   李四    大学    2002-03-01

shitou1ge

学习中

Henry D. Sy

人员应该有一个人员表，每个人有一个id，这样就不会存在着重名的问题。

123shusheng

非常感谢Henry D. Sy 版主的回复,完全满足要求,我在实验中发现,还有一个小问题,就是如果单位里姓名重复了,就无法查出了,所以还必须加入一个条件,"部门",我对我的例子进行了修改,请高手再帮我改改,谢谢!

asklove

学习一下

Henry D. Sy

1. 随便做个查询称为 “结果”
2
Private Sub Command4_Click()
    Dim qdf As DAO.QueryDef
    Dim strSQL As String
    If Not IsNull(Me.Text2) Then
        strSQL = _
        "select * from sheet1 where id in (select distinct myid from (SELECT a.姓名, a.开始日期, (select top 1 b.id from sheet1 b where b.姓名=a.姓名 and b.开始日期<=#" _
               & Me.Text2 & "# order by b.开始日期 desc) as myId FROM Sheet1 AS a))"
        Set qdf = CurrentDb.QueryDefs("结果")
        qdf.SQL = strSQL
        Me.She.SourceObject = "查询.结果"
        qdf.Close
        Set qdf = Nothing
    End If
End Sub

Henry D. Sy

子查询

select *
from sheet1
where id in (select distinct myid from (SELECT a.姓名, a.开始日期,
(select top 1 b.id from sheet1 b where b.姓名=a.姓名 and b.开始日期<=#2002/3/1# order by b.开始日期 desc) as myId
from sheet1 AS a))

asklove

不知道你的日期取值范围。这里是输入日期的年-3和年+1范围，如果月份要设定范围也是一样

可在你的 Sheet1 查询 WHERE 修改成以下
WHERE Year([开始日期]) Between Year(Forms!窗体1!Text2)-3 And Year(Forms!窗体1!Text2)+1