Discussion :

[Feuztoff]

Bonjour,
je voudrai créer un bouton sur ma barre d'outil personnalisée qui permet aux utilisateurs de changer leur mot de passe
merci

[madefemere]

Re-,

J'imagine que tu as déjà un formulaire qui permet à tes utilisateurs de changer leur mot de passe.
Donc je dirai qu'avec la méthode expliquée ici, tu dois pouvoir rajouter un bouton dans ta barre de menu pour ouvrir le formulaire de changement de mot de passe.

Bonne continuation.

[Feuztoff]

comment créer ce formulaire qui permet aux utilisateurs de changer leur mot de passe

[Tofalu]

Avec des zones de texte et un bouton ...

Plus sérieusement, sans plus de détails, comment vous répondre ?

Comment gérez vous la sécurité de niveau utilisateur ? Avec un fichier mdw ou bien avec vos propres tables ?

[Feuztoff]

je gère la sécurité de niveau utilisateur avec un fichier mdw

[madefemere]

Bonjour,

Je te propose cette échange qui traite du même problématique que le tien.

Bonne continuation

[Feuztoff]

*BONJOUR,*

j'ai trouvé un tuto pour mon problème, j'ai créé le formulaire avec les 4 champs indépendants :nom utilisateur courant, ancien mot de passe, nouveau mot de passe, confirmer mot de passe plus les 2 boutons valider et annuler. j'ai trouvé le code ci dessous mais je ne sais pas où les mettre
j'utilise le fichier mdw pour gérer mes utilisateurs
merci

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
 
Private Sub CmdAnnuler_Click()
    On Error GoTo err
 
    DoCmd.Close
 
err:
    Select Case err
        Case 0
        Case Else
            MsgBox err.Description & vbLf & err.Source
    End Select
 
End Sub
 
Private Sub CmdValider_Click()
    On Error GoTo err
 
    If Me.OldPwd = Me.NewPwd Then
        MsgBox "Le nouveau mot de passe est identique à l'ancien." & vbLf & _
               "Veuillez choisir un autre mot de passe.", vbOKOnly + vbExclamation, "Nouveau mot de passe invalide"
        Me.NewPwd = ""
        Me.ConfNewPwd = ""
        DoCmd.GoToControl Me.NewPwd
    Else
        If Me.NewPwd <> Me.ConfNewPwd Then
            MsgBox "Le mot de passe entré en confirmation" & vbLf & _
                   "ne correspond pas au nouveau mot de passe.", vbOKOnly + vbExclamation, "Erreur de confirmation"
            Me.NewPwd = ""
            Me.ConfNewPwd = ""
            DoCmd.GoToControl Me.NewPwd
        Else
            With DBEngine.Workspaces(0)
                .Users(.UserName).NewPassword Me.OldPwd, Me.NewPwd
            End With
            MsgBox "Le mot de passe a été changé.", vbOKOnly + vbInformation, "Confirmation"
            DoCmd.Close
        End If
    End If
 
err:
    Select Case err
        Case 3033
            MsgBox "L'ancien mot de passe saisi n'est pas valide.", vbOKOnly + vbExclamation, "Ancien mot de passe incorrect"
            Me.OldPwd = ""
            Me.NewPwd = ""
            Me.ConfNewPwd = ""
            DoCmd.GoToControl ("OldPwd")
        Case 0
        Case Else
            MsgBox err.Description & vbLf & err.Source
    End Select
 
End Sub
 
Private Sub Form_Load()
    On Error GoTo err
 
    Me.UtilCourant = "Utilisateur courant : " & DBEngine.Workspaces(0).UserName
 
err:
    Select Case err
        Case 0
        Case Else
            MsgBox err.Description & vbLf & err.Source
    End Select
 
End Sub

*MERCI*

[loufab]

Bonjour,

Vraisemblablement il manque un bout du tuto. Ce code est destiner à un mode de formulaire.

Il faut composer le formulaire correspondant, y inclure le tuto et rattacher toutes le procédure à leur propriété d'évènement.

Cordialement,