Affecter code à une touche

**jmcm066** · 20/02/2007, 08h54

Bonjour,

J'ai un formulaire " agenda" qui contient un sous formulaire "sub_agenda", dans lequel j'ai trois onglets "perso_a", "pers_b" et "perso_c"
voila ce que j'aimerais faire,
Affecter à la touche {F10} "perso_a"
Affecter à la touche {F11} "perso_b"
Affecter à la touche {F6} "perso_c"
Est-ce possible?

Merc d'avance pour votre aide

**Gary_Stoupy** · 20/02/2007, 09h20

bonjour,

oui oui, c'est tout à fait faisable
Dans le code vba, tu as un évènement du genre KeyPress, ou KeyDown de ton formulaire.
Et la tu teste si la touche appuyée est l'une de tes 3 touches.
Si c'est f10, tu affiches l'onglet "perso_a" etc...

Tu vois comment faire ?

**FreeAccess** · 20/02/2007, 12h00

Bonjour,

Tu vois comment faire ?

Pour cela la

est encore le meilleur endroit:
http://access.developpez.com/faq/?pa...efActionTouche

Bonne recherche....et lecture..

**jmcm066** · 20/02/2007, 13h20

Bonjour,

Merci à vous deux, pour vos réponses, mais (car il y a un mais), ça ne fonctionne pas, je ne vois pas ou j'ai bien pu me tromper.
Donc sur les propriétes de mon formulaire "Agenda"
"AperçuTouches" oui
Su Touche Appuyée j'ai entré ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
    Case vbKeyF10
      Me![CtlTab0].Pages(0).SetFocus
    Case vbKeyF11
      Me![CtlTab0].Pages(1).SetFocus
    Case vbKeyF6
      Me![CtlTab0].Pages(2).SetFocus
    Case Else
      Exit Sub
  End Select
 
End Sub

Si vous voyez quelque chose qui cloche

Merci d'avance

**Domi2** · 20/02/2007, 14h00

Bonjour,

Plutôt que le focus, essaye peut-être

Code :

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

1
2
3
Select Case KeyCode
Case vbKeyF10
DoCmd.GoToControl "NomPageOnglet"

où "NomPageOnglet" est la propriété nom de ta page.

Domi2

**jmcm066** · 20/02/2007, 14h37

Bonjour,

Je te remercie domi2 , mais ca ne foctionne pas en fait je n'ai aucun message d'erreur , c'est comme s'il se passait rien

Merci

**Domi2** · 20/02/2007, 15h06

Re,

Je viens de tester ce petit bout de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
    'Inactivation des touches Page Up et Page Down
    If KeyCode = vbKeyPageUp Or KeyCode = vbKeyPageDown Then
 
        KeyCode = 0
 
    End If
 
    If KeyCode = vbKeyF10 Then
 
        DoCmd.GoToControl "Infos revenus I"
 
    End If
 
End Sub

Ca fonctionne parfaitement...

La propriété Aperçu des touches est bien à oui ?

Et attention "Infos revenus I" est le nom de la page de l'onglet que je souhaite atteindre.

Essaie peut-être d'abord de simplifier ton code avec une seule touche et affichage d'une msgbox, par exemple, pour voir déjà si tu interceptes bien l'événement...

Domi2

**jmcm066** · 20/02/2007, 16h07

--------------------------------------------------------------------------------

Bonjour,

Je suis désolé ma description n'etait pas compléte
J'ai un formulaire " agenda" qui contient un sous formulaire "sub_agenda", dans lequel j'ai trois onglets "perso_a", "pers_b" et "perso_c";
Dans l'onglet "perso_a" j'ai un formulaire "A"
Dans l'onglet "perso_b" j'ai un formulaire "B"
Dans l'onglet "perso_c" j'ai un formulaire "C"
voila ce que j'aimerais faire,
Affecter à la touche {F10} "perso_a"
Affecter à la touche {F11} "perso_b"
Affecter à la touche {F6} "perso_c"
Est-ce possible?

Merc d'avance pour votre aide

**Faw** · 20/02/2007, 16h33

Salut, pas de raison que ça ne marche pas avec .SetFocus

Code :

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

Me.Ctlonglet.Pages(1).SetFocus

Mais si l'événement est déclanché depuis le form parent

Code :

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

me.NomduControleSousFormulaire.form!Ctlonglet.Pages(1).SetFocus

**jmcm066** · 20/02/2007, 22h57

Bonsoir,

Je n'y comprend plus rien du tout, j'ai éssayé sur un formulaire qui contient un sous formulaire avec trois onglets , avec le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
   Case vbKeyF10
     Me.CtlTab0.Pages(0).SetFocus
   Case vbKeyF8
     Me.CtlTab0.Pages(1).SetFocus
   Case vbKeyF6
     Me.CtlTab0.Pages(2).SetFocus
     End Select
End Sub
End Sub

ça fonctionne à merveille, mais dés que je mets un formulaire dans chaque onglet ca plante, par exemple

Formulaire "A" dans onglet Page1
Formulaire "B" dans onglet Page2
Formulaire "C" dans onglet Page3
Je joins une base avec l'exemple

Merci

**FreeAccess** · 20/02/2007, 23h13

Bonsoir,
Sur ton formulaire principal, qui comporte ton sous-formulaire avec ton contrôle onglet.....il ne faut pas oublier de mettre :
Apercu des touches = Oui

Tu verras cela fonctionne beaucoup mieux...

**jmcm066** · 20/02/2007, 23h49

Bonsoir,

Ca ne fonctionne toujours pas, j'ai fait comme tu m'as dit FreeAccess mais j'ai aucun résultat je joins la base avec les formulaires A B C inclus dans les onglets

Merci

**FreeAccess** · 21/02/2007, 00h02

Ce n'est pas la peine, je l'ai déjà fait......

Correction: Comme te le suggéré déjà Faw, il faut :

-1-Sur événement "Sur touche appuyée" du Form "Agenda":

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
   Case vbKeyF10
'Ici on référence à partir du form parent, donc bien préciser que le contrôle concerné se trouve sur ton sous-formulaire
     Me.Sub_Agenda.Form!CtlTab0.Pages(0).SetFocus
   Case vbKeyF8
     Me.Sub_Agenda.Form!CtlTab0.Pages(1).SetFocus
   Case vbKeyF6
     Me.Sub_Agenda.Form!CtlTab0.Pages(2).SetFocus
     End Select
End Sub

-2- Mettre "Apercu des touches" = Oui

-3- Le code sur "Sub-Agenda" n'est plus necessaire.

Par contre, attention:
-l'utilisation de la touche F10 n'est pas une bonne idée, car à chaque fois tu provoqueras l'accés au menu....

-pourquoi, faire un sous-formulaire pour contenir uniquement un contrôle Onglet, qui lui même contiendras un sous-formualire dans chaque Page

.....Mets directement ton contrôle onglet sur ton Form principal.
-de plus pourquoi utilser des onglets si tu veux les activer par l'action d'une touche

Teste voir tout cela...et je pense que tu peux faire plus simple et donc plus efficace...

**jmcm066** · 21/02/2007, 00h27

Bonsoir,

J'ai recopié ce code sur
Sur événement "Sur touche appuyée" du Form "Agenda":
j'ai mis "Apercu des touches" = Oui
j'ai supprim le code sur "sub_agenda"
toujours pareil ça ne fonctionne pas, j'ai changé de touche F3 F6 F8

**FreeAccess** · 21/02/2007, 00h32

Ok, comme il commence à ce faire tard......

Je te joins ta base corrigée.....(avec touche F9 / F8 / F6)
Attention, je l'enlève dès demain....

Bonne fin de nuit...

**jmcm066** · 21/02/2007, 07h49

Bonjour,

J'ai téste la base corrigée ,mais chez moi il ne se passe rien quand j'appuie sur les touches F6, F8, F9,
je joins ma base avec la table "tmp_Agenda" que j'avais oublié

Merci

**jmcm066** · 21/02/2007, 13h12

Bonjour,

J'ai un formulaire " agenda" qui contient un sous formulaire "sub_agenda", dans lequel j'ai trois onglets "F10", "F8" et "F6";

Dans l'onglet "F10" j'ai un formulaire "A"
Dans l'onglet "F8" j'ai un formulaire "B"
Dans l'onglet "F6" j'ai un formulaire "C"

voila ce que j'aimerais faire,
Affecter à la touche {F10} à l'onglet "F10"
Affecter à la touche {F8} à l'onglet "F8"
Affecter à la touche {F6} à l'onglet "F6"
Est-ce possible?

Y aurait-il une âme charitable pour tester mon probléme en lancant le formulaire "Agenda" . Ma base est dans le post précédant

Merci

**Domi2** · 21/02/2007, 13h45

Re,

FreeAccess a dit

-pourquoi, faire un sous-formulaire pour contenir uniquement un contrôle Onglet, qui lui même contiendras un sous-formualire dans chaque Page .....Mets directement ton contrôle onglet sur ton Form principal.

Tu devrais déjà commencer par là, tu te simplifierais la vie...

Domi2

**jmcm066** · 21/02/2007, 18h33

Bonjour,

Pourquoi j'ai un sous-formulaire qui contient des onglets qui eux contiennent aussi des formulaires dans un formulaire?
Tout simplement parce que j'ai un calendrier dans mon formulaire principale qui met a jour le sous-formulaire quand on clique sur une date

**FreeAccess** · 21/02/2007, 18h46

Bonjour,
En premier, j'ai bien regardé la deuxième base........Pourquoi change-tu systématiquement ce que l'on te conseille

Code :

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

1
2
Case vbKeyF8
     Me.Sub_Agenda.Form!CtlTab0.F8.SetFocus

Hier dans ma correction (qui fonctionne très bien chez moi), je faisais référence à la page de l'onglet:

Code :

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

1
2
Case vbKeyF8
     Me.Sub_Agenda.Form!CtlTab0.Page(1).SetFocus

Ensuite (sans vouloir insister....

) et comme le souligne également Domi2, tu peux très bien mettre sur ton Form principal un contrôle Onglet et un calendrier....je ne vois pas se qui t'en empêche

Ensuite dans chacunes des pages du contrôle Onglet, tu mets tes Sous-Form....
Donc au risque de me répéter, va au plus simple.....Bonne continuation.

Affecter code à une touche

IHM

Discussions similaires

Partager

Partager