Discussion :

[scado]

Bonjour a tous est-il possible de désactivé ou changé la touche shift lors de l'ouverture de la base après avoir entrer avec leurs mot de passe, permette au gens d'avair accès a tous les formulaire et au menu. Pour que certaine personne ne modifie rien.

Merci a la prochaine

[scado]

Rebonjour j'ai vue le tuto Inhiber la touche MAJ au démarrage c'est cool mais c'est dans un module a ce que je comprend et comment le faire passé avant l'entrer du mot de passe.

merci a l'avance je continue mes recherches.

[jcdenton057]

Je crois que ca se situe dans le menu Outils, puis demarrage.
Tu as une case à cocher : Utiliser les touches spéciales d'accès.

En décochant, il me semble que la touches SHIFT est désactivée.

[scado]

Je crois que ca se situe dans le menu Outils, puis demarrage.
Tu as une case à cocher : Utiliser les touches spéciales d'accès.

En décochant, il me semble que la touches SHIFT est désactivée.

Merci de ta réponse mais ça ne marche pas je vien de le tester. Je ne sais pas s'il y a d'autre chose a faire avec ça..

[ClaudeLELOUP]

Bonjour,

Pour voir ce qui se passe, procède comme ceci :

D’abord, vérifie que dans ta DB, il y a un événement de chargement de la base (l’ouverture automatique d’un formulaire, l’exécution d’une macro « autoexec », …). Si non, ce qui suit est sans intérêt.

Normalement, si tu ouvres ta DB, cet événement se produit avant que l’utilisateur ait la main.
Si tu l’ouvres avec la touche MAJ enfoncée, la DB s’ouvre en by-passant cet événement.

Ce qui suit, va te montrer ce qui se passe avec les fonctions « SetBypassProperty() » et « UnSetBypassProperty() » qui permettent respectivement d'inhiber l'effet de la touche MAJ ou de le rétablir.

1° copie ceci dans un module (c’est le contenu du tuto « Inhiber la touche MAJ au démarrage » après correction d’une faute de frappe)

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
Sub SetBypassProperty()
Const DB_Boolean As Long = 1
    ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub
Sub UnSetBypassProperty()
Const DB_Boolean As Long = 1
    ChangeProperty "AllowBypassKey", DB_Boolean, True
End Sub
 
Public Function ChangeProperty(strPropName As String, varPropType As Long, varPropValue As Variant) As Integer
    Dim dbs As Database, prp As Variant
    Const conPropNotFoundError = 3270
    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
Change_Bye:
    Exit Function
Change_Err:
    If Err = conPropNotFoundError Then    ' Propriété non trouvée.
    Set prp = dbs.CreateProperty(strPropName, _
    varPropType, varPropValue)
    dbs.Properties.Append prp
    Resume Next
Else
  ' --Erreur inconnue.
  Resume Change_Bye
End If
End Function

2° Exécute « SetBypassProperty() »

3° Ferme ta DB

4° Ouvre ta DB avec ou sans la touche MAJ, le résultat est le même : les événements de chargement de la base se déclenchent. L’effet de la touche MAJ est inibé.

5° Exécute « UnsetBypassProperty() »

6° Ferme ta DB, et ouvre à nouveau. Sans MAJ, l’événement de chargement de la base se déclenche. Avec MAJ, non. L’effet de la touche MAJ a été rétabli.


Ceci dit, j’ignore ce que tu veux faire dans le détail.
A mon avis, à l’ouverture de la DB, il devrait y avoir un formulaire d’accès qui invite l’utilisateur à s’identifier et c’est alors que tu devrais prévoir les aiguillages qui conviennent.
Pour éviter qu’un utilisateur puisse ouvrir la DB en by-passant le remplissage du formulaire d’accès, exécute « SetBypassProperty() » une fois pour toute.

Amicalement.