User Password Reset

[koketsomaseko]

I have this code to change user password
Private Sub Command3_Click()

If IsNull(Me.cboEmployee) Or Me.cboEmployee = "" Then
MsgBox "You must enter a User Name.", vbOKOnly, "Required Data"
Me.cboEmployee.SetFocus
Exit Sub
End If

If IsNull(Me.txtPassword) Or Me.txtPassword = "" Then
MsgBox "You must enter a Password.", vbOKOnly, "Required Data"
Me.txtPassword.SetFocus
Exit Sub
End If
If Me.txtPassword.Value = DLookup("Password", "Login", "[EmployeeID] = " & Me.cboEmployee.Value) Then

EmployeeID = Me.cboEmployee.Value

Else
MsgBox "Password Invalid. Please Try Again", vbOKOnly, "Invalid Entry!"
Me.txtPassword.SetFocus
End If
If IsNull(Me.new_password) Or Me.new_password = "" Then
MsgBox "you must enter the new password.", vbOKOnly, "required data"
Me.new_password.SetFocus
Else

Me.new_password = strEmpPassword
MsgBox ("Your password has been changed.")
End If

But it doesnt change the password please help

 

[GinaWhipp]

Hmm, is the form bound to a Record Source? WHen you press Reset what happens?

 

[koketsomaseko]

Hmm, is the form bound to a Record Source? WHen you press Reset what happens?

It say the Password has been change but nothing happens

and no the form is not bound

 

[GinaWhipp]

Correct, unless your Reset Password button runs an UPDATE query it won't change. So, what does the Reset Password button do?