[Cranberry]

Пишу исследовательскую, не могу создать повторный поиск по дате на той же форме. Вот текст:

Код:

procedure TForm1.ADOTable1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
{if ADOTable1.Filtered then
  begin
  Accept:= (DataSet.FieldByName('Дата').AsDateTime >=
  Form1.DateTimePicker1.Date) and
  (DataSet.FieldByName('Дата').AsDateTime <= Form1.DateTimePicker2.Date);
  end
else
Accept:=true;
end;

Админ: Пользуемся тегами для оформления кода!

Изобретение не мое - нашла на этом форуме, но ссылку дать не могу.
Работает хорошо, но только один раз, а потом не обновляем данные. Я в этом полный нуб. Помогите, пожалуйста!!!