Dévérouillage controle actif

Bonjour,
Je souhaite, à l'aide d'un bouton, dévérouiller le controle sur lequel se trouve le curseur....
Merci

Explorez du côté de :

Code:

---

1 2	Screen.PreviousControl.Locked = False Screen.PreviousControl.SetFocus

---

Il faut utiliser PreviousControl, car le contrôle actif devient le bouton lorsque l'on clique sur ce bouton.
Le Set focus permet de revenir sur le champ dévérouillé après avoir cliqué sur le bouton.

Bon courage

Ca marche presque :wink:
Le problème est que ça me dévérouille le dernier contrôle 'modifié', et non le contrôle vérouillé sur lequel le curseur se trouve....

Merci pour votre aide

Salut,

En cherchant un petit peu tu aurais trouver cela, ActionAccess t'avais mis sur la piste pourtant.

esseye ce code il fonctionne:

Code:

---

1 2 3 4 5

Dim MyControl As Control Dim MyControl As Control Set MyControl = Screen.ActiveControl Screen.PreviousControl.SetFocus MyControl.Enabled = False

---