[AC-2010] Vérification d'un mot de passe fonctionnel

[toumack]

Bonjour à tous,
Après plusieurs courriels, recherches et avouons-le quelques moments de frustation, j'ai reçu un code qui vérifie le nom de l'usager et son mot de passe avant d'effectuer les actions désirées. De plus, il garde une trace d'une connexion.
J'ai pensé publier ce code pour ceux qui tout comme moi, en aurait besoin.

Procédures:
Créer deux tables "LoginPassword" et "LoginAdministration" avec les champs suivants:

ID UTilisateurID MotDePasse HeureLogin
115 Auto Caisse 1955 2011-08-16 06:48:08
114 Carole Renzo 1961 2011-08-16 06:47:53 NoAuto Texte Texte Date/Time = maintenant()

Créer les 2 tables identiques
Dans la table LoginPassword, inscrivez les utilisateurs ainsi que leurs mots de passe.

Créer un formulaire "Connexion menu fermeture de caisse", vous pouvez utiliser votre nom de formulaire comme de raison.

Sur ce dernier, créez ces champs:
UtilisateurID et Password
La source de données de ce formulaire est la table "LoginAdministration"
donc, juste amener ces 2 champs dans le formulaire.
Ensuite il faut créer un bouton de commande que j'ai appelé "Connexion" c'est sur ce dernier que le code ci-dessous doit être. (sur le OnClick)

Dans mon exemple, je veux ouvrir le formulaire "Menu fermeture de caisse", mais je veux que l'usager puisse y accéder avec son mot de passe, encore une fois, vous pouvez choisir n'importe lequel formulaire que vous souhaitez ouvrir. Si l'usager et son mot de passe entrés sont incorrects, après 3 tentatives, je veux ouvrir le formulaire "0000-a-Menu principal"

Voici le code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Private Sub Connexion_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim rst2 As DAO.Recordset
Set dbs = CurrentDb
Static i As Byte
Set rst = dbs.OpenRecordset("LoginAdministration", dbOpenDynaset)
Set rst2 = dbs.OpenRecordset("LoginPassword", dbOpenDynaset)
rst2.MoveFirst
Me.MotDePasse.SetFocus
If Me.MotDePasse.Text = "" Then
MsgBox "Please enter your password"
GoTo CLoseRst
End If
Do While Not rst2.EOF
If Forms![Connexion menu fermeture de caisse].UTilisateurID.Value = rst2!UTilisateurID And Forms![Connexion menu fermeture de caisse].MotDePasse.Value = rst2!MotDePasse Then
Me.Requery
DoCmd.OpenForm "Menu fermeture de caisse", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "Connexion menu fermeture de caisse"
Exit Do
GoTo CLoseRst
End If
rst2.MoveNext
Loop
If rst2.EOF Then
MsgBox "Message mot de passe incorrect"
End If
i = i + 1
If i = 3 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisés", vbCritical
DoCmd.Close acForm, "Connexion menu fermeture de caisse"
DoCmd.OpenForm "0000-a-Menu Principal"
GoTo CLoseRst
Else: GoTo DontClose
End If
CLoseRst:
rst.Close
rst2.Close
dbs.Close
Set rst = Nothing
Set rst2 = Nothing
Set dbs = Nothing
DontClose:
 
 
End Sub

Note: La table LoginPassword ne change pas, c'est la table dans laquelle on enregistre les usagers et leurs mots de passe.
La table LoginAdministration garde une trace de la connexion, c'est toujours utile pour futur référence.

J'espère que çà va aider quelqu'un dans le futur.

Bonne chance
Claude Larocque
(toumack)