i est un entier
i=0
No_f=Saisie1
No_C=Saisie2
Date_jour=Saisie3
nom_f=Saisie5
AjoutLocation(Saisie1,Saisie2,Saisie3,Saisie4,Saisie5)
HLitRecherche(Location,No_client,No_C)
SI Adherent.No_client=No_C ALORS
Adherent.total=Adherent.total+1
HModifie(Adherent)
FIN
SI Adherent.Abonnement@ OU Adherent.AbonnementP ALORS
SI Adherent.total>7 ALORS
SI OuiNon("voulez-vous un autre abonnnement?")=Oui ALORS
HLitRecherchePremier(Adherent,No_client,Saisie2)
TANTQUE HTrouve()
HSupprime(Adherent,Saisie2)
HLitSuivant(Adherent,No_client)
FIN
Adherent.total=0
HModifie(Adherent)
SINON
Utilise(F_TableLocation)
FIN

SINON
// Parcours du fichier
HLitPremier(Location,jjmmaa)
TANTQUE PAS HEnDehors()
// Traitement de chaque enregistrement lu
SI Location.No_client=No_C ALORS
SI Location.jjmmaa=Date_jour ALORS

i=i+1
FIN
FIN
HLitSuivant(Location,jjmmaa)
FIN
SI i >5 ALORS
Erreur("4 films max")
Utilise(F_TableLocation)
SINON
Utilise(F_Acceuil)
FIN
FIN
SINON
// Parcours du fichier
HLitPremier(Location,jjmmaa)
TANTQUE PAS HEnDehors()
// Traitement de chaque enregistrement lu
SI Location.No_client=No_C ALORS
SI Location.jjmmaa=Date_jour ALORS

i=i+1
FIN
FIN
HLitSuivant(Location,jjmmaa)
FIN
SI i >5 ALORS
Erreur("4 films max")
Utilise(F_TableLocation)


FIN
FIN
Utilise(F_TableLocation)

Voila mon code.
Alors j'explique j'ai une fenetre avec un bouton pour effectuer une autre
saisie de x mais:
1. La personne est adhérente et a fini sont abonement( un champs d'une table
comptabilise le nb d'emprunt fait: 50 ou 40 emprunts)
2. Elle voudrait se réabonner comme elle arrive a 50 ou 40 emprunts
3. Il faudrait que dans ce champs qui comptabilise le nb d'emprunts, ce

revienne a 0.
Mais cela ne marche que pour une personne ayant un abonnement de 40 emeprunts.
pour 50 emprunts cela ne revient pas a 0 et continue a comptabiliser et

chaque saisie redemande si la personne veut un nouvel abonnement.

Merci d'avance.