Discussion :

[oracle7556]

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

[marot_r]

Code :

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

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+

[oracle7556]

Bonsoir marot_r

1 - Merci de ta réponse

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

Voici mon code :

Code :

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

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 :

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

????? Que faire ?

[User]

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 :

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

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+

[oracle7556]

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

[marot_r]

Oups, merci User.

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

A+