FORMULAIRE DE MODIFIATION DU login et du mot de passe
Bonjour à tous,
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 : t_UserS)
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
- un pour rappeller l'ancien mot de passe : passwd
- 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
FORMULAIRE DE MODIFIATION DU login et du mot de passe
Voici le code
j'ai aussi activer la référence Microsoft DAO 3.6 Object Library
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 & "' AND PASWD ='" & Me.txt_pass & "';"
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