根据日期起止进行模糊查询

在标准模块中写入下列函数，再在“查询内容”变更事件中调用。如：

Sub subCX(objWinName As Object, Optional objTxtName As Object, _
          Optional strStartDate As String, Optional strEndDate As String)
Dim strWhere As String
Dim ctl As Control
Dim ctlname As String

objTxtName.SetFocus
strWhere = Trim$(objTxtName.Text)
If strWhere = "" Then
    strWhere = True
  Else
    For Each ctl In objWinName.Form.Controls
        If TypeOf ctl Is TextBox Then
             ctlname = ctlname & "[" & ctl.Name & "] & "
        End If
    Next
    ctlname = Left(ctlname, Len(ctlname) - 3)
    strWhere = "" & ctlname & "  like  '*" & strWhere & "*'"
End If
 If Nz(strStartDate, "") <> "" Then
    strWhere = "(" & strWhere & ") and  外出日期 >=#" & strStartDate & "#"
End If
If Nz(strEndDate, "") <> "" Then
    strWhere = "(" & strWhere & ") and  外出日期 <=#" & strEndDate & "#"
End If
objWinName.Form.Filter = strWhere
objWinName.Form.FilterOn = True
End Sub

调用时的事件函数：

Private Sub 查询内容_Change()
            subCX Me.Child1, Me.查询内容, Nz(Me.开始日期, ""), Nz(Me.结束日期, "")
End Sub