Discussion :

[lucas-18]

Bonjour,

J'ai un formulaire avec des cases à cocher indépandantes me permettant d'imprimer des états.

Est-il possible d'avoir une case à cocher (sélectionner tous) me permettant de cocher celles imprimant les états ?

Merci d'avance,

[User]

Salut,

Peux tu préciser

Sinon, peut-etre sur after update d'une case à cocher tous:

Code :

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

1
2
3
4
5
6
7
Private Sub CocherTous_AfterUpdate()
Cocher1.Value=CocherTous.Value
Cocher2.Value=CocherTous.Value
Cocher2.Value=CocherTous.Value
...
 
End Sub

[lucas-18]

Et bien qur le formulaire, j'ai plusieurs cases à cocher indépendantes qui permettent chacune d'imprimer un état.

Comme il y en a plusieurs, j'aimerais que l'utilisateur s'ilveut tous imprimer puisse le faire en un seul click et non pas une case à cocher par une case à cocher etc ... Tu as compris ?

[User]

Si tu as des évènements after update sur chacune de tes cases à cocher qui imprime tes états, du genre:

Code :

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

1
2
3
4
5
6
7
Private Sub CocherEtat1_AfterUpdate()
 
   if CocherEtat1.Value then
      DoCmd.OpenReport "Etat1"
   end if 
 
End Sub

et sur after update de ta case à cocher tous tu fais:

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 CocherTous_AfterUpdate()
 
CocherEtat1.Value=CocherTous.Value
CocherEtat1_AfterUpdate ' imprime si case à Cocher CocherEtat1=True 
 
CocherEtat2.Value=CocherTous.Value
CocherEtat2_AfterUpdate
 
CocherEtat3.Value=CocherTous.Value
CocherEtat3_AfterUpdate
 
...
 
End Sub

-----------------------------------------------------------------------

Ou encore:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CocherTous_AfterUpdate()
 
CocherEtat1.Value=CocherTous.Value
 
CocherEtat2.Value=CocherTous.Value
 
CocherEtat3.Value=CocherTous.Value
 
   if CocherTous.Value then   
   DoCmd.OpenReport "Etat1"   
   DoCmd.OpenReport "Etat2"
   DoCmd.OpenReport "Etat3" 
   ...
 
   end if
 
...
 
End Sub

A+

[lucas-18]

Merci beaucoup