Discussion :

[marjo20]

Bonjour,

quand le contrôle clôture prend la valeur = True,
je souhaiterais que tous les contrôles d'un formulaire soient vérouillés.
Je fais donc par exemple pour le contrôle rédacteur :

Private Sub Form_Current()

If [clôture] = True Then
[rédacteur].Locked = True
Else
[rédacteur].Locked = False
End If

je dois faire cela pour tous les contrôles.
comment faire pour éviter cela et lui dire de vérouiller tous les contrôles en une seule commande?

Merci

[faventin]

il faut pour cela que tu parcours tous les controles de ton formulaire. Pour cela tu peux utiliser le code suivant que tu adaptes :

Code :

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

1
2
3
4
5
6
7
 
    Dim ctrl As Control
    For Each ctrl In frm.Controls
        With ctrl
            .enabled = false
        End With
    Next ctrl

Voili, j'espere que ca t'iras !