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 ^^