'判断【日期】条件是否有输入的值,由于有【日期开始】【日期截止】两个文本框
'所以要分开来考虑
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