Reseting user password

[resego]

Hi all

I have been struggling since morning to run a vb code that enables users to change their password. I have a sample table and one form to test the functionality but nothing is happening.

table name:tbluser_details
fields
User_password;text
intUserID;numeric

the code is as follows

Private Sub Command13_Click()
Dim intUserID As Integer
Dim strOldPassword As String


Dim strSQL As String
intUserID = Me.List0

strOldPassword = DLookup("[User_password]", "tbluser_details", "[User_id]=" & intUserID.Value)
Select Case strOldPassword
Case Is = Me.txtOldPassword
Me.txtNewPass.SetFocus
strSQL = "UPDATE tbluser_details SET User_password=" & "'" & Me.txtNewPass.Text & "'" & " " & "WHERE [User_id]=" & "'" & Me.Combo17 & "';"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
MsgBox "Password has been changed", vbInformation, "Password Changed"

Case Is <> Me.txtOldPassword
MsgBox "The Old Password doesnot match", vbInformation, "Type Correct Old Password"
Me.txtOldPassword = ""
End Select


please help urgently

[CJ_London]

probably because you are trying to update to the text value without inputting anything. If you temporarily disable your setwarnings, the error(s) will be reported

try

'Me.txtNewPass.SetFocus not required
strSQL = "UPDATE tbluser_details SET User_password='" & Me.txtNewPass & "' WHERE [User_id]='" & Me.Combo17 & "'"


However if user_id is a number then you need to change the where clause as well

'Me.txtNewPass.SetFocus not required
strSQL = "UPDATE tbluser_details SET User_password='" & Me.txtNewPass & "' WHERE [User_id]=" & Me.Combo17

[resego]

Hi Ajax

I have tried to replace the line you highlighted above but still no update is made on my table when I click button. Where can I send u a copy of the DB to have a look at it? I guess you can advice better after seeing the sample DB. I have tried to attach it to the post but it is bigger than the forum quota

please link me up on Skype username: resego5 so that I attach it there

Thank you

[CJ_London]

sorry don't use Skype. suggest

1.compact the db then
2. zip it and post zipped file

[resego]

Thanks a lot Ajax
I replaced my update statement with the one that you provided:

strSQL = "UPDATE tbluser_details SET User_password='" & Me.txtNewPass & "' WHERE [User_id]=" & Me.Combo17

the reason why it was not behaving accordingly was because I dd not enable the content when I launched the access.

Thanks a lot for the help