Discussion :

[bboy-eazy]

Bonjour le Forum,

J'ai un soucis avec une checkbox concernant la propriété enabled.

J'ai un checkbox qui ne veut pas se décocher lorsque je clique dessus alors que la propriété enabled est à true.

Savez vous si il y a une autre propriété qui pourrai jouer la dessus?
Le checkbox est bloqué même si enabled est à true lorsque la procédure suivante a lieu:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub VERROUILLAGE_CONTROL()
Dim ctrl As Object
Dim P As Integer
With Me
    With .MultiPage1
        For P = 0 To .Pages.Count - 1
            For Each ctrl In .Pages(P).Controls
                ctrl.Enabled = False
            Next
        Next P
    End With
End With
End Sub

et que cette procédure a lieu lorsque CAS = 1

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
Sub DEVERROUILLAGE_CONTROL(CAS As Integer) '0 si tout déverrouiller 1 si deverouille que act
Dim ctrl As Object
Dim P As Integer
With Me
    If CAS = 0 Then
        With .MultiPage1
            For P = 0 To .Pages.Count - 1
                For Each ctrl In .Pages(P).Controls
                    ctrl.Enabled = True
                Next
            Next P
        End With
    End If
    If CAS = 1 Then
        With .MultiPage1
            For Each ctrl In .Pages(0).Controls
                ctrl.Enabled = True
            Next
        End With
    End If
End With
End Sub

Avez vous une idée du pourqoi?
Merci d'avance

[Philippe Tulliez]

Bonjour,
La propriété Locked est elle à True ?

[bboy-eazy]

Bonjour Philippe,

Oui elle est a True,

Je viens de trouver la réponse,

En fait la checkbox était dans une frame et la frame était en enabled = false lorsque la procédure suivante avait lieu

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub VERROUILLAGE_CONTROL()
Dim ctrl As Object
Dim P As Integer
With Me
    With .MultiPage1
        For P = 0 To .Pages.Count - 1
            For Each ctrl In .Pages(P).Controls
                ctrl.Enabled = False
            Next
        Next P
    End With
End With
End Sub

Du coup impossible de cliquer sur la checkbox même si sa propriété Enabled était à true.
Il fallait donc remettre à true la propriété Enabled de la Frame

[unparia]

Bonjour


En plus de la question judicieuse posée par Philippe Tulliez, que je salue :

et que cette procédure a lieu lorsque CAS = 1

As-tu au moins vérifié que CAS est bien égal à 1 et que tu parcours bien ce qu'il faut parcourir ?
Fais-le donc (sait-on jamais) en insérant une simple msgbox :

Code :

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

1
2
3
4
5
6
7
If CAS = 1 Then
  msgbox "oui"
...
 
For Each ctrl In .Pages(0).Controls
   msgbox ctrl.name
...

car si oui ne s'affiche pas, ou que tu ne parcours pas ce qu'il faut parcourir, ma foi ...

Avec les beaux jours, les fruits deviennent succulents ...
Question pose par Philippe Tulliez

La propriété Locked est elle à True

Réponse reçue :

Oui elle est a True

Certaines choses ne s'inventent pas

[Philippe Tulliez]

Bonjour,

En fait la checkbox était dans une frame et la frame était en enabled = false lorsque la procédure suivante avait lieu Du coup impossible de cliquer sur la checkbox même si sa propriété Enabled était à true.
Il fallait donc remettre à true la propriété Enabled de la Frame

Ah oui, effectivement. C'est l'astuce que j'utilise pour bloquer tous les contrôles lors de la consultation d'un enregistrement.