désactiver les textbox d'un form [Résolu]

[reedy]

Bonjour

J'ai un form dont je voudrais parcourir les textbox afin de les désactiver . J'ai donc créé un code qui boucle sur les controles du form:

Code :

1
2
3
4
5
6
7
8
Sub desactiver_controles_form()
 
  Dim ctrl As Control
  For Each ctrl in Me.Controls
  ctrl.Enabled =  True
  Next
 
End Sub

Seulement, ce code ne fonctionne pas car la propriété Enabled n'existe pas pour les objets de type Controle . Cette proprité existe en revanche pour les objet de type Textbox.

Quelqu'un peut il m'aider ?

[hajeahmad]

bonjour

introduis la notion du controltype pour selectionner le textbox
exemple:

Code :

1
2
3
4
5
6
7
8
For Each ctl in frm.Controls
        With ctl
            Select Case .ControlType
            Case acTextBox
                  .Enabled = True     
           End Select
        End With
Next ctl

cordialement

ahmad

[reedy]

Bonjour,

Ca marche.
Merci infinimement.