none
mot de passe sur bouton de commande Access 2010 RRS feed

  • Question

  • bonjour, je tente depuis un certain temps de mettre un mot de passe sur un bouton de commande dans ma base de données access 2010.  il ne faut rien de très complexe mais toutes les informations trouvées sur le web me rapporte à Access 2003 et ne fonctionne pas en 2010.  voici le code source du bouton à modifier.  un input box saissant un mot de passe prédéfini serait l'idéal pour l'application voulue:

    ' Command3_Click
    '
    '------------------------------------------------------------
    Private Sub Command3_Click()
    On Error GoTo Command3_Click_Err

        DoCmd.OpenForm "SECONDAIREADMIN", acNormal, "", "", , acNormal


    Command3_Click_Exit:
        Exit Sub

    Command3_Click_Err:
        MsgBox Error$
        Resume Command3_Click_Exit

    End Sub

    y a t il une méthode simple d'arriver à mes fins. merci beaucoup à l'avance et bonne journée

    lundi 12 septembre 2011 13:02

Toutes les réponses

  • Bonjour François,

    comme ceci ? « DoCmd.OpenForm "SECONDAIREADMIN", acNormal,,,,acDialog »
    Je te conseille aussi « MsgBox Err.Description » à la place de Error$

    Sinon, pour la gestion de droits (qui peut faire quoi), je te conseille cette lecture
    http://www.cambier.eu/pascal/codes/access-trousseau/gestion-itinerante-de-droits-la-methode-du-trousseau-de-cles.html

    Cordialement,

    lundi 12 septembre 2011 15:31
  • Bonjour Blaise,

    merci beaucoup pour la réponse.  je ne suis pas certain de bien comprendre ce qui est à faire afin de faire fonctionner un mot de passe sur le bouton de commande.  j'ai tenté d'apporter les modifications dont tu m'as parlé mais plus rien ne fonctionne par la suite.  disons que je n'ai pas touché à la programmation VBA depuis plus de 10ans et les versions ont beaucoup changé depuis alors peu importe ce que j'essaie, je me retrouve avec des boutons de commande qui ne fonctionne plus du tout.  je ne sais pas si tu as une réponse un peu plus complète à me fournir ou si quelqu'un d'autres pourrait m'aider à ce sujet... je suis totalement dans le néant. 

    la gestion des droits semble être très intéressante quoi que beaucoup trop complexe pour l'application recherchée en ce moment.  nous ne cherchons qu'on mur psychologique en barrant un accès avec un mot de passe.

    merci beaucoup à l'avance pour tout ceux qui pourrait m'aider

    bonne journée

    mardi 13 septembre 2011 13:16
  • Bonjour François,

    À la fin de la documentation signalée dans mon post précédent,

    Il y a un formulaire de « login » qui simule un inputbox pour Contrôler l'accès en mode « Non Runtime ». (Frm_902_No_Runtime dans la base exemple).  Il « suffit » de s'en inspirer :

         -          Il y a une zone de texte (TxtInput) dont l'une des propriétés est « Password » à oui (affiche des « * » à la place du texte

    -          Un bouton annuler (Cmd_Annuler)

    -          Un bouton ok (Cmd_Ok)

    Voici un exemple de code à l'intérieur de ce formulaire

    Option Compare Database
    Option Explicit
    Private Sub Cmd_Annuler_Click()
        Application.Quit 'ce qui faut faire quand on annule (par ex ici quitter l'application)
    End Sub
    Private Sub Cmd_Ok_Click()
    If Me.TxtInput <> "password" Then

    'ce qui faut faire quand le mot de passe est mauvais

    Else

    'ce qui faut faire s'il est bon

    End if
    DoCmd.Close 'fermer le formulaire

    End Sub

    Pour appeller ce formulaire, il y a le code suivant :

            DoCmd.OpenForm "Frm_902_No_Runtime", acNormal, , , , acDialog

    Bonnes recherches et bon courage,

    Cdt,

    Blaise

    mercredi 14 septembre 2011 14:34