Discussion :

[nattyman]

Bonjour
j'ai le problème suivant. lorsque j'exécute ce code

Code :

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

1
2
3
4
5
 
Dim cc As Control
For Each cc In Me.Détail.Controls
        cc.Properties("locked") = "True"
Next cc

ça me dit "la référence à d'une expression à la propriété locked n'ets pas valable". Hors cette propriété existe bien, et quand je met une autre propriété à la place comme "enabled" ça fonctionne bien?
quelqu'un a une idée??
A la base je m'en servait pour bloquer tous les controles d'une section de formulaire, sans bloquer l'en-tête.
merci beaucoup
Marco

[cafeine]

Hello,

drôle d'idée de mettre "True" sous forme de chaîne au lieu de mettre True ... essaie sans les "" pour voir ...

[nattyman]

Hello,

drôle d'idée de mettre "True" sous forme de chaîne au lieu de mettre True ... essaie sans les "" pour voir ...

J'ai déjà essayé, c'est pareil...

[Arkham46]

slt,

Code :

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

1
2
3
4
Dim cc As Control 
For Each cc In Me.Section(acDetail).Controls 
        cc.locked = True
Next cc

:

Edit :
J'écris trop vite :

Code :

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

1
2
3
4
5
6
7
8
Dim cc As Control 
on error goto Gestion_Erreurs
For Each cc In Me.Section(acDetail).Controls 
        cc.locked = True
Next cc 
Gestion_Erreurs:
' Passe au contrôle suivant si le contrôle n'a pas de propriété Locked
if err.number = LeNuméroDeL'Erreur then resume next

Tous les contrôles n'ont pas de propriété Locked, ça doit être ça le problème.

[nattyman]

slt,

Code :

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

1
2
3
4
Dim cc As Control 
For Each cc In Me.Section(acDetail).Controls 
        cc.locked = True
Next cc

:

ah, là ça me dit "propriété ou méthode non gérée par cet objet".
Mais merci quand même.

[cafeine]

Tu as peut être un contrôle qui ne possède pas cette propriété auquel cas tu devrais mettre un

Code :

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

On Error Resume Next

lors du bug regarde quel est le contrôle qui pose problème et son type ...

[Arkham46]

Oui j'ai écris plus vite que j'ai réfléchis...

Tu dois avoir un contrôle qui n'a pas de propriété Locked, il faut donc gérer l'erreur.
Cf le code du dessus, j'ai édité mon message.

[Kloun]

Les labels n'ont pas de propriété Verrouillé, par exemple.

[jean-paul lepetit]

Salut,
il faut que tu selectionnes le type de controle à verouiller, car certains comme les boutons de commande ou les etiquettes n'on pas cette propriété.

[nattyman]

Oui j'ai écris plus vite que j'ai réfléchis...

Tu dois avoir un contrôle qui n'a pas de propriété Locked, il faut donc gérer l'erreur.
Cf le code du dessus, j'ai édité mon message.

c'était bien ça, merci!!