Discussion :

[mouaa]

Bonjour, il m'arrive un truc tout bête, et je suis persuadée qu'il existe une solution simple et efficace:
tout d'abord, voilà 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
Public Function DesactiverUO(i As Integer)
If i = 0 Then
    Me.code.Enabled = False
    Me.nombd.Enabled = False
    Me.nomproduit.Enabled = False
    Me.designation.Enabled = False
    Me.activities.Enabled = False
    Me.technologies.Enabled = False
    Me.volume.Enabled = False
    Me.type.Enabled = False
    Me.competences.Enabled = False
    Me.price.Enabled = False
    Me.version.Enabled = False
    Me.pc.Enabled = False
    Me.alea.Enabled = False
    Me.HiddenUO.Enabled = False
    Me.nom_coeff_UO_1.Enabled = False
    Me.nom_coeff_UO_2.Enabled = False
    Me.nom_coeff_UO_3.Enabled = False
    Me.nom_coeff_UO_4.Enabled = False
    Me.CocheUO.Enabled = False
    Me.DecocheUO.Enabled = False
Else
    Me.code.Enabled = True
    Me.nombd.Enabled = True
    Me.nomproduit.Enabled = True
    Me.designation.Enabled = True
    Me.activities.Enabled = True
    Me.technologies.Enabled = True
    Me.volume.Enabled = True
    Me.type.Enabled = True
    Me.competences.Enabled = True
    Me.price.Enabled = True
    Me.version.Enabled = True
    Me.pc.Enabled = True
    Me.alea.Enabled = True
    Me.HiddenUO.Enabled = True
    Me.nom_coeff_UO_1.Enabled = True
    Me.nom_coeff_UO_2.Enabled = True
    Me.nom_coeff_UO_3.Enabled = True
    Me.nom_coeff_UO_4.Enabled = True
    Me.CocheUO.Enabled = True
    Me.DecocheUO.Enabled = True
End If
End Function

Comme on peut le voir, ce code est TRES long et ne fait pas grand chose.
Je suis persuadée qu'il existe une solution plus brève pour ce code, mais je n'ai pas trouvé.

Vous connaissez vous ?

[Louis-Guillaume Morand]

ca dépend. ce sont tous les controles de ton formulaire ou juste certains?

sinon, tu peux dejà les mettre sur la meme ligne mais ce sera moins lisible.

[mouaa]

ce sont pour la majorité des cases à cocher.
les 2 derniers sont des boutons.

[Jean-Philippe André]

je propose (mais LGM confirmera ou non) de tout passer à false

Code :

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

1
2
3
4
dim temp as control 
for each temp in Me.Controls
temp.enabled = true
next

et de mettre juste les 2 boutons à true


et vice versa.

[mouaa]

pfff j'avais pas bien compris la question.

malheureusement ce ne sont pas tous les contrôles du form, il y en a de nombreux autres

[Lou Pitchoun]

Salut,

La solution à partir de cette contribution et ceci

Code :

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

If TypeOf MyControl Is CheckBox Then

[mouaa]

ça serait parfait.... si je n'avais pas plein d'autres checkbox dans mon form....

[mouaa]

peut-être qu'en renommant toutes mes checkbox en les différenciant par les 2 premières lettres de leut nom ça pourrait le faire...

par exemple, je pourrait regarder dans tous mes contrôles ceux qui sont des checkbox puis regarder si les 2 premières lettres de leur nom sont "UO" par exemple, et appliquer la modif....

qu'en pensez-vous ?

[Lou Pitchoun]

Ce qui veut dire ??

Il va falloir que tu expliques en quoi la solution ne va pas répondre à ta question.

[Louis-Guillaume Morand]

je propose (mais LGM confirmera ou non) de tout passer à false

Code :

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

1
2
3
4
dim temp as control 
for each temp in Me.Controls
temp.enabled = true
next

et de mettre juste les 2 boutons à true


et vice versa.

je confirme rien, j'ai jamais fait d'Access de ma vie
mais c'est exactement ce à quoi (ton code) que je pensais.
la solution de lou pitchoum ciblant encore plus les checkbox. il n'y a aucun intéret à connaitre le nom des checkbox puisqu'on les met toutes à false.

[mouaa]

pour info, voici mon code final, qui fonctionne à merveille !

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
Function test(Groupe As String, TypeOperation As String)
Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        Debug.Print Ctrl.name
        If Left(Ctrl.name, 2) = Groupe Then
            If TypeOf Ctrl Is CheckBox Then
                Select Case TypeOperation
                    Case "cocher": Ctrl.Value = -1
                    Case "decocher": Ctrl.Value = 0
                    Case "activer": Ctrl.Enabled = True
                    Case "desactiver": Ctrl.Enabled = False
                End Select
            Else
                Select Case TypeOperation
                    Case "activer": Ctrl.Enabled = True
                    Case "desactiver": Ctrl.Enabled = False
                End Select
            End If
        End If
    Next Ctrl
End Function

voilà !

pour ceux qui en auraient besoin un jour !