Discussion :

[lololebricoleur]

Bonjour,

J'ai un truc bizarre sur mon application Access.
Les touches de verrouillage des majuscules ou encore d’activation/désactivation du pavé numérique changent d’état « toutes seules » à priori.
Je dis à priori car ça n’arrive que dans des contextes similaires, sur différents poste mais pas à chaque fois.

- Premier cas : Un formulaire de création d’enregistrement s’ouvre et la touche de verrouillage des majuscules fonctionne à l’inverse.
Donc quand elle est activée, les caractères saisis sont en minuscule (alors qua ça devrait être l’inverse évidement) et réciproquement.
Je précise que la touche n’est pas manipulée et la touche majuscule non plus.

- Autre cas : A l’impression d’un état, le pavé numérique est désactivé

Avez-vous eu déjà ce genre de cas et auriez-vous une explication ou/et une solution svp ?

Merci d’avance de votre aide

[lololebricoleur]

Le code exécuté à l'ouverture du formulaire qui pose le problème de la touche majuscule :

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
20
21
22
Private Sub Form_Load()
On Error GoTo Erreur
 
    'Variables
    Dim varValeurs As Variant
 
    'Récupération des arguments passés à l'ouverture du formulaire
    varValeurs = Split(Me.OpenArgs, ";")
 
    If IsNull(varValeurs) = False And varValeurs(0) > 0 Then
         Me.COR_Rep = varValeurs(0)
         Me.Entreprise = DLookup("REP_Raison", "REPertoire", "REP_Num=" & varValeurs(0))
    End If
 
Sortir:
    Exit Sub
 
Erreur:
    MsgBox err.Description
    Resume Sortir
 
End Sub

Un autre code exécuté à l'ouverture du formulaire précédent, on sais jamais :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub Form_Open(Cancel As Integer)
On Error GoTo Erreur
 
    'Variables
    Dim STAGE As Long
    Dim Formation As Long
    Dim Jeu As New adodb.Recordset
    Dim Con As New adodb.Connection
 
    Set Con = Application.CurrentProject.Connection
 
    SQl = "SELECT TOP 1 SESsions.*, STAge.*, FORmation.* " & _
    "FROM FORmation INNER JOIN (STAge INNER JOIN SESsions ON STAge.STA_Num = SESsions.SES_Stage) ON FORmation.FOR_Num = STAge.STA_For " & _
    "WHERE (((SESsions.SES_Num)=" & Y & "));"
 
    Jeu.Open SQl, Con, adOpenKeyset, adLockReadOnly
    Jeu.Open SQl, Con, adOpenKeyset
 
    While Not Jeu.EOF
        STAGE = Jeu!SES_Stage
        Formation = Jeu!STA_For
        Me.Titre = Jeu!STA_Titre
        Me.Duree = Jeu!FOR_Duree_h
        Me.DDeb = Jeu!SES_DD
        Me.DFin = Jeu!SES_DF
        Jeu.MoveNext
    Wend
 
    Jeu.Close
    Set Con = Nothing
 
Fermer:
    Exit Sub
 
Erreur:
    MsgBox err.Description
    Resume Fermer
 
End Sub

Dans ce formulaire, j'utilise aussi un SendKeys "{F4}" pour fermer une liste, est-ce que ça peut avoir un rapport ?

[Thierry_PALLIER]

Bonjour le forum.

@lololebricoleur : C'est un des effets pervers de Sendkeys, et c'est pour celà que leur utilisation n'est pas recommandé.

En remplacement, j'utilise la solution décrite ici

[lololebricoleur]

Merci Thierry,

le code

Code :

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

1
2
3
Public Declare Sub keybd Lib "user32" Alias "keybd_event" _
(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

Je le place où ?

Avec cette solution et si je comprend bien, mon sendkey {f4} devient call appui_touche(115) ?

[Thierry_PALLIER]

Bonjour.

Ce code va en tête d'un module standard.

Pour l'appeler, remplace ton sendkey {f4} par appui_touche (115) ou appui_touche (vbKeyF4).
Il n'y a pas besoin du Call.

Cdlt

[Thierry_PALLIER]

J'ai oublié de préciser, comme tu n'en parles pas et pour la compréhension de tous :

Code :

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

1
2
3
4
5
6
Public Sub appui_touche(T As Long)
        'appuie sur la touche
        keybd T, 0, 0, 0
        'relache la touche
        keybd T, 0, 2, 0
End Sub

[lololebricoleur]

Merci thierry ;-)

[lololebricoleur]

Merci thierry ;-)