Discussion :

[clickandgo]

Bonjour à tous,

je cherche à adapter ce code pour que les sous formulaires incrustés dans un formulaire principal soient aussi bloqués :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Function BloquerChampsFormActif()
 
Dim ctl As Control
 
For Each ctl In Screen.ActiveForm.Controls
 
    If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
        ctl.Enabled = False
        End If
        Next
End Function

[RobiPMS]

Bonjour.

Ceci devrait fonctionner :

Code :

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

1
2
3
4
    If TypeOf ctl Is SubForm Then
        ctl.Enabled = False
        End If
        Next

Dans ce cas, chaque sous-formulaire est totalement désactivé. Est-ce cela que tu veux?
Cordialement.

[clickandgo]

Merci beaucoup, ça marche parfaitement !