'判断【灌箱日期】条件是否有输入的值,由于有【灌箱日期开始】【灌箱日期截止】两个文本框
'所以要分开来考虑
If Not IsNull(Me.灌箱日期开始) Then
'【灌箱日期开始】有输入
strWhere = strWhere & "([灌箱日期] >= #" & Format(Me.灌箱日期开始, "yyyy-mm-dd") & "#) AND "
End If
If Not IsNull(Me.灌箱日期截止) Then
'【灌箱日期截止】有输入
strWhere = strWhere & "([灌箱日期] <= #" & Format(Me.灌箱日期截止, "yyyy-mm-dd") & "#) AND "
End If