Macro pour mot de passe [Résolu]

[pat17]

Bonjour le forum,
Je souhaiterai créer une macro afin que l'ouverture d'un formulaire par un bouton soit validée par un mot de passe.

Merci de votre aide et bonne journée à tous

[Philippe JOCHMANS]

Bonjour

Je pense que tu veux parler d'un formulaire de connexion.

Si c'est le cas, tu pourrais t'inspirer de ce qu'il y a dans la FAQ Access : http://access.developpez.com/faq/?page=TAAdmin#login

Philippe

[pat17]

Bonjour Philippe JOCHMANS et merci de ton aide,

Pour répondre à ta question, Non, si je pouvais éviter.
Ce que je recherche :
Clique sur un bouton pour ouvrir un formulaire,
Demande de mot de passe,
Si correct, ouverture du formulaire,
Si incorrect, message puis retour au menu général.

J'ai regardé dans le forum mais n'ai pas trouvé mon bonheur.

Bonne journée à tous.

[Domi2]

Bonjour,

Ce que tu demandes n'est en tout cas pas possible jusqu'à la version 2003.

Peut-être avec les versions 2007 ou 2010 (tu ne précises pas quelle version tu utilises) mais j'en doute un peu.

Quoi qu'il en soit, les macros (et j'ai commencé par là), si elles permettent d'automatiser un certain nombre de tâches très facilement et très rapidement, montrent vite leurs limites dès lors qu'on veut créer une application d'un certain niveau.

Dans ce cas, il te faudra passer au langage VBA.

Domi2

[Bourbon Kid]

Salut a toi,

Voila une méthode qui pourrait t'intéresser.

[pat17]

Merci Domi2 et Bourbon Kid pour votre aide.

Finalement, j'ai opté pour la solution VBA

Cela fonctionne très bien

Mais comme je démarre le formulaire avec une macro, est il possible de supprimer les message access,un qui me dit que le formulaire n'est pas ouvert et l'autre qui me dit que l'action a échouée, quand je clique sur le bouton "annuler"?

De plus, quelle serait la syntaxe pour gérer 2 mot de passe??

Code :

1
2
3
4
If Me.txtMotDePasse = "TopSecret1","TopSecret2" Then
        ' Fermer la boîte de dialogue "Identification"
        DoCmd.Close
        blnPasswordOK = True

Je continue mes recherches et merci encore pour votre aide.

Bonne journée à tous

[jacques_jean]

Bonjour,

Ne serait-ce pas :

Code :

If Me.txtMotDePasse = "TopSecret1" Or Me.txtMotDePasse = "TopSecret2" Then

[pat17]

Merci jacques_jean pour ton aide.

Super ça marche

Je continue mes recherches concernant les messages d'erreur et merci encore pour votre aide.

Bonne journée