Discussion :

[mgascult]

Bonjour,

Suite à la mise en place de ma base, je souhaiterai que les utilisateurs puissent changer par eux meme le mot de passe défini par moi-meme.

J'ai trouvé les ligne de code ci-dessous mais mes connaissances ne me permettent pas d'arriver à le rendre opérationnel

Pouvez-vous m'aider à le finaliser?

Je vous en remercie.

Dans mon formulaire Accueil, je récupère l’identifiant de connexion dans le champs « txtLogin » et le nouveau mot de passe dans le champs « txtNouveauMdp »

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub DAOChangePassword()
Dim wks As Workspace
Dim usr As DAO.User
' Open the workspace, specifying the system database to use
DBEngine.SystemDB = "G:\XXXX\CCM\Production\Sécurité.mdw"
Set wks = DBEngine.CreateWorkspace("", "Paul", "Paul")
' Change the password for the user Paul
wks.Users("Paul").NewPassword "Paul", "PP"
MsgBox "Nouveau mot de passe ok"
 
End Sub

[Zekraoui_Jakani]

Voici un exemple de code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub pWordChange()   'exemple
 
    'Supposons que vous ayez une table nommée 'tblUtilisateurs',
    'et un formulaire nommé 'frm01_Utilisateurs' ayant un TextBox nommé 'txtNewPass'
    'Après introduction de l'ancien mot de passe (avec vérification) et du nouveau, lancez le SQL du style:
 
    CurrentDb.Execute "UPDATE tblUtilisateurs SET tblUtilisateurs.Pword = [Forms]![frm01_Utilisateurs]![txtNewPass] " & _
    "WHERE (((tblUtilisateurs.UserID)=[forms]![frm01_Utilisateurs]![UserID]));"
 
    'Ceci suppose que la table 'tblUtilisateurs' se trouve dans la base dorsale et qu'elle est bien protégée, ainsi que le code vba de la db
    'PS: le mot de passe doit avoir un "input mask" = Password.
 
End Sub

[mgascult]

Bonjour et merci pour votre réponse Zekraoui_Jakani.

J'ai sécurisé ma base en la contruisant en .mdb et en passant par sécurité.mdw



Le code récupéré sur un site anglophone permet de modifier le mot de passe directement deans le fichier mdw sans passer par l'assistant.
Et c'est ce code que je souhaiterai adapter à ma base et je n'y suis pas parvenu

[Zekraoui_Jakani]

Peut-on voir le code ?

[mgascult]

C'est celui-ci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub DAOChangePassword()
Dim wks As Workspace
Dim usr As DAO.User
' Open the workspace, specifying the system database to use
DBEngine.SystemDB = "G:\XXXX\CCM\Production\Sécurité.mdw"
Set wks = DBEngine.CreateWorkspace("", "Paul", "Paul")
' Change the password for the user Paul
wks.Users("Paul").NewPassword "Paul", "PP"
MsgBox "Nouveau mot de passe ok"
 
End Sub

[Zekraoui_Jakani]

Avec les différentes versions de ACCESS on a tendance à travailler de façon plus intuitive, en exploitant les instruments de *.accdb.
C'est assez puissant comme système de sécurité (voir mon poste du 03 jan) pour autant que l'on mette des balises là où c'est nécessaire.

[mgascult]

merci quand meme, je vais me débrouiller.

Bon week-end