پیغام خطادرجستجوبراساس کدملی

[amirkazem]

باسلام .
برنامه ای داریم که بانک اطلاعاتی آن اکسس می باشد.یکی ازروشهای جستجورابراساس کدملی قرارداده ایم ولی بعدازواردکردن اولین رقم ازکدملی پیغام خطامی دهد.(فایل تصویرضمیمه)
کدمربوط به جستجوهم به شرح ذیل می باشد:

procedure TForm13.Edit1Change(Sender: TObject);begin
if edit1.Text<>'' then
begin
adotable1.Filter:='cod_melli like ''%' + Trim(Edit1.Text) + '%''';
adotable1.Filtered := True;
end;
if edit1.Text='' then
adotable1.Filtered:=false;
end;




procedure TForm13.FormCreate(Sender: TObject);
begin
edit1.Color:=CLYellow;
end;



لطفاًارشادبفرمایید.

[یوسف زالی]

سلام.

باید قبل از true کردن فیلتر، اون رو false کرده و مقدار filter رو ست کنید.
شاید هم نوع فیلد عددی باشه که باید برای این کار از رویداد onfilterrecord استفاده کنید.

[idehrayan]

سلام
من از ادوکوری استفاده کردم امیدوارم مفید باشه



qry1.SQL.Clear;
qry1.SQL.Add('Select * from Table1 where melli_k like "%'+edit1.Text+'%"');
qry1.Active:=true;