Discussion :

[Oliv'83]

Bonjour à tous,

J'ai un formulaire avec les données d'une personne (Nom, prénom,...) et un bouton VALIDER.

A l'intérieur de ce formulaire j'ai un sous formulaire avec les coordonnées (Adresse, CP, Ville).

Mon but est de naviguer au sein de mon formulaire puis de mon sous formulaire (ça j'y arrive) pour finir sur mon bouton.

Or quand je suis dans mon sous formulaire en naviguant avec la touche Tab je tourne en rond. Je sais que si je fais Ctrl+Tab j'arrive à ce que je veux mais je voudrais savoir si il est possible d'avoir la même action en ne se servant uniquement de Tab ce qui est plus "naturel" pour un utilisateur lambda.

Merci de vos réponses

Oliv'

[loufab]

Bonjour,

Exploite l'événement Sur touche relachée du formulaire.
Il te faut tester le controle actif et faire réagir le formulaire en conséquence.
Attention aux éventuels effets de bord.


Cordialement,

[Oliv'83]

Bonjour Fabrice,

Merci de ton aide et désolé de ne revenir qu'aujourd'hui.

Ne voyant pas comment faire avec l'évènement Sur touche relachée, je me suis "attaqué" à l'évènement Sur perte focus sur lequel j'ai mis le code suivant :

Code :

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

Forms!frm_Inscription_Prospect!btn_FR.SetFocus

Et j'ai droit à un beau warning auquel je ne comprends rien...

L'expression sur perte de focus entrée comme paramètre de la propriété de type évenement est à l'origine d'une erreur. Un problème est survenu durant la communication entre Mon Application et le serveur OLE ou le contrôle active X

Oliv'

[MisterS]

Bonjour ,

Je ne sais pas si cela pourra te servir , mais la Touche "Enter" est affectée à la Valeur 13 , et la touche "Echapp" est affectée à la Valeur 27.

Il faudrait trouver le numéro ASCII de la touche TAB.

J'ai trouver cette information :

Code :

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

1
2
3
4
5
6
7
Private Sub Text1_KeyDown(Shift as Integer, KeyCode as Integer)
Select Case Not Shift and KeyCode 'Choisi la valeur de KeyCode.
       Case Is = 13 'Si la valeur = 13 alors
            Command1_Click 'Simule le bouton Entrer.
       Case Is = 27 'Si la valeur = 27 alors
            Unload Me 'Ferme la fenetre en cours.
End Select

Si cela peu t'aidée ...

Cordialement ,

[loufab]

En utilisant les constantes vba clavier on facilite la lecture du code.

Code :

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

13 = vbkeyreturn

...

F2 et recherche de vbkey pour en savoir +.