Discussion :

[8e8eClo]

Bonjour,

Je suis face à un problème tout bête.
J'ai un formulaire dépendant.

Je souhaite tout cocher ou tout décocher selon une option choisie.
Mon code fonctionne bien une fois mais ne fonctionne pas si je change l'option une nouvelle fois sans fermer le formulaire entre deux.

Voici mon code :

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Select Case Me.gpe_tout_cocher.Value
 
        Case 1
 
            Set rs = Me.RecordsetClone
 
            With rs
 
                While Not .EOF
                    .Edit
                    .Fields("sens_vote") = 1
                    .Update
                .MoveNext
                Wend
 
                .Close
 
            End With
 
            Set rs = Nothing
 
        Case 2
 
            Set rs = Me.RecordsetClone
 
            With rs
 
                While Not .EOF
                    .Edit
                    .Fields("sens_vote") = 2
                    .Update
                .MoveNext
                Wend
 
                .Close
 
            End With
 
            Set rs = Nothing
 
        Case 3
 
            Set rs = Me.RecordsetClone
 
            With rs
 
                While Not .EOF
                    .Edit
                    .Fields("sens_vote") = 3
                    .Update
                .MoveNext
                Wend
 
                .Close
 
            End With
 
            Set rs = Nothing
 
    End Select

Une idée ?
J'ai essayé avec du "me.requery" un peu partout mais sans plus de résultat.

Merci

[tee_grandbois]

Bonsoir,
les options sont-elles bien intégrées au cadre du groupe d'options ?
De plus tu écris 3 fois le même code alors qu'une fois suffit :

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
    Set rs = Me.RecordsetClone
 
    With rs
 
        While Not .EOF
            .Edit
            .Fields("sens_vote") = Me.gpe_tout_cocher
            .Update
	    .MoveNext
        Wend
        .Close
 
     End With
 
    Set rs = Nothing
    Me.Refresh

[8e8eClo]

Merci pour la simplification du code. Je m'en étais aperçu après avoir publié

Ca ne marche pas plus cependant

Les options sont bien intégrées à mon cadre d'option. La première partie du code fonctionne bien (affichage d'une msgbox) à chaque clique sur une option.

Le problème vient du rafraichissement du formulaire. Je ne vois pas pourquoi...

Petite précision : mon formulaire n'est pas lié à une table. Les données sont issues d'une requête (me.requery ne fonctionne pas non plus).

[tee_grandbois]

Bonsoir,
normalement, avec un requête cela doit fonctionner aussi. C'est donc autre chose mais je ne vois pas quoi ...
D'autres infos ?