' ' Is not a valide date

ELKADER - 20 mai 2018 à 21:52 - Dernière réponse :  ELKADER
- 2 juin 2018 à 13:01
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 .
Afficher la suite 

Votre réponse

2 réponses

cs_sagitarius 64 Messages postés samedi 26 août 2017Date d'inscription 7 août 2018 Dernière intervention - 30 mai 2018 à 22:04
0
Merci
bonsoir,
essaye ce code:
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;


Bon codding
Commenter la réponse de cs_sagitarius

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.