Bonjour,
Je travaille sur BDE TABLE et je veux faire u filtrage sur une table qui contient les champs suivants:
( nom_cand, prenom_cand, date_n_cand )
j'essai avec ce code :
if edit1.text<>'' then begin table1.filter:='nom_cand='+quotedstr(edit1.text+'*'); table1.filtered:=true else table1.filtered:=false ;
Mais il ya un probleme si aucun enregistrement ne correspend aux caracteres tapes dans le edit1
les probleme est : '' is not a valide date ;
Aider mois s'ils vous pliez .
procedure TForm1.DateExit(Sender: TObject);
Var
Resultat:String;
ResulMess: Integer;
Begin
try
DateTimeToString(Resultat,('dd/mm/yy'),(StrToDate(Date.Text)));
except
ResulMess:=MessageBoxA(0,Pchar('('+Date.Text+') N''EST PAS UNE DATE VALIDE')
,Pchar('ERREUR SUR LA DATE'),MB_OK+MB_ICONWARNING+MB_TASKMODAL);
Abort;
end;
end;
