Tout Cocher / Tout décocher [Résolu]

cs_Kurus 36 Messages postés dimanche 5 avril 2009Date d'inscription 10 août 2011 Dernière intervention - 15 avril 2011 à 15:31 - Dernière réponse : cs_Kurus 36 Messages postés dimanche 5 avril 2009Date d'inscription 10 août 2011 Dernière intervention
- 19 avril 2011 à 11:32
Bonjour à tous !

Je vous explique mon problème, en espérant que vous puissiez trouver la solution.

J'ai un formulaire, faisant appel à un sous formulaire. Dans ce sous formulaire, il y a des informations (nom prénom etc ..) dont l'une des infos est une case à cocher.

J'ai donc créer deux boutons "Tout cocher" et "Tout décocher" afin de faciliter la selection.


Bouton "Tout cocher" :
Dim sousform as DAO.RecordSet
Set sousform = Me.MonsousForm.Form.RecordsetClone

Do While Not sousform.EOF
sousform.Edit
sousform![case] = true
sousform.Update
sous form.MoveNext
Loop

Set sousform = Nothing

Me.MonsousForm.SetFocus
Me.BoutonCoche.Enabled = False
Me.BoutonDecoche.Enabled = True


Bouton "Tout décocher" :
Dim sousform as DAO.RecordSet
Set sousform = Me.MonsousForm.Form.RecordsetClone

Do While Not sousform.EOF
sousform.Edit
sousform![case] = false
sousform.Update
sous form.MoveNext
Loop

Set sousform = Nothing

Me.MonsousForm.SetFocus
Me.BoutonCoche.Enabled = False
Me.BoutonDecoche.Enabled = True


Mes deux problèmes sont les suivants :

- Lorsque je clique par exemple sur le bouton cocher, il me coche correctement toutes les cases non cochées dans mon sous formulaire, et m'active le bouton décocher tout en se désactivant lui même. Néanmoins, lorsque je tente de cliquer sur le bouton décocher , il n'y a aucune réaction du sous formulaire ! J'ai bien le bouton qui se désactive, et l'autre qui s'active néanmoins.
- Second soucis, lors de l'appel de mon sous formulaire, je cherche à désactiver l'un des deux boutons si toutes les cases correspondantes sont activées (ex : tout est coché à vrai, du coup le bouton cocher n'a aucune utilitée). Cela fonctionne, sauf pour que pour l'un des résultats, les deux boutons sont désactivés (alors que pourtant le nombre de lignes correspondant à vrai ou à faux n'est pas égal au nombre de lignes totale ...)


Si quelqu'un a des idées pour me mettre sur la piste, je suis plus que preneur :)

Merci d'avance , et bonne fin de journée ^^
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
cs_Kurus 36 Messages postés dimanche 5 avril 2009Date d'inscription 10 août 2011 Dernière intervention - 19 avril 2011 à 11:32
3
Merci
Problème résolu !

J'ai ajouté un sousForm.MoveFirst juste avant chaque boucle while, du coup je me place sur le premier à chaque fois que je clique.

Pour la seconde partie, il s'agissait d'un problème de NAND

Merci quand même ! ^^

Merci cs_Kurus 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 74 internautes ce mois-ci

Commenter la réponse de cs_Kurus
AlKatou 95 Messages postés vendredi 7 février 2003Date d'inscription 28 novembre 2017 Dernière intervention - 17 avril 2011 à 20:49
0
Merci
salut,

déjà, on ne sait pas trop sur quoi tu travailles (access, vb6, vb2005 ou plus). au vu des termes que tu utilises, je suppose que c'est sous access.

ensuite,
d'une, pourquoi ne passes-tu pas par une requete sql pour tout cocher ou décocher. cela t'éviterait d'avoir à boucler sur tous les enregistrements.

de deux, tu peux passer par une requete qui va te renvoyer une valeur afin d'activer ou désactiver tes boutons.

pour finir, on sait pas si tu peux cocher/décocher juste une case et non tout l'ensemble.


@+, AlKatou
Commenter la réponse de AlKatou
cs_Kurus 36 Messages postés dimanche 5 avril 2009Date d'inscription 10 août 2011 Dernière intervention - 18 avril 2011 à 09:50
0
Merci
Bonjour,

Ayant posté dans la partie ACCESS, je pensais qu'il était clair que je travaillais sous ACCESS , au temps pour moi ^^

Pour la question de la requête SQL, je ne souhaite pas modifier ma table, simplement mon affichage, et ensuite valider mon choix. Je suppose que par requête SQL tu supposes UPDATE ? Si oui c'est là le problème, je souhaite juste modifier l'affichage par tout cocher/décocher (et oui je souhaite modifier toutes les cases d'un coup) et non la table.
Commenter la réponse de cs_Kurus

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.