Discussion :

[electrosat03]

Salut,

Dans des forms, j'utilise lest touches de fonctions, donc avec VBKeyF3 etc, dans le code j'ai donc

Code :

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

1
2
3
4
5
6
7
8
9
Select Case KeyCode
        Case vbKeyF3 And Shift = 0 'Touche F3 - On cohe toutes les factures
        .....
        .....
        end select
    Ensuite on annule l'effet normal de la touche
    sinon, on peut utiliser les autres touches de fonction
    KeyCode = 0
    Shift = 0

Le problème est le suivant :

J'ai une liste déroulante pour choisir les noms, mais je ne peux pas entrer de lettre ou chiffre puisque j'annule toutes les actions avec Keycode=0 et Shift=0.

Donc, comment faire pour pouvoir quand même entrer des lettre et des chiffres dans la zone de liste.

Car je ne veux pas que les users utilisent les touches de fonctions autre que celles définient dans le code.

Merci A+

[Filou07]

Il faudrait que tu ajoutes un "case 0 to 65"

A vérifier pour ces valeurs, mais je crois que ce sont les codes ascii qui correspondent à (a-z)+(A-Z)+(0-9)....

[electrosat03]

Salut,

En fait, le problème c'est que si j'appuie sur par ex : F8, j'ai un message qui me prévient de l'action, si j'annule par un bouton 'annuler', l'action initiale de la touche F8 (Sélection d'une partie du texte) s'exécute.

Donc, comment empêcher cela?

Merci
A+

[electrosat03]

Salut,

Voici le code que j'ai placé pour résoudre mon problème.

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
17
18
19
    Select Case KeyCode
        Case vbKeyF6 And Shift = 0 'Touche F3 - On cohe toutes les factures
            'Message d'avertissement cocher toutes les factures
            Message = MsgBox("Vous allez cocher toutes les factures." & vbCrLf _
                & vbCrLf & "Voulez-vous continuer?", vbCritical + vbYesNo, _
                "Sélection des factures")
            If Message = vbNo Then
                KeyCode = 0
                Shift = 0
                Exit Sub
            End If
 
        Case vbKeyF1 To vbKeyF16 And Shift >= 0
            'On annule l'effet normal de la touche
            'sinon, on peut utiliser les touches de fonction
            KeyCode = 0
            Shift = 0
            Exit Sub
    End Select

Si qq a une autre solution, je suis preneur.

Je ne sais pas comment vous faites pour gérer vos touvhes de fonctions dans vos programmes, mais je crois qu'avec access, c'est un peu le bor...

A+