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 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123
| Private Sub CmdOK_Click()
On Error GoTo ErrTrap
Dim QueryName As String
Dim QueryName2 As String
Dim Txt As String
QueryName = IIf(Nz(Me.OpenArgs, "") = "Adm", _
"LoginPasswordAdm", "LoginPassword")
QueryName2 = IIf(Nz(Me.OpenArgs, "") = "Adm", _
"LoginHistorique", "LoginHistorique")
Txt = "" ' Default
If Len(Me.TxtUserID) > 0 And Len(Me.TxtPwd) > 0 Then
Txt = Nz(DLookup("LoginMotDePasse", QueryName, _
"UTilisateurID = '" & Me.TxtUserID & "'"), "")
End If
If Len(Txt) > 0 And StrComp(Me.TxtPwd, _
Txt, 0) = 0 Then
Else
MsgBox "Password Not Valid For This UserID"
Me.TxtPwd.SetFocus
GoTo ExitPoint
End If
If Len(Me.TxtPwdNew_1) > 0 And _
Len(Me.TxtPwdNew_2) > 0 And _
StrComp(Me.TxtPwdNew_1, _
Me.TxtPwdNew_2, 0) = 0 Then
P_SetNewPassword QueryName
P_SetNewDate QueryName
P_SetNewHistorique
MsgBox "Password Changed Successfully"
DoCmd.Close acForm, Me.Name
Else
MsgBox "New Passwords 1 & 2 Do Not Match"
Me.TxtPwdNew_1.SetFocus
End If
ExitPoint:
On Error GoTo 0
Exit Sub
ErrTrap:
MsgBox Err.Number & " - " & Err.Description
Resume ExitPoint
End Sub
Private Sub P_SetNewPassword(ByVal TgtQueryName As String)
On Error GoTo ErrTrap
Dim Qst As String
Dim db As DAO.Database
Set db = DBEngine(0)(0)
Qst = "UPDATE " & TgtQueryName & _
" SET LoginMotDePasse = '" & Me.TxtPwdNew_1 & _
"' Where UTilisateurID = '" & Me.TxtUserID & "';"
db.Execute Qst, dbFailOnError
ExitPoint:
Set db = Nothing
On Error GoTo 0
Exit Sub
ErrTrap:
MsgBox Err.Number & " - " & Err.Description
Resume ExitPoint
End Sub
Private Sub P_SetNewDate(ByVal TgtQueryName As String)
On Error GoTo ErrTrap
Dim Qst As String
Dim db As DAO.Database
Set db = DBEngine(0)(0)
Qst = "UPDATE " & TgtQueryName & _
" SET MotDePasseLastChanged = '" & Now() & _
"' Where UTilisateurID = '" & Me.TxtUserID & "';"
CurrentDb.Execute Qst, dbFailOnError
db.Execute Qst, dbFailOnError
ExitPoint:
Set db = Nothing
On Error GoTo 0
Exit Sub
ErrTrap:
MsgBox Err.Number & " - " & Err.Description
Resume ExitPoint
End Sub
Private Sub P_SetNewHistorique()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
'On Error GoTo ErrTrap
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("LoginHistorique", dbOpenDynaset)
With rst
.AddNew
!UTilisateurID = Me.TxtUserID
!MotDePasse = Me.TxtPwdNew_1
!Nom = "User change login password"
.Update
End With
'ExitPoint:
' Set dbs = Nothing
' Set rst = Nothing
' rst.Close
' dbs.Close
'ErrTrap:
' MsgBox Err.Number & " - " & Err.Description
' Resume ExitPoint
End Sub |
Partager