Discussion :

[kaboré1974]

Bonjour et merci à tous pour toutes les réponses à mes multiples préoccupations !

Je viens encore vers vous pour m'aider à améliorer mon projet. j'ai un formulaire d'accueil F_IDENT basé sur la table T_IDENT. Les champs sont LOGON et MOT_PASSE.
A l'ouverture, l'utilisateur renseigne F_IDENT avec un LOGON et un Mot de passe que lui donne. je voudrais que l'utilisateur ait la possibilité de personnaliser le LOGON et le Mot de passe s'il le souhaite.
Pour ce faire, j'ai un formulaire indépendant F_CHANG_MOT_PASSE avec les champ: TX_LOGON_NV_MP; TX_ANC_MP; TX_NOUV_MP et TX_CONF_NV_MP.
J'ai eu ce code, mais le changement est seulement au niveau du mot de passe (sans le logon). or je voudrais que ce soit les deux qui soient susceptibles de changement.

Aidez-moi. Voici le code:

Code VBA :

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
 
'Bouton validation de changement de mot de passe
Private Sub CHANGEMENT_MOT_DE_PASSE_Click()
'Vérification du logon
If IsNull(Me.TX_LOGON_NV_MP) Then
MsgBox "Le chanmp LOGON est obligatoire", vbInformation, "LOGON VIDE"
Me.TX_LOGON_NV_MP.SetFocus
    'Vérification du mot de passe
    ElseIf IsNull(Me.TX_ANC_MP) Then
    MsgBox "Le chanmp ancien mot de passe est obligatoire", vbInformation, "MOT DE PASSE VIDE"
    Me.TX_ANC_MP.SetFocus
       ElseIf IsNull(Me.TX_NOUV_MP) Then
       MsgBox "Nouveau mot de passe obligatoire pour faire le changement", vbInformation, "NOUVEAU MOT DE PASSE EST VIDE"
       Me.TX_NOUV_MP.SetFocus
           ElseIf IsNull(Me.TX_CONF_NV_MP) Then
           MsgBox "Il faut saisir la confirmation du nouveau mot de passe", vbInformation, "Erreur sur la saisie de la confirmation"
           Me.TX_CONF_NV_MP.SetFocus
           'Vérifier la confirmation du mot de passe
               ElseIf Me.TX_NOUV_MP <> Me.TX_CONF_NV_MP Then
               MsgBox "Le mot de passe n'est pas conforme dans les deux champs", vbInformation, "ERREUR sur le mot de passe"
               'Valider le LOGON ET LE MOT DE PASSE
                  ElseIf (IsNull(DLookup("LOGON", "T_IDENT", "LOGON = '" & Me.TX_LOGON_NV_MP & "'"))) Or _
                  (IsNull(DLookup("MOT_PASSE", "T_IDENT", "MOT_PASSE='" & Me.TX_ANC_MP & "'"))) Then
                  MsgBox "La combinaison LOGON/MOT de passe est incorrecte", vbCritical, "Erreur LOGON/MOT DE PASSE"
                  Else
                  'CHANGEMENT DE MOT DE PASSE
                  DoCmd.SetWarnings False
                  DoCmd.RunSQL "update T_IDENT SET T_IDENT.MOT_PASSE = TX_NOUV_MP WHERE(((T_IDENT.LOGON) = TX_LOGON_NV_MP AND T_IDENT.MOT_PASSE = TX_ANC_MP))"
                  DoCmd.RunSQL "update T_IDENT SET T_IDENT.LOGON = TX_LOGON_NOUV_MP"
                  DoCmd.SetWarnings True
                  DoCmd.Requery
                  MsgBox "le changement de mot de passé est bien fait"

[EricDgn]

Bonjour,

Ceci pour remplacer un mot de passe par un autre:

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
'Bouton validation de changement de mot de passe
Private Sub CHANGEMENT_MOT_DE_PASSE_Click()
    Dim sWhere As String
    sWhere = "LOGON = '" & Me.TX_LOGON_NV_MP & "' AND MOT_PASSE = '" & Me.TX_ANC_MP & "'"
 
    'Vérification du logon
    If IsNull(Me.TX_LOGON_NV_MP) Then
        MsgBox "Le chanmp LOGON est obligatoire", vbInformation, "LOGON VIDE"
        Me.TX_LOGON_NV_MP.SetFocus
 
    'Vérification du mot de passe
    ElseIf IsNull(Me.TX_ANC_MP) Then
        MsgBox "Le chanmp ancien mot de passe est obligatoire", vbInformation, "MOT DE PASSE VIDE"
        Me.TX_ANC_MP.SetFocus
 
    ElseIf IsNull(Me.TX_NOUV_MP) Then
       MsgBox "Nouveau mot de passe obligatoire pour faire le changement", vbInformation, "NOUVEAU MOT DE PASSE EST VIDE"
       Me.TX_NOUV_MP.SetFocus
 
    ElseIf IsNull(Me.TX_CONF_NV_MP) Then
        MsgBox "Il faut saisir la confirmation du nouveau mot de passe", vbInformation, "Erreur sur la saisie de la confirmation"
        Me.TX_CONF_NV_MP.SetFocus
 
    'Vérifier la confirmation du mot de passe
    ElseIf Me.TX_NOUV_MP <> Me.TX_CONF_NV_MP Then
        MsgBox "Le mot de passe n'est pas conforme dans les deux champs", vbInformation, "ERREUR sur le mot de passe"
 
    'Valider le LOGON ET LE MOT DE PASSE
    ElseIf DCount("T_IDENT", sWhere) = 0 Then
        MsgBox "La combinaison LOGON/MOT de passe est incorrecte", vbCritical, "Erreur LOGON/MOT DE PASSE"
 
    'CHANGEMENT DE MOT DE PASSE
    Else
        DoCmd.SetWarnings False
        DoCmd.RunSQL "UPDATE T_IDENT SET MOT_PASSE = '" & Me.TX_NOUV_MP & "' WHERE (" & sWhere & ")"
        DoCmd.SetWarnings True
        DoCmd.Requery
        MsgBox "Le changement de mot de passé est bien fait", , "Pour info"
 
    End If
End Sub

S'il faut aussi changer le Logon il faut que le formulaire ait un champ pouvant contenir le nouveau Logon.

Bonne continuation.

[kaboré1974]

Bonjour!
Merci à EricDgn pour son aide. En effet, j'ai ajouté un champ "NOUV_LOGON" à mon formulaire et en faisant les autres adaptations j'ai obtenu ce que je voulais.
Grand merci à tous les membres de ce forum