verrouillage menu avec deux mots de passe Fermé

Question

Bonjour, 

J'ai verrouillé l'accès à un de mes menus, mais je souhaite que l'accès soit possible avec 2 mdep, pour chacun des utilisateurs, utilisat 1 = pepet, ou utilisat 2 = tepep par exemple, voici la commande actuelle d'accès :

Dim stDocName As String
Dim response As String
    Do Until response = "pepet" Or response = "stop"
    response = InputBox("Veuillez entrer le mot de passe de sécurité pour continuer ou stop pour arrêter")
              If response = "pepet" Then
             
              DoCmd.OpenForm "frm_menu_NOTATION"
          
          ElseIf response = "stop" Then
              MsgBox "Vous avez saisi STOP, l'opération est annulée"
        End If
   Loop
Comment dois-je procéder pour rajouter de second mdep pour l'accès ?
Par avance merci
Cdlt
Configuration: Windows 7 / Chrome 24.0.1312.52

chossette9 · Answer

Bonjour, 
If response = "pepet" Or response = "tepep" Then
DoCmd.OpenForm ... 
 
Cordialement.

chanmat · Answer

Je veux tout de même laisser la partie "Or response = "stop"  sinon il va de soi que j'aurais rajouté "do until response = "pepet" or response = "tepep" ............. je veux laisser le stop également

Merci 
Si ma tante en avait elle serait mon oncle.

chanmat · Answer

Merci je vais essayer, car j'avais justement essayé en rajoutant une ligne mais ça bloque, il me manque un "do", je vais revoir tout ceci.
Cdlt

Tessel75 · Answer

Bonjour Chanmat,
 Ton  "Do until .... n'a rien à faire ici, il sert pour engager une boucle qui recommence avec " loop "
Or tu n'as pas de boucle mais des réponses alternatives. C'est pas pareils.
A plus tard.

chanmat · Answer

Merci de l'intérêt que tu portes à ma demande, tu dis que ma boucle est dangereuse, mais si tu regardes bien, j'indique par un message "veuillez entrer le mot de passe de sécurité pour continuer ou stop pour arrêter", justement pour que la boucle s'arrête. Maintenant il est vrai que j'ai probablement compliqué les choses mais ça fonctionne comme ça depuis très longtemps, je souhaitais juste pouvoir rajouter un MdeP à mon binôme pour ne pas donner celui que j'utilise , car j'ai d'autres saisies et celle-là ne sont vues que par ma hiérarchie qui connais mon mot de p et ne doivent pas être consultées autrement. Donc après réflexion j'avais pensé qu'avec l'accès sur 2 mots de passe et mon "stop" je gardais la confidentialité de certaines données.
Cdlt

Tessel75 · Answer

Salut, 
Tu m'avais expliqué ta problématique, où à tout le moins le contexte. Mais dans ce cas, je crois que tu devrais davantage chercher un moyen de stocker les MdP sur une petite table de telle sorte que tes MdP soient stockables et modifiables. Car qu'adviendra-t-il si un MdP est percé ou volé; tes remplaçants futurs seront bien en peine de corriger ton code pour y entrer un nouveau. Si tu veux que ton travail soit stable et durable, tu dois penser à cela aussi.

chanmat · Answer

Cc,
J'ai créé une petite table où les Mde P sont stockés, en ce qui concerne la relève j'ai déjà préparé mon "testament" pour ma succession. A l'heure actuelle, je suis la seule à savoir utiliser access et à l'exploiter, ce que je fait c'est pour moi bien entendu et aussi pour faire profiter mon binôme et ma hiérarchie de toute la richesse et la puissance d'une base de données sous access. Après moi, soit mon successeur va continuer dans la saisie sans faire évoluer, soit tout ce que j'ai fait depuis 7 ans (dans le service actuel ou je bosse) sera mis au rancart, soit mon successeur essaiera de s'y mettre et de s'investir dans access ????? j'ai des bases de programmation VBA mais j'ai aussi énormément évolué avec les forums et ce depuis la mise en place d'access 2, avec qui j'ai démarré toute seule. Alors est-ce que ma relève va être assurée "that is the question" je l'espère et mon but c'est justement de former dans ce sens mais ........ il faut avoir la passion et moi je l'ai ....mais hélas la passion n'est pas transmissible.
Merci

Verrouillage menu avec deux mots de passe

7 réponses

Discussions similaires