1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| SI TABLE_req_clients..Modifié = Vrai ALORS
Indice est un entier = TableSelect(TABLE_req_clients)
HLitRecherche(REQ_Requête1,IDFi_clients,TABLE_req_clients.idfi_cli[indice])
SI HTrouve(REQ_Requête1) ALORS
REQ_Requête1.nom_cli = TABLE_req_clients.nom_cli[indice]
REQ_Requête1.pren_cli = TABLE_req_clients.pren_cli[indice]
REQ_Requête1.age_cli = TABLE_req_clients.age_cli[indice]
REQ_Requête1.ville_cli = TABLE_req_clients.ville_cli[indice]
SI HModifie(REQ_Requête1,hNumEnrEnCours) ALORS
Info("L'enregistrement a bien été modifié")
HExécuteRequête(REQ_Requête1)
FIN
FIN
FIN |
Partager