Discussion :

[marckus67]

Bonjour à tous,
D'abord merci à vous si vous lisez mon post.
J'explique mon problème;
les lignes de commande suivantes sont affectées à un bouton "1" _Click():

Code :

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

1
2
    Screen.PreviousControl.SetFocus
    Screen.ActiveControl = "1"

fonctionnent très bien lorsque le dernier control est dans une Zone de texte; par contre si le dernier control se trouve sur un objet sans paramètre ( tel que formulaire, état, ou un bouton ...) cela me génère l'Erreur d'exécution '2427' Erreur sans paramètre. Comment parader ce problème ?
merci d'avance.

[RobiPMS]

Bonjour marckus.
Adapte un code de ce genre :

Code :

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

1
2
3
4
5
6
7
8
If Screen.PreviousControl Is Me!nom_zdt1 Or Screen.PreviousControl Is Me!nom_zdt2 Then
Screen.PreviousControl.SetFocus
Screen.ActiveControl = "1"
Exit Sub
Else
    MsgBox "Cliquez sur la zone de texte à laquelle vous voulez attribuer la valeur 1 avant d'utilisez ce bouton", vbInformation
Exit Sub
End If

Ainsi, le "PreviousControl" n'aura le focus que s'il est une des zdt concernées.
Cordialement.