如何在文本框中做日期及期间筛选。可能很多网友都遇到这样的问题。就是想筛选的时候可以按年这样的期间，也可以具体的日期。
这个筛选跟我们平时做的筛选没有很大的区别，只是多个条件区分一下即可
动态图：
示例源码：
Private Sub 合同日期_AfterUpdate()
Dim str As String
str = "True"
If Not IsNull(Me.合同日期) Then
Select Case Len(Me.合同日期)
Case Is > 7
str = str & " AND (合同日期=#" & Me.合同日期 & "#) "
Case 6 To 7
str = str & " AND (format(合同日期,'yyyy/mm')='" & Format(Me.合同日期, "yyyy/mm") & "') "
Case 4
str = str & " AND (year(合同日期)=" & Me.合同日期 & ") "
End Select
End If
Me.订单子窗体.Form.Filter = str
Me.订单子窗体.Form.FilterOn = True
End Sub
