Discussion :

[petitloup71]

Bonjour,

Je dispose d'un formulaire sous forme tabulaire avec une case à cocher pour chaque enregistrement. Je souhaiterai qu'en appuyant sur un bouton, tous mes enregistrements soient cochés.

quel serait le code pour avoir un autre bouton qui permettrait de tout décocher?

Merci d'avance

[milia]

Bonjour,

je suppose que ça doit être le même mais au lieu de mettre à true, cela met tout à false!!
Simple logique.

Bon courage.

[@rkane]

moi je verrai bien sur evenement clic un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each Ctl In Me.Controls
If Ctl.ControlType = acCheckBox Then
Ctl.value = True

[Alexandre Sahli]

bonjour,

avec un formulaire tabulaire je ne vois pas comment tu peux mettre un bouton (je n'ai jamais fait) par contre dans un autre formulaire c'est facile de mettre du code sur un bouton.

Il y a 2 solutions

1° d'ouvrir le recordsetclone du formulaire et de changer les cases à cocher (dépend de tes connaissance en VBA)

2° de faire une requête mise à jour (avec le même nombre d'enregistrements que ton formulaire donc les même close Where) et de faire un truc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
docmd.openquery "ma requête mise à jour"
me.requery

si tu veux plus de précision donne la structure du query de ton formulaire

[petitloup71]

Merci pour vos réponses.

desolé mais je ne connais pas le vba, donc je bidouille des trucs qui ne marchent pas.

par quoi dois je remplacer la variable, car j'ai copié collé ton code. j'ai remplacé Clt par le nom de ma case à cocher mais ca ne marche pas.
Voici le code que j'ai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Commande6_Click()
For Each ArtCompare In Me.Controls
If ArtCompare.ControlType = acCheckBox Then
ArtCompare.Value = False
End Sub

[@rkane]

oups ! excuses Alexandre j'ai lu trop vite !
j'ai squeezé le fait que c'etait un form tabulaire ! et puis aussi qu'il voulait decocher les cases...
Accessoirement, les tabulaires m'en suis jamais servis.
si tu as plusieurs checkbox avec des NOMS differents laisses le code comme il est mais si tu n'as qu'un seul checkbox sur ton form tu mets sur clic :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

me.MonCheckBox.value = false

[petitloup71]

ca ne marche pas non plus, ca me met que j'ai une erreur "de compilation membre de méthode ou de données introuvables"

[petitloup71]

j'ai qu'une seule case à cocher par enregistrement

[@rkane]

envoies ton fichier !

[VBBBA]

CurrentDb.Execute "Update NomTable SET [Flag]= True "

[VBBBA]

A NomTable, tu met le nom de ta table
et à [Flag tu met le nom du champ qui comporte les flags...

[VBBBA]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub All_Click()
 
Dim i As Integer
i = DCount("[flag]", "NomTable", "[flag]=-1")
If i > 0 Then
    CurrentDb.Execute "Update [NomTable] SET [Flag]= False "
 
 
Else
CurrentDb.Execute "Update [NomTable] SET [Flag]= True "   
 End If
Me.Requery
End Sub

La je compte le nombre de flag. si yen a plus de 0, je déflague tout, sinon je flague tout...
et tout ca à mettre dans bouton_on_click

[petitloup71]

slt!

MErci!!! tout fonctionne comme je le souhaitais!

MErci et bonne continuation!
@+