If Not IsNull(Me.c5) Then
strWhere = strWhere & "([c5] >= #" & Me.c5 & "# AND "
End If
If Not IsNull(Me.c9) Then
strWhere = strWhere & "([c9] <= #" & Me.c9 & "# AND "
End If
If Len(strWhere) > 0 Then
strWhere = Left(strWhere, Len(strWhere) - 5)
End If