Activer ou dévérouillé un champ

Bonsoir

Un petit problème de code.8O

Par défaut, à l'ouverture d'un formulaire un Champ Z est inactif (grisé).
Ce Champ Z s'active quand on valide une coche. Quand on invalide cette coche cela grise de nouveau le champ Z.

Le code :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Cocher63_Click() Select Case Me.Cocher63.Value Case -1 Me.HRS2009.Enabled = True Case 0 Me.HRS2009.Enabled = False End Select End Sub

---

Bon ça je crois avoir compris.
Ce que je désire maintenant c'est qu'à l'ouverture du formulaire ce champ soit vérouillé, quand je coche, il se déverrouille, et quand je décoche il se vérouille de nouveau.

EN FAIT : je cherche la commande qui permet de faire cela comme le fait "ENABLED" pour activer ou désactiver. En gros :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Cocher63_Click() Select Case Me.Cocher63.Value Case -1 Me.HRS2009.qu'est ce que je mets là ?= True Case 0 Me.HRS2009.qu'est ce que je mets là ? = False End Select End Sub

---

Cordialement

Pascal

Bonjour

Code:

---

1 2 3 4

Private Sub Form_Open(Cancel As Integer) Me.Cocher63 = 0 Me.HRS2009.Enabled = False End Sub

---

Sur les proriétés du champ, tu trouves "Verrouillé".

Tu sélectionnes la propriété, puis la touche F1, l'aide d'Access ouvrira sur

"Propriété Locked"

ton code sera donc

Code:

---

1 2	Me.HRS2009.Locked= Me.Cocher63.Value

---

;)

Tout est dans l'intitulé !! :king:

Cordialement

Pascal