Salut à tous,

C'est un appel à tous pour un conseil ou un code source. Je suis en train de préparer un petit formulaire (écran de saisies) pour une de mes bases de données. J'aimerais me déplacer dans d'un champs à l'autre en utilisant la touche Enter ou les flèches Bas et Haut. Mon code est en VB5 et je ne peux me déplacer dans ce formulaire qu'en tapant la touche TAB.

Que faire ?

Merci à l'avance

N.Houle

Salut,
Vila comment faire : disons que tu posedes 2 textbox nomé text1 et text2, et un bouton pour valider.
Dans l'evenement "Keypress" de ta textbox1 tu met ca :

Sub Text1_KeyPress(KeyAscii As Integer)
If Keyascii = 13 then
Text2.SetFocus
End If
End Sub

Et tu fais pareil pour la textbox2.
J'ai pas verifié mais ce bout de code devrait marcher.
Si t'as d'autres questions n'hesite pas.
Bonne prog et @++

DeAtH_-_CrAsH

Utilise la méthode KeyPress pour récupérer la touche pressée dans tes zones de texte.

Private Sub txtSalarié_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 13 'Touche Enter
ValiderLaSaisie
Case 27 'Touche Escape
AnnulerLaSaisie
End Select
End Sub




-------------------------------
Réponse au message :
-------------------------------

> Salut à tous,
>
> C'est un appel à tous pour un conseil ou un code source. Je suis en train de préparer un petit formulaire (écran de saisies) pour une de mes bases de données. J'aimerais me déplacer dans d'un champs à l'autre en utilisant la touche Enter ou les flèches Bas et Haut. Mon code est en VB5 et je ne peux me déplacer dans ce formulaire qu'en tapant la touche TAB.
>
> Que faire ?
>
> Merci à l'avance
>
> N.Houle

-------------------------------
Réponse au message :
-------------------------------

> Salut à tous,
>
> C'est un appel à tous pour un conseil ou un code source. Je suis en train de préparer un petit formulaire (écran de saisies) pour une de mes bases de données. J'aimerais me déplacer dans d'un champs à l'autre en utilisant la touche Enter ou les flèches Bas et Haut. Mon code est en VB5 et je ne peux me déplacer dans ce formulaire qu'en tapant la touche TAB.
>
> Que faire ?
>
> Merci à l'avance
>
> N.Houle

Voilà un petit truc tout simple, n'oublie pas de mettre la valeur Keypreview de ta feuille à True et que
Si tu veux un général pour toute ton application, tu devras faire une petite fonction. Ecris si tu as des probléme pour la faire.

Private Sub Form_KeyPress(KeyAscii As Integer)
'Permet de passer d'un champ à l'autre avec le ENTER
'Si la touche pressée est la touche ENTER ou la touche ENTER du pavé numerique

Private Sub Form_KeyPress(KeyAscii As Integer)
'Permet de passer d'un champ à l'autre avec le ENTER
'Si la touche pressée est la touche ENTER ou la touche ENTER du pavé numerique
If (KeyAscii = vbKeyReturn) Or (KeyAscii = vbKeySeparator) Then
'Alors executer la touche TAB
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub

Bon travail

-------------------------------
Réponse au message :
-------------------------------

Voilà un petit truc tout simple, n'oublie pas de mettre la valeur Keypreview de ta feuille à True et si tu veux un général pour toute ton application, tu devras faire une petite fonction.
Ecris si tu as des problémes pour la faire.

Private Sub Form_KeyPress(KeyAscii As Integer)
'Permet de passer d'un champ à l'autre avec le ENTER
'Si la touche pressée est la touche ENTER ou la touche ENTER du pavé numerique
If (KeyAscii = vbKeyReturn) Or (KeyAscii = vbKeySeparator) Then
'Alors executer la touche TAB
SendKeys "{tab}"
End If
End Sub

Bon travail