[Pumasin]

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





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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

//ПОИСК // 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;

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