Code to update New Password in Place of old password in Employee Table

[Pappu]

Hello,
I have created a table called EmployeeTable and am done with login page, But problem is, when ever a user try to change password it shows "password change sucessfull" but the new password not been updated(replaced) in place of old password in employee table. so am attaching the code which i have written in VB(Ms access 2003). pls give me a code to update password.. (For Esay understanding I have provided the space where i need to update my codes in program (before Mess box "password change sucessful"))

Private Sub SaveExit_Click()
 
'Check to see if data is entered into the Employee ID box
 
    If IsNull(Me.EmployeeID) Or Me.EmployeeID = "" Then
        MsgBox "You must enter a Employee ID.", vbOKOnly, "Required Data"
        Me.EmployeeID.SetFocus
        Exit Sub
    End If
 
'Check to see if data is entered into the old password box
 
    If IsNull(Me.oldpassword) Or Me.oldpassword = "" Then
        MsgBox "You must enter a Old Password.", vbOKOnly, "Required Data"
        Me.oldpassword.SetFocus
        Exit Sub
    End If
 
'Check to see if data is entered into the New password box
 
    If IsNull(Me.newpassword) Or Me.newpassword = "" Then
        MsgBox "You must enter a New Password.", vbOKOnly, "Required Data"
        Me.newpassword.SetFocus
        Exit Sub
    End If
'Check to see if data is entered into the New password box
 
    If IsNull(Me.confirmpassword) Or Me.confirmpassword = "" Then
        MsgBox "Please Confirm Password.", vbOKOnly, "Required Data"
        Me.newpassword.SetFocus
        Exit Sub
    End If
'check to see the Password in EmployeeTable
 
    If Me.oldpassword.Value = DLookup("Password", "EmployeeTable", "[EmployeeID]=" & Me.EmployeeID.Value) Then
 
        EmployeeID = Me.EmployeeID.Value
 
    Else
        MsgBox "Old Password Not Matched . Please Try Again", vbOKOnly, "Invalid Entry!"
        Me.oldpassword.SetFocus
        Exit Sub
    End If
'check to see the New Password should match with confirm Password
    If Me.newpassword.Value = Me.confirmpassword.Value Then
'Replace Password In Employee Table by New passsword
 
 
 
 
 
 
 
 
 
        MsgBox "Password Change Sucessfull", vbOKOnly, "Invalid Entry!"
'Close Change Password  form and open LogIN screen
        DoCmd.Close acForm, "changepassword", acSaveNo
        DoCmd.OpenForm "LogIN"
    Else
        MsgBox "New Password Not Matched . Please Try Again", vbOKOnly, "Invalid Entry!"
End If
End Sub

[Rabbit]

The problem is that you don't actually have any code to change the password, that's why the password stays the same in the table.

[Pappu]

ya that i know, thats why i given space there.. if u have the standard format of code, u post it..........

[Mihail]

Just this morning I write this code that seems to be what you are looking for. Of course you must operate some adaptations.

_Firme is a table (can be your table with passwords):
It has this fields:
- ID_Firma (Autonumber - Long): can be the ID field in your table
- FirmaName (Text - unique values): can be the field with names in your table
- IsDefault (Yes / No) : can be the field with passwords in your table

Also, in my form I have a combo box bound to this table with two columns: first two fields.
When I select a name from my combo box the value for combo box become equal to record ID

Then I use this code to set the IsDefault field to True for that record and for all other records to False (you can use that to store your new password)

Dim DB As DAO.Database
    Set DB = CurrentDb()
Dim Rst As DAO.Recordset
    Set Rst = DB.OpenRecordset("_Firme")
    Rst.MoveFirst
    Do While Not Rst.EOF()
        With Rst
            .Edit
            !IsDefault = (CLng(cmbFirma) = Rst!ID_Firma)
            .Update
            .MoveNext
        End With
    Loop
    Rst.Close
    Set Rst = Nothing

Pay attention to .Edit and .Update statements:
If first is ommited an error occur (Believe me !!! :))) ).
If the second one is omitted nothing happen in the table (again Believe me !!! :))) )

Hope this is a help for you.
Good luck !

[NeoPa]

Please check out When Posting (VBA or SQL) Code, as well as the site guidelines it seems you need to read too.

[Rabbit]

You don't necessarily have to use the record set based approach that Mihail uses. You can use something as simple as the DoCmd.RunSQL() function to execute an update query.

One related caveat to password storage. I notice you're storing the password as plain text. I just want to say that that is highly insecure and borders on reckless. If you're going to be storing passwords, you really need to store the hash, preferably with a salt. Storing plaintext passwords is how accounts get compromised, and not just the account for the program you have but a lot of people use the same password for everything and it compromises all those accounts too.