Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Nouveau membre du Club
    Femme Profil pro
    Administrateur de base de données
    Inscrit en
    février 2014
    Messages
    88
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : février 2014
    Messages : 88
    Points : 39
    Points
    39

    Par défaut Bouton de commande visible ou non

    Bonjour,
    Dans un formulaire j'ai un bouton de commande que je voudrai afficher (soit visible) que si l'utilisateur connecté appartient à la liste exemple (Pierre, Andre, habib)
    merci

  2. #2
    Modérateur

    Homme Profil pro
    Inscrit en
    octobre 2005
    Messages
    13 189
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations forums :
    Inscription : octobre 2005
    Messages : 13 189
    Points : 20 007
    Points
    20 007

    Par défaut

    Bonjour.

    Quelque chose comme :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    if not isnull(dfirst("Prenom","tblListePrenom","[Prenom]=""" & PrenomUsager & """)) then
        me.TonBouton.Visible=true
     else
        me.TonBouton.Visible=false
    end if
    ou plus compacte :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    me.TonBouton.Visible=(not isnull(dfirst("Prenom","tblListePrenom","[Prenom]=""" & PrenomUsager & """)))

    • Me. est le formulaire en cours qui contient le bouton.
    • PrenomUsager est une variable qui contient le prénom de ton usager en cours.
    • tblListePrenom est une table qui contient la liste des prénoms autorisés à voir le bouton.
      Sa strucure peut être aussi simple que :
      tblListePrenom
      Prenom (champ texte, 255 caractères)


    Ce code est a appeler au moment opportun, par exemple à l'ouverture du formulaire.

    Si tu as des questions n'hésite pas à les poser.

    A+
    Vous voulez une réponse rapide et efficace à vos questions téchniques ?
    Ne les posez pas en message privé mais dans le forum, vous bénéficiez ainsi de la compétence et de la disponibilité de tous les contributeurs.
    Et aussi regardez dans la FAQ Access et les Tutoriaux Access. C'est plein de bonnes choses.

  3. #3
    Nouveau membre du Club
    Femme Profil pro
    Administrateur de base de données
    Inscrit en
    février 2014
    Messages
    88
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : février 2014
    Messages : 88
    Points : 39
    Points
    39

    Par défaut

    Bonjour,
    Merci à MAROT
    je vous signale que je n'ai pas de table utilisateur dans ma base, j'ai créé les utilisateurs avec la GESTION DES UTILISATEURS ET DES GROUPES dans ACCESS merci encore une fois

  4. #4
    Modérateur

    Homme Profil pro
    Inscrit en
    octobre 2005
    Messages
    13 189
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations forums :
    Inscription : octobre 2005
    Messages : 13 189
    Points : 20 007
    Points
    20 007

    Par défaut

    Bonjour.

    Donc tu as utiliser la fonction de sécurité interne de Access.
    Elle s'applique hélas uniquement au niveau des objets comme les formulaires, les rapports, pas au niveau des contrôles (bouton, champ texte, ...) dans un objet.

    Et désolé mais c'est un sujet que j'ai soigneusement évité.
    Je te réfère à :
    Comprendre et mettre en oeuvre la sécurité sous Microsoft Access
    https://loufab.developpez.com/tutori...cess/securite/
    Pour des détails sur cela

    et au FAQ

    https://access.developpez.com/faq/?page=user
    Pour comment s'en servir dans du code.

    A+
    Vous voulez une réponse rapide et efficace à vos questions téchniques ?
    Ne les posez pas en message privé mais dans le forum, vous bénéficiez ainsi de la compétence et de la disponibilité de tous les contributeurs.
    Et aussi regardez dans la FAQ Access et les Tutoriaux Access. C'est plein de bonnes choses.

  5. #5
    Nouveau membre du Club
    Femme Profil pro
    Administrateur de base de données
    Inscrit en
    février 2014
    Messages
    88
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : février 2014
    Messages : 88
    Points : 39
    Points
    39

    Par défaut

    Bonjour et merci encore
    j'ai essayé ceci (les 2 lignes rouges) dans 'SUR CLIC' du bouton et ça a donné à peu près ce que je voulais :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    ....
    ....
    ...
    If Application.CurrentUser = "Pierre" Then
        stDocName = "Formulaire a ouvrir"
        DoCmd.OpenForm stDocName, , , stLinkCriteria
    End If
    ...
    .....

  6. #6
    Modérateur

    Homme Profil pro
    Inscrit en
    octobre 2005
    Messages
    13 189
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations forums :
    Inscription : octobre 2005
    Messages : 13 189
    Points : 20 007
    Points
    20 007

    Par défaut

    Bonjour.

    Note que cette solution l'avantage de la simplicité mais va te poser des problèmes dans le futur si Pierre est remplacé par Jacques il va falloir modifier ton code.

    Comme tu ouvres un formulaire, je penses que tu peux définir la sécurité sur ce formulaire et l'interdire à Pierre.
    Après il te restera à gérer l'erreur d'ouverture au niveau de ton code.

    dans le code associé au On error Goto, tu peux mettre quelque chose comme :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    if err.number = IciLeNumeroDeErreur then
         msgbox "Désolé vous n'avez pas accès."
     else
         msgbox "Erreur " & err.number & ", " & err.description, vbExclamation 'Affche l'erreur si ce n'est pas celle qui est prévue.
    end if
    où IciLeNumeroDeErreur est numéro de l'erreur retournée par Access (je crois que c'est 2051).

    A+
    Vous voulez une réponse rapide et efficace à vos questions téchniques ?
    Ne les posez pas en message privé mais dans le forum, vous bénéficiez ainsi de la compétence et de la disponibilité de tous les contributeurs.
    Et aussi regardez dans la FAQ Access et les Tutoriaux Access. C'est plein de bonnes choses.

Discussions similaires

  1. [XL-2010] Rendre invisible puis visible un bouton de commande
    Par chindou dans le forum Excel
    Réponses: 2
    Dernier message: 10/08/2014, 20h26
  2. [AC-2003] rendre visible un bouton de commande
    Par chuspyto dans le forum IHM
    Réponses: 3
    Dernier message: 19/10/2010, 17h44
  3. [A-03] Boutons visible ou non
    Par aide03 dans le forum IHM
    Réponses: 1
    Dernier message: 18/10/2008, 10h44
  4. bouton de commande visible/invisible
    Par gberthier dans le forum IHM
    Réponses: 4
    Dernier message: 14/02/2008, 14h18
  5. [forms 10g] Rendre Bouton De Commande Non Accessible
    Par lolafrite dans le forum Forms
    Réponses: 5
    Dernier message: 21/03/2007, 17h20

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo