Discussion :

[marietherese22]

Bonjour à tous,

J'ai créé un programme qui s'ouvre sur un formulaire, passe d'une fenêtre modale à une autre, et ferme Access en quittant. Ainsi, il me faut encore inhiber la touche MAJ pour empêcher les utilisateurs d'accéder aux tables autrement que via mes formulaires.

J'ai trouvé sur le site et dans le forum un code pour inhiber cette touche (Inhiber la touche MAJ au démarrage), je l'ai copié dans un module quelconque, et suivant les conseils du post Inhibation de la touche MAJ, j'ai fermé ma base et je l'ai relancée. Mais la touche MAJ continue à fonctionner, mon formulaire d'ouverture ne s'ouvre pas, et la structure de ma base est accessible.

Pourriez-vous m'indiquer comment exploiter ce code : dans un module particulier ? en l'appelant de quelque part ? Pour information, j'utilise Access 2000.

Merci d'avance de vos réponses, et désolée pour cette question un peu débutante...

[mout1234]

Bonsoir et bienvenu sur le forum.

Ce code n'a d'effet que s'il est lancé.
Charges à toi de choisir quand et comment tu dois rendre la touche Shift accessible et quand tu dois la rendre inaccessible.

Pour désactiver la touche shift, il suffit d'exécuter la fonction SetBypassProperty, par exemple en la lançant depuis la fenêtre d'exécution.
Au prochain démarrage, la touche shift n'a plus d'effet.


Pour la réactiver, certains mettent un accès discret à la fonction permettant de réactiver la touche shift (raccourci clavier, bouton invisible dans un formulaire particulier, double clic sur une zone de texte transparente...), sans que l'utilisateur sache le faire facilement. Dans ce cas, il te faut simplement lancer la procédure de réactivation de la touche shift

Par exemple:

Code :

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

1
2
3
Sub cmdBoutonCaché_click()
    UnSetBypassProperty
end sub

Pour ma part, je préfère mettre ce traitement hors de la base au travers d'un petit utilitaire codé sous Access... mais cela revient au même.

[marietherese22]

Merci beaucoup pour ta réponse, j'essaye demain matin !