Discussion :

[lito74]

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

[ActionAccess]

Explorez du côté de :

Code :

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

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

[lito74]

Ca marche presque
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

[Dolphy35]

Salut,

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

esseye ce code il fonctionne:

Code :

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

1
2
3
4
5
    Dim MyControl As Control
    Dim MyControl As Control
    Set MyControl = Screen.ActiveControl
    Screen.PreviousControl.SetFocus
    MyControl.Enabled = False