如何在文本框中做日期及期间筛选。可能很多网友都遇到这样的问题。就是想筛选的时候可以按年这样的期间，也可以具体的日期。

这个筛选跟我们平时做的筛选没有很大的区别，只是多个条件区分一下即可

动态图：

示例源码：

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