|
Sujet n°161 |
MotDepasse
par Skipyjp le 24/07/2008 : 21:02 |
Salut pierre, la c'est pour une question,lol j'ai un formulaire MotDePasse donc voici le code!!!
Private Sub OK_Click()
Dim stDocName As String
If Me.Secret <> "margarine" Or IsNull(Me.Secret) Then
MsgBox "Mot de Passe non valide", vbCritical, "Erreur de saisie !"
DoCmd.Close
Exit Sub
Else
DoCmd.Openform "Menusag"
End If
End Sub
Est t'il possible d'utiliser le même formulaire, avec d'autre mot de passe et ouvrant d'autre formulaire?
La j'ai juste un mot de passe pour ouvrir un formulaire, et je voudrait éviter de crée trop de formulaire mot de passe!!!
Dans l'attente bien cordialement!SKIP
|
Réponse n° 1 |
par 3stone le 25/07/2008 : 02:45 |
Bonjour,
En laissant de coté le niveau de sécurité apporté par un tel système de mot de passe, la méthode souhaitée est assez simple.
Regarde bien les paramètres de la commande "OpenForm", cela ressemble à :
- DoCmd.OpenForm "NomForm", acNormal, , , , , "ce que tu veux"
que tu peux aussi écrire ainsi :
- DoCmd.OpenForm "NomForm", acNormal, OpenArgs:="ce que tu veux"
pour éviter toutes ces virgules...
Comme argument "OpenArgs" tu peux soit transmettre le mot de passe que l'utilisateur devra saisir dans le formulaire "MotDePasse", soit transmettre le nom du formulaire à ouvrir.
Disons que tu choisis de transmettre le mot de passe, tu feras alors:
DoCmd.Openform "frmPASSE", OpenArgs:="margarine"
Dans le formulaire "frmPASSE", tu récupère l'argument...
Dim strMdP As String strMdP = Me.OpenArgs
Maintenant, strMdP contient la chaîne "margarine" et il suffit de comparer à ce que saisi l'utilisateur.
Si tu choisi de transmettre le nom du formulaire comme argument, tu récupères encore cet argument comme indiqué, sauf que tu dois maintenant faire le test selon le nom du formulaire transmis.
Amicalement, Pierre(3stone)
|
Réponse n° 2 |
par skipyjp le 25/07/2008 : 19:20 |
Salut, merci pour la réponse, je vais pouvoir en tiré un profit, et encore super pour ton forum!!! Amicalement,Skip |
[ Retour à la liste des sujets ]
| Recherche
Préférences
1 membre
Connectés :
( personne )
|