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
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
Bonjour.
Quelque chose comme :
ou plus compacte :
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
où
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.
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
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.
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 ... .....
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 :
où IciLeNumeroDeErreur est numéro de l'erreur retournée par Access (je crois que c'est 2051).
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
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.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager