Discussion :

[atifo]

salut
je veux programmer le boutton de clavier pour déplacer dans les enregistrement

lorsque j'appuie sur la flèche avant ou après du clavier, je veux que s'exécute le code suivant :
pour déplacer après

Code :

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

1
2
3
4
5
On Error Resume Next
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
End If

et ça pour déplacer avant

Code :

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

1
2
3
4
5
6
On Error Resume Next
 
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveNext
End If

merci de suivi

[ucfoutu]

Bonjour,

Joue avec la propriété KeyPreview de ta Form et le Keycode retourné lors de l'évènement KeyDown...

Ainsi (exemple) :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Activate()
  Me.KeyPreview = True
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = vbKeyUp Then MsgBox "up"
 If KeyCode = vbKeyDown Then MsgBox "down"
End Sub

Mais attends-toi à des conflits avec certains contrôles ayant le focus à ce moment-là, tel une textbox multiline ...

[atifo]

oui

j'excute votre code mais le curseur de souris il reste dans le champ text

[zazaraignée]

Salut

Pour résumer :
Tu veux te déplacer d'un enregistrement à l'autre dans la table de données à l'aide des flèche droite et gauche (ou haut et bas, sait pas très bien ce que tu entends par avant et après) et afficher l'enregistrement ainsi atteint.

J'ai bien compris ?

Pour la suite, peut-être que, comme le mentionne ucfoutu, le problème vient d'un conflit de 'focus' avec les autres conposants de ta fenêtre.

Tu pourrais peut-être utiliser une combinaisons comme Ctrl + —> et Ctrl + <—.

Je n'ai pas vraiment d'autre idées en ce moment... je ne suis pas en mesure de tester.

Bon courage