• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• change password code

change password code

change password code

Rate change password code

• 1
• 2
• 3
• 4
• 5

(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