Replacing table value with different value in VB

[amraam35]

Here is the problem. I have made a log in script that prompts you to log in with a username and password as the "splash screen" It is an unbounded forum that checks that the username and password are in the employee table, and that they are together, and if it is, it lets you log on. That works just fine. Then i tried to make a form that you can change your password if you please. It has 4 entrys, the user name, password, and then2 of the "new password" if the username and password match the table, and the two new passwords are identical, then it OKs you to proceed. That is where i am getting stuck. I have the table with three fields - and employee number (auto), the employee name, and the password. i cannot figure out how to get the new password to replace the old password without creating a new entry.

here is my script for the password change form. :)

Option Compare Database

Private Sub Cancel_Click()
On Error GoTo Err_Cancel_Clic k


DoCmd.Close


Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Home Page"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Cancel_Cli ck:
Exit Sub

Err_Cancel_Clic k:
MsgBox Err.Description
Resume Exit_Cancel_Cli ck

End Sub



Private Sub Change_Click()

'Check to see if data is entered into the UserName combo box

If IsNull(Me.Combo 13) Or Me.Combo13 = "" Then
MsgBox "You must enter a User Name.", vbOKOnly, "Required Data"
Me.Combo13.SetF ocus
Exit Sub
End If

'Check to see if data is entered into the password box

If IsNull(Me.OldPa ss) Or Me.OldPass = "" Then
MsgBox "You must enter a Password.", vbOKOnly, "Required Data"
Me.OldPass.SetF ocus
Exit Sub
End If

'Check to see if data is entered into the New Password combo box

If IsNull(Me.NewPa ss) Or Me.NewPass = "" Then
MsgBox "You must enter a New Password.", vbOKOnly, "Required Data"
Me.NewPass.SetF ocus
Exit Sub
End If

'Check to see if data is entered into the Confirm Password box

If IsNull(Me.Confi rmPass) Or Me.ConfirmPass = "" Then
MsgBox "You must ReEnter the New Password.", vbOKOnly, "Required Data"
Me.ConfirmPass. SetFocus
Exit Sub
End If



'Confirm Old Password Matchs UserName

If Me.OldPass.Valu e = DLookup("strEmp Password", "tblEmploye es", "[lngEmpID]=" & Me.Combo13.Valu e) Then

lngMyEmpID = Me.Combo13.Valu e


Else

MsgBox "Existing Password does not match User Name. Contact Administrator", vbOKOnly, "Security Alert"
Me.OldPass.SetF ocus
Exit Sub

End If




'Check value of password in tblEmployees to see if this
'matches value chosen in combo box

If Me.NewPass.Valu e <> Me.ConfirmPass. Value Then

MsgBox "New Passwords Do Not Match", vbOKOnly, "Security Alert"
Me.NewPass.SetF ocus
Exit Sub

End If


'Replace Old Password with New Password

STUCK HERE







'Open Home Page and Close logon form

MsgBox "Password Successfully Changed", vbOKOnly, "Security Alert"

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Home Page"
DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.Close acForm, "ChangePass ", acSaveNo


End Sub

:) Here is my script for the login box

Private Sub cboEmployee_Aft erUpdate()

'After selecting user name set focus to password field

Me.txtPassword. SetFocus

End Sub


Private Sub Command6_Click( )

'Check to see if data is entered into the UserName combo box

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

'Check to see if data is entered into the password box

If IsNull(Me.txtPa ssword) Or Me.txtPassword = "" Then
MsgBox "You must enter a Password.", vbOKOnly, "Required Data"
Me.txtPassword. SetFocus
Exit Sub
End If

'Check value of password in tblEmployees to see if this
'matches value chosen in combo box

If Me.txtPassword. Value = DLookup("strEmp Password", "tblEmploye es", "[lngEmpID]=" & Me.cboEmployee. Value) Then

lngMyEmpID = Me.cboEmployee. Value

'Close logon form and open splash screen

DoCmd.Close acForm, "Login", acSaveNo
DoCmd.OpenForm "SplashScre en"

Else
MsgBox "Password Invalid. Please Try Again", vbOKOnly, "Invalid Entry!"
Me.txtPassword. SetFocus


End If







'If User Enters incorrect password 3 times database will shutdown

intLogonAttempt s = intLogonAttempt s + 1
If intLogonAttempt s > 3 Then
MsgBox "You do not have access to this database.Please contact admin.", vbCritical, "Restricted Access!"
Application.Qui t
End If

End Sub
Private Sub Command16_Click ()
On Error GoTo Err_Command16_C lick


DoCmd.Close

Application.Qui t

Exit_Command16_ Click:
Exit Sub

Err_Command16_C lick:
MsgBox Err.Description
Resume Exit_Command16_ Click

End Sub
Private Sub ChngPass_Click( )
On Error GoTo Err_ChngPass_Cl ick

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "ChangePass "
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_ChngPass_C lick:
Exit Sub

Err_ChngPass_Cl ick:
MsgBox Err.Description
Resume Exit_ChngPass_C lick

End Sub


:)

The login box works fine.

the three tables are :

IngEmpID === Employee Auto Number
strEmpName ==== Employee Name
strEmpPassword === Employee Password

any help would be awesome, i have been stuck all day

thanks alot,

Bill

[amraam35]

to make it a little more clear, im looking for some type of script that will tell it to replace (strEmpPassword ) (which is an entry in a table record) - the one for the username which was entered above - with (ConfirmPass) - the new password which was entered on the form and as of yet has not been stored in a table.

I have tried the replace() function, that just changed letters in a script.


Thanks again