Discussion :

[LAURENT5454]

Bonjour,

Je suis nouveau sur ce forum et je pratique ACCESS depuis une quinzaine d'années pour mon travail, sur ACCESS 2016 quand j'ouvre
une base créée l'application m'annule le VERR NUM ce qui m'oblige à le réactivité à chaque ouverture.
Sur les versions précédentes d'ACCESS je n'ai jamais rencontré ce problème.

Pour info j'ai déjà activer le NUM LOCK sur le BIOS et dans REGEDIT

Quelqu'un peut m'aider ?

Merci à tous

Laurent

[marot_r]

Bonjour.

Est-ce dés l'ouverture de Access ou dés que tu ouvres une BD en particulier ?

A+

[LAURENT5454]

Bonjour,

En fait quand j'ouvre Access je me dirige vers une BD dans lequel il y a un menu général dans lequel avec des macros j'ouvre d'autres formulaires et c'est
à l'ouverture des autres formulaires que le problème se pose.

A+

[marot_r]

Peut-être y a t'il du code qui fait volontairement "sauter" le num-lock.

Ou qu'il y a un SendKeys.

Vérifie pas à pas tes instructions pour voir à quel moment exact cela se produit.

Sinon tu peux aussi "réactiver" le num-lock par code après l'ouverture du formulaire.

A+

[LAURENT5454]

Alors j'ai regardé, il y a pas de sendkeys

Pour les autres formulaires de cette BD avec les macros je crée des actions "envoie touches" qui me permettent
de réactiver le VERR NUM

Par contre s'agissant d'un formulaire avec sous formulaire c'est plus compliqué pour moi.

Ci joint la procédure événement:

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
Option Compare Database
 
Private Sub Commande85_Click()
 
End Sub
 
Sub Form_Current()
On Error GoTo Form_Current_Err
 
    If ChildFormIsOpen() Then FilterChildForm
 
Form_Current_Exit:
    Exit Sub
 
Form_Current_Err:
    MsgBox Error$
    Resume Form_Current_Exit
 
End Sub
Sub LienBascule_Click()
 
 
    If ChildFormIsOpen() Then
        CloseChildForm
    Else
        OpenChildForm
        FilterChildForm
    End If
 
LienBascule_Click_Exit:
    Exit Sub
 
LienBascule_Click_Err:
    MsgBox Error$
    Resume LienBascule_Click_Exit
 
End Sub
Private Sub FilterChildForm()
 
    If Me.NewRecord Then
        Forms![DEVIS].DataEntry = True
    Else
        Forms![DEVIS].Filter = "[N° DE CLIENT] = " & Me![N° DE CLIENT]
        Forms![DEVIS].FilterOn = True
    End If
 
End Sub
Private Sub OpenChildForm()
 
    DoCmd.OpenForm "DEVIS"
    If Not Me![LienBascule] Then Me![LienBascule] = True
 
End Sub
Private Sub CloseChildForm()
 
    DoCmd.Close acForm, "DEVIS"
    If Me![LienBascule] Then Me![LienBascule] = False
 
End Sub
Private Function ChildFormIsOpen()
 
    ChildFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, "DEVIS") And acObjStateOpen) <> False
 
End Function
 
 
Private Sub Commande77_Click()
On Error GoTo Err_Commande77_Click
 
    Dim stDocName As String
 
    stDocName = "ANNULER FACTURE"
    DoCmd.RunMacro stDocName
 
Exit_Commande77_Click:
    Exit Sub
 
Err_Commande77_Click:
    MsgBox Err.Description
    Resume Exit_Commande77_Click
 
End Sub