Hi,
    I am creating a form that allow users to change their login password. The 2 fields name user input to are txtPassword and txtName . But it is not working. Pls kindly help. Thnks.

Private Sub Command0_Click()
Dim SQL As String
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE [EmpTable] SET [EmpTable].[EmpPassword] = Me.txtPassword.value WHERE (((EmpTable.EmpName) = Me.txtName.value))"
DoCmd.SetWarnings True
End Sub

More than likely the problem is that you are trying to pass values to the SQL string at run time. This is a big no no in Access. Try this modification:

'----------
Private Sub Command0_Click()

Dim sPass As String
Dim sName As String
Dim sSQL As String

sPass = Me.txtPassword
sName = Me.txtName

sSQL = ""UPDATE [EmpTable] SET [EmpTable].[EmpPassword] = " & sPass & " WHERE (((EmpTable.EmpName) = " & sName & "))"

DoCmd.SetWarnings False
DoCmd.RunSQL sSQL
DoCmd.SetWarnings True
End Sub
'----------


Did that work?




mmcdonal

P.S. SQL is a reserved word in some cases. It is always best to prefix your variables with some notation of type, as you have done with your text boxes.

mmcdonal

it worked. Thnks alot.