مشكله في الفلتر في جدول الاكسس ado

[shagrouni]

الإجرائية، حسب الكود الذي أرفقته بعد التعديل:

PHP كود :

procedure TForm2.Edit1Change(Sender: TObject);
var
  sFilter: string;
begin

  if ComboBox1.ItemIndex = -1 then
    Showmessage('Selectione Le Type De Recharche S.V.P')
  else
  begin
    if Edit1.GetTextLen <> 0 then
    begin
      case ComboBox1.ItemIndex Of
        0: sFilter := '[Nom] Like ' + #39 + Edit1.Text + '*' + #39;
        1: sFilter := '[Prenom] Like ' + #39 + Edit1.Text + '*' + #39;
      end;
      ADOTable1.Filter := sFilter;
      ADOTable1.Filtered := true;
    end
    else
      ADOTable1.Filtered := false;
  end;

end;