Recherche par date avec delphi6

Essayez ça si vous voulez
bien sur m'alias de donnée ce n'est pas comme le votre ni les data de module
exemple1
NB:(cette recherche est faite par un numéro pas avec la date)

procedure TForm66.BitBtn1Click(Sender: TObject);
begin
datamodule3.Table1.Filter:='Nls='''+edit1.Text+'*''';
datamodule3.Table1.Filtered:=true;
end;



Exemple2:

ça je l'ai fais par la date je ne sais pas s'il va vous aider!!!!procedure TForm61.SpeedButton3Click(Sender: TObject);

begin
datamodule3.Table9.Filter:='Date_stck='''+edit3.Text+'*''';
datamodule3.Table9.Filtered:=true;
end;

exemple3:

cette rechreche est selon le nom par exemple

procedure TForm61.SpeedButton2Click(Sender: TObject);
begin
if edit2.Text='' then
begin
showmessage('Vous devez saisir le nom');
edit2.SetFocus;
end
else
begin

if not datamodule3.table9.Locate('Nom_ls',edit2.Text,[])then
begin
form27.Animate1.Active:=true;
form27.Show;

messagedlg('Lieu de stock introuvable',mterror,[mbok],0);
form27.Animate1.Active:=false;
form61.Show;
form27.Close;

end
else
begin
form27.Animate1.Active:=true;
form27.Show;
messagedlg('Le lieu de stock est affiché',mterror,[mbok],0);
form27.Animate1.Active:=false;
form61.Show;
form27.Close;
end;
end;

end;

exemple4:
selon le code

procedure TForm61.SpeedButton1Click(Sender: TObject);
begin
if edit1.Text='' then
begin
showmessage('Vous devez saisir le numéro');
edit1.SetFocus;
end
else
begin

if not datamodule3.table9.Locate('Nls',edit1.Text,[])then
begin
form27.Animate1.Active:=true;
form27.Show;

messagedlg('Lieu de stock introuvable',mterror,[mbok],0);
form27.Animate1.Active:=false;
form61.Show;
form27.Close;

end
else
begin
form27.Animate1.Active:=true;
form27.Show;
messagedlg('Le lieu de stock est affiché',mterror,[mbok],0);
form27.Animate1.Active:=false;
form61.Show;
form27.Close;
end;
end;

je ne sais pas si je vous ai aidé ou non mais j'aimerai bien de vous donner au moin une toute petite idée

si ça marche dites le moi et si vous avez d'autre question n'hésitez pas à les poser

bonne chance