一个筛选相近数据的问题

xyh2732

想了一个星期，问了几天都还没有一个较好的答案。在次请教老师如何在日期上输入日期，系统筛选出小于他的最相近日期。比如。我在日期上填写2010-8-14，系统根据我填写的日去筛选出小于他二最相近的2010-8-9日如此类推。谢谢大家的帮忙！

koutx

把下示代码粘贴到你的窗体VBA代码中，运行后就知道了：
Private Sub 日期_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = 13 Then
    Dim a As Variant
    a = DMax("登记日期", "请款单结余", "登记日期 <> #" & Me.日期 & "#")
    MsgBox a
End If
End Sub

xyh2732

回复 koutx 的帖子


谢谢你的帮忙，筛选子子窗体没有筛选啊？

ui

将条件设置给子窗体的Filter属性

koutx

回复


谢谢你的帮忙，筛选子子窗体没有筛选啊？
xyh2732 发表于 2010-8-18 22:46

那应该是你自己要作的了。