//On regarde d'abord si la zone de saisie n'est pas vide
SI Frm_RechCli.Zs_Client="" ALORS RETOUR
SI PAS HExécuteRequête(REQ_SELECT_CLIENT) ALORS RETOUR
Cléparcours est une chaîne
Cléparcours=HFiltre(REQ_SELECT_CLIENT,NomClient,Frm_RechCli.Zs_Client)
SI Cléparcours<>"" ALORS
HLitPremier(REQ_SELECT_CLIENT, Cléparcours)
TANTQUE PAS HEnDehors(REQ_SELECT_CLIENT)
TableAjouteLigne(Frm_RechCli.Tab_ListCLi,REQ_SELECT_CLIENT.NomClient,...
REQ_SELECT_CLIENT.PreClient,REQ_SELECT_CLIENT.TypeClient)
HLitSuivant(REQ_SELECT_CLIENT, Cléparcours)
FIN
FIN
//On affiche le nombre de résultat
Frm_RechCli.Lb_NbResult..Valeur = TableOccurrence(Tab_ListCLi)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=5&topic_id=506&post_id=1773