Cocher et décocher en VBA

[surumeika]

Bonjour.

Envoyé par Nokho

Bonjour les développeurs!!!
J'ai un projet access. Dans ce projet il y a un formulaire ayant des enregistrements. Devant chaque enregistrement il y a une case à cocher. J'aimerai créer un bouton qui permet de cocher ou décocher en même temps tous les cases.
Merci d'avance.

Je voudrais faire exactement la même chose, mais je n'arrive pas à écrire le code VBA. (je suis débutante)
Merci.

[RobiPMS]

Bonjour.
Si ce que tu souhaites faire c'est cocher ou décocher la case dans tous les enregistrements de la table, le code serait quelque chose comme

Code :

1
2
3
4
5
6
7
8
Private Sub Bouton_décocher_Click()
Dim db As DAO.Database
Set db = CurrentDb()
db.Execute "UPDATE Ta_table SET Ta_table.Ta_case_à_cocher= False"
db.Close
Me.Refresh
MsgBox "Toutes les cases ont été décochées."
End Sub

Pour cocher, il faut mettre True à la place de False.
Pour que cela fonctionne, il faut que la référence Microsoft DAO 3.6 Object Library soit activée dans ton projet. (Dans la fenêtre VBA, menu Outils -> Références, cocher la case correspondant à cette référence).
Attention, en procédant ainsi, tous les enregistrements de la table seront mis à jour. Si tu ne veux mettre à jour que certains enregistrements, il faut écrire une condition Where, ou par exemple, mettre à jour la requête avec laquelle tu as filtré les enregistrements et non la table elle-même.
Cordialement

[Thierry_PALLIER]

Bonjour surumeika et RobiPMS

Le problème étant sur un formulaire ,je te propose une boucle sur tous les controles , et si c'est une case à cocher ,tu coche ou décoche (true ou false).
Dans l'evenement sur click de ton bouton ,mets ce code:

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub essais3()
Dim ctrl As Control
 
For Each ctrl In Me.Controls
With ctrl
If ctrl.ControlType = 106 Then
ctrl.Value = False
 
End If
End With
Next ctrl

Me signifiant le formulaire dans lequel tu travaille .
Cdlt

[tee_grandbois]

Bonsoir à tous le 3,
et on peut même passer la valeur en paramètre :

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub essais3(pYesNo as boolean)
Dim ctrl As Control
 
For Each ctrl In Me.Controls
With ctrl
If ctrl.ControlType = 106 Then
ctrl.Value = pYesNo
 
End If
End With
Next ctrl

[loufab]

Bonjour,

il y a un formulaire ayant des enregistrements. Devant chaque enregistrement il y a une case à cocher.

La définition est une case à cocher par enregistrement et non toutes les cases à cocher d'un enregistrement. Bref !

La première solution à base de requête ne fait pas la distinction entre enregistrement affiché dans le formulaire et enregistrement de la table. Il fait toute la table.

La deuxième à base de for each coche toutes les cases d'un seul enregistrement, le courant.

Donc :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim rst As Recordset
Dim bkm As Variant
 
Set rst = Me.Recordset  ' ce qui est contenu dans le formulaire
bkm = rst.Bookmark       ' repaire l'enregistrement courant
 
DoCmd.Echo False         ' gel d'affichage
 
rst.MoveFirst
While Not rst.EOF
   Me.ccCase = True      ' coche chaque Case de chaque enregistrement
   rst.MoveNext
Wend
 
rst.Bookmark = bkm      ' revient à l'enreg courant
 
DoCmd.Echo True         ' degel d'affichage 
Set rst = Nothing

Cordialement,