Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

WinDev Discussion :

Empêcher fermeture fenêtre


Sujet :

WinDev

  1. #1
    Nouveau Candidat au Club
    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 :



    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

  2. #2
    Membre averti
    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()

  3. #3
    Nouveau Candidat au Club
    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

  4. #4
    Membre chevronné
    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
    Il y a peut être plus simple, mais ça tourne

  5. #5
    Membre averti
    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 ?

  6. #6
    Membre chevronné
    La table "Secteur".
    Il y a peut être plus simple, mais ça tourne

  7. #7
    Nouveau Candidat au Club
    Citation Envoyé par Voroltinquo Voir le message
    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

  8. #8
    Membre chevronné
    Ooops, il faut lire A FAIRE TANT QUE.
    Il y a peut être plus simple, mais ça tourne

  9. #9
    Nouveau Candidat au Club
    Citation Envoyé par Voroltinquo Voir le message
    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

  10. #10
    Membre éprouvé
    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)
    Philippe,


    N'hésitez à lever le pouce si mon aide vous a été utile.

  11. #11
    Nouveau Candidat au Club
    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

  12. #12
    Membre éprouvé
    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.
    Philippe,


    N'hésitez à lever le pouce si mon aide vous a été utile.

  13. #13
    Nouveau Candidat au Club
    Tu penses bien que j'ai essayé TableAffiche(), mais ne fonctionne pas.
    Merci quand même

###raw>template_hook.ano_emploi###