Отсеивание параметров формы по критериям

Добрый день.
Нужна помощь в реализации небольшого модуля.
в двух полях записываются значения (типа от и до) потом по определенному критерию
нужно тчо бы отсеивались записи в таблице, у меня они пока что только становятся
выделенны красным цветом и подчеркнуты =))) Не подскажеет чт омне нужно в коде дописать,
что бы все записи крмое Нужных мне были не видны на форме.. (но при этом не удалились)??
Вот код моего модуля (где-то позаимствовал):
Private Sub tglFormat_Click()
Dim fcd As FormatCondition
Dim txt As TextBox
Dim strValue1 As String
Dim strValue2 As String


Select Case fraCondition
Case ctOrderDate
Set txt = txtOrderDate
txtQuantity.FormatConditions.Delete
strValue1 = _
"#" & Format(txtValue1, "mm-dd-yyyy") & "#"
strValue2 = _
"#" & Format(txtValue2, "mm-dd-yyyy") & "#"
Case cttxtQuantity
Set txt = txtQuantity
txtOrderDate.FormatConditions.Delete
strValue1 = txtValue1 & ""
strValue2 = txtValue2 & ""
End Select
With txt.FormatConditions
' Delete the conditions, no matter what. Only create
' a new condition if you've selected the toggle button.
.Delete
If tglFormat Then
Set fcd = .Add(acFieldValue, cboConditions, strValue1, strValue2)
fcd.ForeColor = vbRed
fcd.FontUnderline = True
fcd.Enabled = True
End If
End With
End Sub

Private Sub EnableFormat(strValue1 As String, strValue2 As String)
Dim blnEnableIt As Boolean
Select Case fraCondition
Case ctOrderDate
blnEnableIt = IsDate(strValue1)
If txtValue2.Visible Then
blnEnableIt = blnEnableIt And IsDate(strValue2)
End If
Case cttxtQuantity
blnEnableIt = IsNumeric(strValue1)
If txtValue2.Visible Then
blnEnableIt = blnEnableIt And IsNumeric(strValue2)

End If
End Select
tglFormat.Enabled = blnEnableIt
End Sub


Сори еот еще кусочек (от кнопки)

kenshiny,

Не знаю, что вы тут мострячите с условным форматированием, но такие вещи решаются запросом с соответствующим where, который становится источником данных формы. см. по форуму фильтрация, фильтр в форме, автофильтр и т.д.
к примеру:

me.recordsource = "select * from tabla where data1 >= #" & Format(дата1, "mm-dd-yyyy") & "# _ "
& " and data2 <= #" & Format(дата2, "mm-dd-yyyy") & "# "

тьфу!

me.recordsource = "select * from tabla where data1 >= #" & Format(дата1, "mm\/dd\/yy") & "# " _
& " and data2 <= #" & Format(дата2, "mm\/dd\/yy") & "# "

alvk,
Пасибо большое, попробую так