change password code
change password code
Rate change password code
(2(2 Vote))
If Me.txtconfirm = Me.txtnewpassword Then
SQL = " UPDATE users SET [Password]='" & Me.txtnewpassword.Text & "' where UserName like '" & Me.txtusername.Text & "' and [Password] like '" & txtoldpassword.Text & "'"
PWord = Me.txtnewpassword.Text
conn.Execute SQL
MsgBox "Your Password have been Changed Successfully!", , "Success"
'Me.txtusername.Text = ""
Me.txtconfirm.Text = ""
Me.txtnewpassword.Text = ""
Me.txtoldpassword.Text = ""
Me.txtoldpassword.SetFocus
Else
MsgBox "Invalid Password confirmation!"
End If
Else
MsgBox "Invalid Old Password"
End If
change password code Comments
No comments yet — be the first to post one!
Post a Comment