COmment savoir si un controle de formulaire est verrouilé (locked) ou non

Bonjour à tous et meilleurs voeux 2011

Dans une boucle For Each je balaye tous les contrôles présents dans mon formulaire pour leur appliquer un traitement.
Sauf que je souhaiterai ne pas appliquer ce traitement aux contrôles ayant le statut verrouillé (propriété locked = True).

Comment peut-on réaliser cela simplement ? Avez-vous SVP une idée ?

Merci d'avance de votre aide
Cordialement
oracle7556 ;););)

Code:

---

1 2 3

if not c.locked then 'Ici ton traitement pour les contrôles déverrouillés. end if

---

dans ta boucle devrait te permettre de ne traiter que les contrôle qui ne sont pas verrouillés.

A+

Bonsoir marot_r

1 - Merci de ta réponse

2 - Désolé mais cette astuce ne marche pas...:(

Voici mon code :

Code:

---

1 2 3 4 5 6

Dim oCTRL as Control For Each oCTRL In Forms(psFormCourant).Controls If Not oCTRL.Locked Then ... End if Next

---

Quand j'exécute, je récupère le message d'erreur suivant :

Citation:

---

Erreur d'exécution '438'
Propriété ou Méthode non gérée par cet objet

---

????? Que faire ?

Salut,

La proposition de Marot est la bonne, seulement tu balayes tous les contrôles et donc forcément quand tu tombes sur une étiquette ou 1 bouton de commande il te dit que la méthode locked n'existe pas ce qui est parfaitement logique.

Il faut éliminer les étiquette, boutons de commandes et autres...

avec 1 code du style

Code:

---

1 2 3 4 5 6 7 8

Dim oCTRL As Control For Each oCTRL In Forms(psFormCourant).Controls If Not (oCTRL.ControlType = acLabel) And Not (oCTRL.ControlType = acCommandButton) Then If Not oCTRL.Locked Then MsgBox ("non verrouillé") End If End If Next

---

A+

Bonsoir User

Merci de ta réponse.
Je comprend mieux maintenant pourquoi cela ne marchait pas.
Dans tout les cas avec ton exemple cela résout mon problème.

Merci quand même aussi à marot_r qui effectivement avait donné le début de la bonne solution initialement.

Le post est donc résolu.

MERCI encore à tous les deux
Cordialement
oracle7556 ;);););)

Oups, merci User.

J'avais en effet complètement oublié de tester le type de l'objet.

A+