If Not IsNull(Me.起算日期1) Then
strWhere = strWhere & "([起算日期] >= #" & Format(Me.起算日期1, "yyyy-mm-dd") & "#) AND "
End If
If Not IsNull(Me.起算日期2) Then
strWhere = strWhere & "([起算日期] <= #" & Format(Me.起算日期2, "yyyy-mm-dd") & "#) AND "
End If
If Not IsNull(Me.截止日期1) Then
strWhere = strWhere & "([截止日期] >= #" & Format(Me.截止日期1, "yyyy-mm-dd") & "#) AND "
End If
If Not IsNull(Me.截止日期2) Then
strWhere = strWhere & "([截止日期] <= #" & Format(Me.截止日期2, "yyyy-mm-dd") & "#) AND "
End If