[Pumasin]

Сделал поиск по базе данных DBgrid (БД а аксесе) путем ввода в edit'ы слова которое нужно найти. Столбцы по которым идет поиск называются "ПІБ" "Стать" "Вид роботи". По edit'у 1 и 2 поиск происходит нормально, все ищет и показывает в базе, пишу код на edit3 при поиске в нем выдает ошибку:





Ребята помогите исправить ошибку, не пойму в чем ее причина отказа работы 3 edit'а, код правильный, первые 2 на нем нормально ищут..

Код:

//ПОИСК //
procedure TForm3.Edit1Change(Sender: TObject);
begin
if (edit1.text<>'') then
begin
BD.Filter:='(ПІБ LIKE '''+edit1.Text+'%'')';
BD.Filtered:=true;

end
else
BD.Filtered:=false;

end;

procedure TForm3.Edit2Change(Sender: TObject);
begin
if (edit2.text<>'') then
begin
BD.Filter:='(Стать LIKE '''+edit2.Text+'%'')';
BD.Filtered:=true;

end
else
BD.Filtered:=false;
end;

procedure TForm3.Edit3Change(Sender: TObject);
begin
if (edit3.text<>'') then
begin
BD.Filter:='(Вид роботи LIKE '''+edit3.Text+'%'')';
BD.Filtered:=true;

end
else
BD.Filtered:=false;
end;

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