Discussion :

[patito1975]

Bonjour à tous et bonne année ...
J'ai une base de données en plein écran mais quand j'appuie sur la touche Shift+ouverture, elle s'ouvre en mode création.
J'aimerai mettre un mot de passe quand je fais cette manipulation donc lorsque l'on appuie sur Shift+ouverture, une demande de mot de passe apparait pour accéder au mode création.

Merci à vous

[PapouDomi]

Bonsoir.
J'avais eu ce type de besoin à une époque.
En plus d'un ruban personnalisé, j'avais fait un formulaire d'accueil qui se lançait au démarrage et désactivait automatiquement la touche shift en appelant une procédure:

Code :

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

1
2
3
4
Dim oMyDbs As Database
  Set oMyDbs = CurrentDb()
  oMyDbs.Properties("AllowByPassKey") = False
  Set oMyDbs = Nothing

Lors des lancements suivants, la touche Shift est désactivée.
Pour la réactiver, j'utilisais une séquence de touches du genre clic droit + Ctrl + Alt sur le fond du formulaire d'accueil pour appeler une procédure réactivant la touche Shift:

Code :

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

1
2
3
4
Dim oMyDbs As Database
  Set oMyDbs = CurrentDb()
  oMyDbs.Properties("AllowByPassKey") = True
  Set oMyDbs = Nothing

Dans ton cas, tu peut tout a fait remplacer la séquence de touches par un controle texte de saisie de ton mot de passe.
Regardes aussi par ici:http://http://www.developpez.net/for...-touche-shift/