Discussion :

[hilander]

Bonsoir,

J'ai une dernière petite question, est-il possible d'empêcher le fermeture d'une fenêtre tant que je n'ai pas fini de saisir des données.

Voice une copie d'écran :

Pièce jointe 516813

Cette fenêtre comporte le code par défaut suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
/ Lecture des informations saisies
EcranVersFichier()
 
// Ajoute / Modifie l'enregistrement
HEnregistre(Secteurs)
 
// Ferme la fenêtre
Ferme("",Vrai)

J'ai plusieurs données à saisir, je clique sur un bouton "Nouveau", ce qui ouvre la fenêtre ci dessous. Lorsque je valide, cette fenêtre se ferme, normal puisque le code le dit.
Est-il possible de contourner cela afin que je ne sois pas obliger à chaque donnée saisie de cliquer sur Nouveau et de recommencer la procédure. D'autant que j'ai un bouton Fermer.

Si vous avez une piste, peut-être avec un autre bouton ou un code, ou une boucle

Merci pour votre aide

[alaclef]

J'ai plusieurs données à saisir, je clique sur un bouton "Nouveau", ce qui ouvre la fenêtre ci dessous. Lorsque je valide, cette fenêtre se ferme, normal puisque le code le dit.

ben .... change le code

vire ferme()

[hilander]

Bonjour,

Merci pour ta réponse, mais j'ai déjà essayer. Le seul problème c'est que les données saisies ne s'affiche plus dans ma table.

Encore merci

[Voroltinquo]

Quelque chose du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
BOUCLE
     EcranVersFichier
     SI PAS HEnregistre(Secteurs) ALORS
          //Traitement des erreurs
          //....
          //Fin Traitement des erreurs
          RETOUR
     FIN
     Hraz(Secteur)
TANTQUE OuiNon("Voulez vous effectuer une nouvelle saisie")=Vrai
Ferme()
CAS EXCEPTION
//Traitement des exceptions

Devrait faire l'affaire

[alaclef]

Merci pour ta réponse, mais j'ai déjà essayer. Le seul problème c'est que les données saisies ne s'affiche plus dans ma table.

Comprends pas . Quelle table ?

[Voroltinquo]

La table "Secteur".

[hilander]

Quelque chose du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
BOUCLE
     EcranVersFichier
     SI PAS HEnregistre(Secteurs) ALORS
          //Traitement des erreurs
          //....
          //Fin Traitement des erreurs
          RETOUR
     FIN
     Hraz(Secteur)
TANTQUE OuiNon("Voulez vous effectuer une nouvelle saisie")=Vrai
Ferme()
CAS EXCEPTION
//Traitement des exceptions

Devrait faire l'affaire

Bonsoir voroltinquo,
Merci pour ton code, mais j'ai un message d'erreur du style : TANTQUE attend FIN.
Je cherche de mon coté
Encore merci

[Voroltinquo]

Ooops, il faut lire A FAIRE TANT QUE.

[hilander]

Ooops, il faut lire A FAIRE TANT QUE.

Désolé Voroltinquo, mais ta solution ne fonctionne pas. Cela ne m'affiche pas ma saisie dans ma table secteur et lorsque je ferme la fiche ca m'affiche ma saisie plusieurs fois.

Merci tout de même

[philouZ]

Tout simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
// Lecture des informations saisies
EcranVersFichier()
 
// Ajoute / Modifie l'enregistrement
HEnregistre(Secteurs)
 
SI OuiNon("Voulez vous effectuer une nouvelle saisie") ALORS
    HRAZ(Secteurs)
    FichierVersEcran()
    RepriseSaisie(SAI_Secteur)
FIN
 
// Ferme la fenêtre
Ferme("",Vrai)

[hilander]

Bonjour PhilouZ,

Merci pour ton message et ton code, cela fonctionne.
Il y a un tout petit problème, lorsque je saisie une donnée dans ma fiche et que je dit oui pour en saisir une autre, la première donnée ne s'affiche pas tout de suite dans ma table Secteurs.
Mais bon, on ne va pas chipoter.

Merci

[philouZ]

C'est qu'il te manque un rafraîchissement à mettre en place type TableAffiche().

N'oublies pas de mettre la conversation comme résolu si on a répondu à ta question.

[hilander]

Tu penses bien que j'ai essayé TableAffiche(), mais ne fonctionne pas.
Merci quand même