Bonjour,
Je vous écris parce que j'ai un problème dans l'écriture de mon code afin de permettre à ma case à cocher de sélectionner toutes les valeurs disponibles dans une zone de liste à sélection multiple. Voici le code que j'ai écrit afin de réussir cela et le code pour ma zone de liste qui me permet d'exécuter d'autres actions.
Effectivement, lorsque je clique sur ma case à cocher, celle-ci sélectionne bien entendu toutes les valeurs de ma zone de liste0, mais lorsque celle-ci est sélectionné de cette manière, elle n'exécute pas son code. On dirait que je dois absolument sélectionner avec la souris les valeurs à l'intérieur. Connaissez-vous un moyen?
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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42 Private Sub Caseàcocher_Click() For i = 0 To Liste0.ListCount - 1 Liste0.Selected(i) = True Next Liste0.Requery Liste2.Requery End Sub Private Sub Liste0_AfterUpdate() DoCmd.SetWarnings False DoCmd.RunSQL "DELETE * FROM Tbl_Qry_Brasseur" DoCmd.RunSQL "DELETE * FROM Tbl_Qry_Segment" DoCmd.RunSQL "DELETE * FROM Tbl_Qry_SousSegment" DoCmd.RunSQL "DELETE * FROM Tbl_Qry_Skue" DoCmd.RunSQL "DELETE * FROM Tbl_Qry_Zone" DoCmd.RunSQL "DELETE * FROM Tbl_Qry_Réseau" DoCmd.RunSQL "DELETE * FROM Tbl_Qry_Date" For i = 0 To Liste0.ListCount - 1 If Liste0.Selected(i) Then DoCmd.RunSQL "INSERT INTO Tbl_Qry_Brasseur SELECT tbl_Prix.* FROM tbl_Prix WHERE (false) OR (tbl_Prix.Brasseur='" & Liste0.Column(0, i) & "');" End If Next i DoCmd.SetWarnings True Liste2.Requery Liste4.Requery Liste6.Requery Liste10.Requery Liste12.Requery Liste14.Requery End Sub
Merci
Partager