Discussion :

[naia_dm]

Bonjour tout le monde,

En m'aidant de la FAQ j'ai pu créer un formulaire "mot de passe" qui permet à un utilisateur de se loguer en entrant son nom d'utilisateur et son mot de passe (tous deux enregistrés dans une table : tbl_User)

Ce que je souhaiterai faire, pour le confort des utilisateurs, serait de leur permettre de modifier leur mot de passe à tout moment, une fois connecté sur la base.

J'ai donc créer un autre formulaire qui comprend différents champs indépendants:
-un pour rappeller le nom de l'utilisateur : user_log
- un pour rappeller l'ancien mot de passe : user_password
- un pour taper le nouveau mot de passe: new_password1
- un pour finalement confirmer le nouveau mot de passe : new_password2

Voici le schéma:

SI le nom de l'utilisateur et l'ancien mot de passe ont été vérifié, et qu'ils correspondent à un utilisateur de la base dans tbl_User, (comparaison par rapport aux champs de ma table tbl_user et de ses champs User_name et Password)

ET SI le nouveau mot de passe 1 = nouveau mot de passe confirmé),

ALORS la valeur entrée dans mon champ "password" de ma table "tbl_User" devra être échangé par la valeur de mon champ nouveau mot de passe dans le formulaire.

je ne sais pas du tout comment traduire cela en VBA!!! La programmation n'est pas mon métier... alors si certains d'entre vous ont une idée pour résoudre cela... merci merci merci merciiii

[Dolphy35]

Salut,

en reprenant le noms que tu as signalé au dessus, voici un bout de code permettant de faire ce que tu veux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim rstSQL As String
 
    Set db = CurrentDb
 
    rstSQL = "SELECT * FROM tbl_User WHERE tbl_User.User_name='" & Me.user_log & "';"
 
    Set rst = db.OpenRecordset(rstSQL)
 
        If rst.RecordCount = 0 Then
 
            MsgBox "Le Login n'est pas connu !"
            Me.user_log.SetFocus
            Exit Sub
        Else
            If Trim(rst.Fields("Password")) = Trim(Me.user_password) Then
                If Trim(Me.new_password1) = Trim(Me.new_password2) Then
                    rst.Edit
                    rst.Fields("Password") = Trim(Me.new_password1)
                    rst.Update
                    MsgBox "Modification faite"
                    Exit Sub
                Else
                    MsgBox "la confirmation du mot de passe n'est pas correcte"
                    Me.new_password1.SetFocus
                    Exit Sub
                End If
            Else
                MsgBox "Mot de passe incorrect"
                Me.user_password.SetFocus
                Exit Sub
            End If
        End If

ps: il faut activer la référence Microsoft DAO 3.x Object Library

Dolphy

[naia_dm]

un grand grand merci à toi Dolphy pour le code!! Il marche nickel, merci encore!

[ALTECHKGO]

Salut à tous,

j'ai repris le même code , mais j'ai cette erreur: Erreur d'exécution 3265, élément non trouvé dans cette collection
Voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Private Sub Commande12_Click()
 Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim rstSQL As String
 
    Set db = CurrentDb
 
    rstSQL = "SELECT * FROM t_Users WHERE TRIGRAMME='" & Me.txt_user & "';"
    Set rst = db.OpenRecordset(rstSQL)
 
        If rst.RecordCount = 0 Then
 
            MsgBox "Le Login n'est pas connu !"
            Me.txt_user.SetFocus
            Exit Sub
        Else
            If Trim(rst.Fields("me.txt_user")) = Trim(Me.txt_pass) Then
                If Trim(Me.new_password1) = Trim(Me.new_password2) Then
                    rst.Edit
                    rst.Fields("Password") = Trim(Me.new_password1)
                    rst.Update
                    MsgBox "Modification faite"
                    Exit Sub
                Else
                    MsgBox "la confirmation du mot de passe n'est pas correcte"
                    Me.new_password1.SetFocus
                    Exit Sub
                End If
            Else
                MsgBox "Mot de passe incorrect"
                Me.txt_pass.SetFocus
                Exit Sub
            End If
        End If
End Sub

Merci d'avance
Voici la ligne ou tout blogue: If Trim(rst.Fields("me.txt_user")) = Trim(Me.txt_pass) Then

[titi95]

Bonsoir

ps: il faut activer la référence Microsoft DAO 3.x Object Library

Merci d'ouvrir une nouvelle discussion si besoin, celle-ci étant fermée depuis... 2007 !