le filtrage ça marche pas comme je veux

bonjour
j'ai une boutton chercher qui a le role de chercher dans une table(base de données) les documents qui ont le titre qui est ecrit dans une edit et je met le code suivant dans cette boutton:
fmArchiveDoc.tbArchive.open;
  fmArchiveDoc.tbArchive.first;
  if not(fmArchiveDoc.tbArchive.Locate('Titre_doc', Edit1.Text, [])) then
     showMessage ('Document non trouvé..!')
  else
  begin
    fmArchiveDoc.tbArchive.Open;
    if edit1.text<>'' then
    begin
      fmArchiveDoc.tbArchive.Filter:='Titre_doc =' + ''' + edit1.Text + ''';
      fmArchiveDoc.tbArchive.filtered:=true;
    end;
  end;
mais ça marche pas comme il faut le DBgrid toujours vide pas de resultat je ne sais pas c quoi le probleme
merci d'avance

utilise sql x 10 000 000 000 = Err

Matrix

Bonjour

@ souha2008

Pourquoi vous utiliser deux fois ; fmArchiveDoc.tbArchive.open;
et pourquoi: 

If not(fmArchiveDoc.tbArchive.Locate('Titre_doc', Edit1.Text, [])) then
     showMessage ('Document non trouvé..!')

c'est pour confirmer l'existance de la variable recherchée.

voila je vous propose ce code;
// Appliquer le filtre
fmArchiveDoc.tbArchive.Filter:= 'Titre_doc = ''' + Edit1.Text + '*''';
// Accepter le filtre
fmArchiveDoc.tbArchive.Filtered :=true ;
// s'il y a aucun enregistrement annuler
if fmArchiveDoc.tbArchive.RecordCount= 0 then begin
ShowMessage('Aucun enregistrement trouvé');
exit;
end;

n'oubliez pas de valider l'option du flitre: foCaseInsensitive:=True; pour accepter la différence entre les MAJISCULS et les minisculs

je pense que ça va vous aider, bonne chance et plein de succès.