Propriété des Checkbox

Version imprimable

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:

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:

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

09/05/2016, 10h18
Philippe Tulliez

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

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:

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

09/05/2016, 10h48
unparia
Bonjour

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

Citation:

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:

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

Citation:

La propriété Locked est elle à True

Réponse reçue :

Citation:

Oui elle est a True

Certaines choses ne s'inventent pas :lol:
09/05/2016, 11h45
Philippe Tulliez

Bonjour,

Citation:

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.