Update Recordset in MS Access

[pbala]

Hello,
I have problem in reset the new password with old one.For that I used the code as

Set rstreset = New ADODB.Recordset
strtable = "Update USERS SET rstreset!Password = '" & upwd & "' where UserName='" & uname & "'"

Now I want to update it.How to update this?

[NeoPa]

Very confusing question.

You say you've used this code, yet this isn't workable code. It cannot work.

Without this to give a clue there is no sense in the question.

[NeoPa]

It seems this could work as :

strTable = "Update USERS SET [Password]='" & upwd & "' WHERE [UserName]='" & uname & "'"

But I still don't understand what your question is. What do you want help with?

[ADezii]

Hello,
I have problem in reset the new password with old one.For that I used the code as

Set rstreset = New ADODB.Recordset
strtable = "Update USERS SET rstreset!Password = '" & upwd & "' where UserName='" & uname & "'"

Now I want to update it.How to update this?

I'll assume you have a Table named USERS and you wish to Update the Password of a User named uname to upwd. Should that be the case, you can use the following code as a Basic Template:

Dim strSQL As String
Dim upwd As String
Dim uname As String

upwd = "New Password"
uname = "ADezii"

'Does the User even exist?
If DCount("*", "USERS", "[UserName] = '" & uname & "'") = 0 Then
  MsgBox "The User " & uname & " is not a valid User Name!", vbExclamation, "No User"
    Exit Sub
End If

strSQL = "Update USERS SET USERS.[Password] = '" & upwd & _
         "' Where USERS.[UserName] ='" & uname & "'"

CurrentDb.Execute strSQL, dbFailOnError