[AC-2003] case à coché formulaire de recherche [Résolu]

[Magno]

Bonjour,

j'ai un formulaire qui contient un sous formulaire en mode donnée. Je peux effectuer des filtres via mes différents champs (ça fonctionne). Selon le résultat de mes filtres, j'ai une correspondance ou non avec d'autre chose. Cette correspondance oui/non je l'ai stocké dans la même table, question pratique.
Je voudrais après avoir filtrer, pouvoir coché tous mes article et ou décoché tout mes article filtrer. Moi je suis passé par 2 boutons radio, mais le plus simple serait de passer par une case à coché : si je coche je mais tout mes articles en coché, sinon je décoche tout.

voici mon code :

bouton radio coché tout :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub BoutonCoche_Click()
Dim sousform As DAO.Recordset
Set sousform = Me.test.Form.RecordsetClone
sousform.MoveFirst
 
Do While Not sousform.EOF
sousform.Edit
sousform![Correspondance Groupe] = True
sousform.Update
sousform.MoveNext
Loop
 
Set sousform = Nothing
 
Me.test.SetFocus
End Sub

bouton radio décoché tout :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub BoutonDecoche_Click()
 
Dim sousform As DAO.Recordset
Set sousform = Me.test.Form.RecordsetClone
sousform.MoveFirst
 
Do While Not sousform.EOF
sousform.Edit
sousform![Correspondance Groupe] = False
sousform.Update
sousform.MoveNext
Loop
 
Set sousform = Nothing
 
Me.test.SetFocus
End Sub

coché décoché tout fonctionne correctement MAIS (pénible ce mais)

le problème que j'ai, c'est que quand je clique sur à coché tout, je peux aussi cliqué sur décoché tout et après il y a conflit... le pourquoi je voudrais passer en mode case à coché.
Si vous avez une idée voir une autre solution plus simple, je suis preneur

Merci et bonne journée

[loufab]

Bonjour,

Avec une case à cocher tu peux utiliser cette syntaxe.

Code :

sousform![Correspondance Groupe] = me.MacaseAcocher

Quel est le type de conflit dont tu parles ?

Cordialement,

[Magno]

bonjour merci d'avoir répondu,

ben vu comme j'ai deux boutons case options, un pour tout cocher, et l'autre tout décocher, si je clique sur tout cocher, j'ai mon bouton activé, en même temps je peux cliquer sur tout décocher... et tout est décoché, le problème c'est que je devrais pas pouvoir cliquer sur tout cocher et tout décocher en même temps... C'est donc pour cela que je voudrais passer par un bouton case à coché. Je vais essayer le code que vous m'avez préconisé et je vais voir.

[Magno]

j'ai essayé cela :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub caseàcocher_Click()

Dim sousform As DAO.Recordset
Set sousform = Me.test.Form.RecordsetClone
sousform.MoveFirst

Do While Not sousform.EOF
sousform.Edit
sousform![Correspondance Groupe] = Me.caseàcocher
sousform.Update
sousform.MoveNext
Loop

Set sousform = Nothing

Me.test.SetFocus

End Sub

j'ai un message d'erreur à ce niveau : "le nombre de verrous disponible pour le partage des fichiers est dépassé. Augmenter l'entrée de registre MaxLockPerFile"

Quand je n'ai pas bcq de données à cocher ça marche, mais dès que j'en ai plein, j'ai un petit temps de réponse et j'ai le message d'erreur.

[loufab]

Bonjour,

Visiblement il y a un problème d'engorgement. Trop de tables ? Trop de base liées ? Trop de recordset ouvert ?

Passe par une requete pour contourner le problème. Bien qu'il va falloir trouver ou tu t'es planté dans la conception.

Qu'est ce que tu entends pas beaucoup de données ?

Cordialement,

[Magno]

j'avais trop de recordset ouvert... Merci pour votre aide, le problème est résolue