Discussion :

[franckb74]

Bonjour,

Je ne sais pas comment écrire la syntaxe suivante pour définri la nouvelle valeur du mot de passe en lien avec la RechDom
Le mot de passe actuel est stocké dans le champ : MotPass et dans la la table : utilisateur
Nouveau mot de passe généré par un numéro aléatoire : NouvMotDePasse
llogin de l'utilisateur connecté stocké dans : [TempVars]![USER]

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Function ModifMotPasse()
    'créé un numéro aléatoire
    NouvMotDePasse = Int(900000 * Rnd())
 
    'comment remplacer le mot de passe stocké dans le champs : [MotPass] ?
    'ne fonctionne pas :-(
    DLookup("[MotPass]", "utilisateur", "[NomComplet]=[TempVars]![USER]") = NouvMotDePasse
 
End Function

En vous remerciant pour votre aide

[jimbolion]

franckb74,

une mise à jour ne s'obtient pas avec des fonctions de domaines, mais par une syntaxe sql de type update

Code :

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

1
2
3
4
5
6
Function ModifMotPasse()
    Dim NouvMotDePasse As Long
    NouvMotDePasse = Int(900000 * Rnd())
    CurrentDb.Execute "UPDATE utilisateur SET utilisateur.MotPass = " & NouvMotDePasse & " WHERE (((utilisateur.NomComplet)='" & Nz([TempVars]![User], "") & "'));"
 
End Function

Jimbolion

[franckb74]

Super merci beaucoup !!!

C'est un vrai plaisir de développer sous ACCESS j'en apprends à chaque fois un peu plus :-))

Très bonne journée !
Franck

[franckb74]

Bonjour jimbolion,

J'ai ajouté à ce code la génération d'un mot de passe composé de lettre (Code) et de chiffre (valeur) et l'envoi par email du nouveau mot de passe à l'utilisateur concerné.
Mais il y a une erreur lorsque j'arrive à la commande de mise à jour du mot de passe dans la table "utilisateur"

Code :

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

CurrentDb.Execute "UPDATE utilisateur SET utilisateur.MotPass = " & NouvMotDePasse & " WHERE (((utilisateur.NomComplet)='" & Nz([TempVars]![User], "") & "'));"

J'ai placé un msgbox pour visualiser le nouv mot de passe

Help !
Merci à toi :-)


Voici le code complet :

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
'Envoi d'un message si demande de nouveau mot de passe
Function EnvoiMotDePass()
    Dim n As Integer, CharCode As Byte, Code As String ' génération du mot de passe
    Dim NouvMotDePasse As String ' nouveau mot de passe
 
 
    Dim MonOutlook As Object
    Dim MonMessage As Object
    Set MonOutlook = CreateObject("Outlook.Application")
    Set MonMessage = MonOutlook.createitem(0)
 
    'Génération du nouveau mot de passe
    Randomize
    If codeSize < 2 Then codeSize = 6
    Do
      CharCode = Int((62 * Rnd) + 1)
      Code = Code & Chr(CharCode + IIf(CharCode < 11, 47, IIf(CharCode < 37, 54, 60)))
    Loop Until Len(Code) = codeSize
    GetUniqueId = Code
    valeur = Int(900000000000# * Rnd())
    NouvMotDePasse = Code & valeur
    MsgBox NouvMotDePasse
 
    ' Mise à jour du nouveau mot de passe dans la table
    CurrentDb.Execute "UPDATE utilisateur SET utilisateur.MotPass = " & NouvMotDePasse & " WHERE (((utilisateur.NomComplet)='" & Nz([TempVars]![User], "") & "'));"
 
    ' Envoi du nouveau mot de passe
    MonMessage.To = DLookup("[Email]", "utilisateur", "[NomComplet]=[TempVars]![USER]") ' adresse du demandeur
    MonMessage.Bcc = DLookup("[Email]", "utilisateur", "[AdminDeveloppeur]=-1") ' adresse de l'administrateur pour info copie cachée
    MonMessage.Subject = "Demande de réinitialisation Mot de Passe"
    MonMessage.body = "Le nouveau mot de passe est : " & NouvMotDePasse
 
    MonMessage.Display      ' la fonction .Display permet de visualiser l'email avant de l'envoyer
    'MonMessage.send        ' la fonction .send permet d'envoyer l'email directement sans ouvrir l'email
 
    ' On libère la mémoire :
    Set VARFichierLieHistorique = Nothing
    Set MonOutlook = Nothing
    Set MonMessage = Nothing
End Function

[jimbolion]

franckb74,

Quelle erreur la ligne te renvoit elle ?

Si NouvMotDePasse est de type texte il te faut protéger ta variable dans la syntaxe :

Code sql :

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

CurrentDb.Execute "UPDATE utilisateur SET utilisateur.MotPass = '" & NouvMotDePasse & "' WHERE (((utilisateur.NomComplet)='" & Nz([TempVars]![User], "") & "'));"

jimbolion

[franckb74]

Bonsoir,

C'était bien ça je te remercie !
Ça fonctionne tip top :-))

Merci,
Franck