Verrouiller tous les champs sauf un

Résolu/Fermé
4rocky4 - 7 févr. 2008 à 15:16
 Cyrius - 15 févr. 2008 à 11:27
Bonjour,

Je voudrais verrouiller tous les champs de mon formulaire de consultation sauf UN, une liste déroulante.

Pour verrouiller tous les champs, j'entre ce code :

For Each Ctl In Me.Controls
If Ctl.ControlType = acTextBox Then
Ctl.Locked = True
Ctl.Enabled = False
ElseIf Ctl.ControlType = acComboBox Then
Ctl.Locked = True
Ctl.Enabled = False
End If
Next Ctl

Et je voudrais donc pouvoir autoriser l'accès et la saisie d'un champ.
Je pensais donc mettre ce code :

For Each Ctl In Me.Controls
If Ctl.ControlType = acTextBox Then
Ctl.Locked = True
Ctl.Enabled = False
ElseIf Ctl.ControlType = acComboBox Then
Ctl.Locked = True
Ctl.Enabled = False
End If
Next Ctl
Me."mon_champ".Enabled = true
Me."mon_champ".Locked = false

Mais ca ne marche pas.

Comment pourrais-je faire ?

Merci
4rocky4

2 réponses

phil_232 Messages postés 286 Date d'inscription jeudi 6 décembre 2007 Statut Membre Dernière intervention 12 juin 2008 33
7 févr. 2008 à 23:03
soit
Me.mon_champ".Enabled = true
Me.mon_champ.Locked = false

soit
Me.("mon_champ").Enabled = true
Me.("mon_champ").Locked = false

quand tu a tapé le poit après le Me --> Me. alors IntelliSense t'ouvre une liste avec toutes les possibilités pour cette form.
0
Bonjour,

Est-ce possible de commenter ce code ci svp:

For Each Ctl In Me.Controls
If Ctl.ControlType = acTextBox Then
Ctl.Locked = True
Ctl.Enabled = False
ElseIf Ctl.ControlType = acComboBox Then
Ctl.Locked = True
Ctl.Enabled = False
End If
Next Ctl

Je comprends bien son utilité, mais certains points me semble un peu flou.

Merci d'avance.

Cyrius.
0