bTrouve est un Booleen
bTrouve =HLitRecherche(prospects,IDProspect,Table.IDProspect[Ctr])
// Ajout de l'enregistrement dans Prospects
prospectsmysql.IDProspect = prospects.IDProspect
prospectsmysql.NomSocieteProspect = prospects.NomSocieteProspect................
Si bTrouve Alors
HModifie(prospectsmysql,hNumEnCours)
Sinon
HAjoute(prospectsmysql)
Fin
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=3452&post_id=14653