Form để đỗi mật khẫu - password change form (1 người xem)

[nick_nguyen]

Chào cả nhà !
Mong các anh chi nào đã làm form thay đỗi password vào giúp hộ em 1 tý.
Em muốn làm 1 cái form , dùng để thay đỗi password cho bãng employee ( e có theo ví dụ rất hay của anh doomfootwear, nhưng nội lức của em còn kém quá, em mò cả tuần vẫn không làm được, nên e chỉ muốn làm thật đơn giãn)
Có có table employee như sau

tblemployee

và em muốn làm 1 cái form đỗi mật khẩu như sau:

Cái ddl đầu tiên để em chon tên của employee trong bãng tblemployee
E sẽ đánh password cũ, nếu nó đúng là pass word ứng theo employee đã chọn thì e sẽ đánh password mới vào 2 ô dưới để chuyển.

Mong mọ người dành chút thời gian quý báu giúp em, mai em phải nộp project rồi (T_T). Thanks cả nhà !

Đây là code của Ok button:
Option Compare Database

Private Sub cmdLogin_Click()
Dim PWtocompare As String
PWtocompare = DLookup("strEmpPassword", "tblEmployees", "strEmpName = Me.cboEmployee.Value"
If PrePassword = PWtocompare Then
If NewPassword = ConfirmPassword Then

Me.NewPassword.SetFocus
Dim strSQL As String
strSQL = "UPDATE tblEmployees SET strEmpPassword = '" & Me.NewPassword & "' WHERE ID = lngEmpID"
DoCmd.RunSQL strSQL

Else
MsgBox "Passwords do not match, please re-enter your new password", vbOKOnly, "Passwords do not match"
End If
Else
MsgBox "Current password does not match records. Please enter your current password again", vbOKOnly, "Incorrect Password"
End If

End Sub

Private Sub cmdExit_Click()
On Error GoTo Err_Command8_Click

DoCmd.Close

Exit_Command8_Click:
Exit Sub

Err_Command8_Click:
MsgBox Err.Description
Resume Exit_Command8_Click
End Sub

 

[nick_nguyen]

Em đã làm được rồi nên mod xoá dùm em bài này, dù sao cũng cám ơn cả nhà.

Chào cả nhà !
Mong các anh chi nào đã làm form thay đỗi password vào giúp hộ em 1 tý.
Em muốn làm 1 cái form , dùng để thay đỗi password cho bãng employee ( e có theo ví dụ rất hay của anh doomfootwear, nhưng nội lức của em còn kém quá, em mò cả tuần vẫn không làm được, nên e chỉ muốn làm thật đơn giãn)
Có có table employee như sau

tblemployee

và em muốn làm 1 cái form đỗi mật khẩu như sau:

Cái ddl đầu tiên để em chon tên của employee trong bãng tblemployee
E sẽ đánh password cũ, nếu nó đúng là pass word ứng theo employee đã chọn thì e sẽ đánh password mới vào 2 ô dưới để chuyển.

Mong mọ người dành chút thời gian quý báu giúp em, mai em phải nộp project rồi (T_T). Thanks cả nhà !

Đây là code của Ok button:
Option Compare Database

Private Sub cmdLogin_Click()
Dim PWtocompare As String
PWtocompare = DLookup("strEmpPassword", "tblEmployees", "strEmpName = Me.cboEmployee.Value"
If PrePassword = PWtocompare Then
If NewPassword = ConfirmPassword Then

Me.NewPassword.SetFocus
Dim strSQL As String
strSQL = "UPDATE tblEmployees SET strEmpPassword = '" & Me.NewPassword & "' WHERE ID = lngEmpID"
DoCmd.RunSQL strSQL

Else
MsgBox "Passwords do not match, please re-enter your new password", vbOKOnly, "Passwords do not match"
End If
Else
MsgBox "Current password does not match records. Please enter your current password again", vbOKOnly, "Incorrect Password"
End If

End Sub

Private Sub cmdExit_Click()
On Error GoTo Err_Command8_Click

DoCmd.Close

Exit_Command8_Click:
Exit Sub

Err_Command8_Click:
MsgBox Err.Description
Resume Exit_Command8_Click
End Sub