Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 30/04/2011, 13h20   #1
Nouveau Membre du Club
 
Inscription : janvier 2008
Messages : 114
Détails du profil
Informations forums :
Inscription : janvier 2008
Messages : 114
Points : 34
Points : 34
Par défaut Evènement déclenché par une tabulation arrière

Bonjour,

Et désolée par avance si ma question est toute bête, mais je n'ai pas trouvé la réponse

Je souhaite déclencher un évènement lorsque l'utilisateur de ma base fait une tabulation arrière et appui donc sur la touche "majuscule" et sur la touche "tabulation".

J'ai essayé avec les évènements "touche appuyée" et "touche relachée", mais le problème vient du fait que dans les deux cas, une seule des 2 touches est prise en compte, et non la combinaison des deux.

Ainsi, avec l'évènement suivant, seul l'appui sur la première touche déclenche l'évènement.

Code :
1
2
3
4
5
6
7
8
9
10
11
Private Sub MonChamp_KeyDown(KeyCode As Integer, Shift As Integer)
 
    'Process si touches Majuscule + tabulation
     If KeyCode = vbKeyShift + vbKeyTab Then
 
        'test
        MsgBox "bip"
 
    End If
 
End Sub
Mon code, forcément ne marche pas.

Quelqu'un aurait-il une idée ?

Merci d'avance
Tipstitou est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 30/04/2011, 15h29   #2
Rédacteur
 
Avatar de LedZeppII
 
Homme
Maintenance données produits
Inscription : décembre 2005
Messages : 3 939
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Yvelines (Île de France)

Informations professionnelles :
Activité : Maintenance données produits
Secteur : Distribution

Informations forums :
Inscription : décembre 2005
Messages : 3 939
Points : 6 278
Points : 6 278
Bonjour,

C'est l'argument Shift qui permet de savoir si la touche MAJ est enfoncée.
Code :
1
2
3
4
5
6
Private Sub MonChamp_KeyDown(KeyCode As Integer, Shift As Integer)
' Shift-TAB
If (KeyCode = vbKeyTab) And ((Shift And acShiftMask) <> 0) Then
   MsgBox "MAJ+TAB"
End If
End Sub
A+
LedZeppII est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 01/05/2011, 08h33   #3
Nouveau Membre du Club
 
Inscription : janvier 2008
Messages : 114
Détails du profil
Informations forums :
Inscription : janvier 2008
Messages : 114
Points : 34
Points : 34
Génial !
C'est exactement ce que je cherchais.

Merci beaucoup :-)
Tipstitou est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 09h29.


 
 
 
 
Partenaires

Hébergement Web