Empêcher fermeture fenêtre

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:

---

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

Citation:

---

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 :calim2:

vire ferme()

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

Quelque chose du style :

Code:

---

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

Citation:

---

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 ?

La table "Secteur".

Citation:

---

Envoyé par Voroltinquo

Quelque chose du style :

Code:

---

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

Ooops, il faut lire A FAIRE TANT QUE.

Citation:

---

Envoyé par Voroltinquo

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

Tout simplement

Code:

---

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)

---

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

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.

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