Update Query Not Working

[ahd2008]

I have a button to be pressed that should update the employees table, but the

problme i think is the condition statment "WHERE Employees.Title =" & x



Can any one fix it, and tell why it didnt work please

Private Sub Toggle25_Click()
Dim SQL As String
Dim x  As String

x = "Manager"
SQL = "UPDATE Employees " & _
"SET Employees.Title = 'Regional Sales Manager' " & _
"WHERE Employees.Title =" & x
      
DoCmd.RunSQL SQL
End Sub

[NeoPa]

I think simply changing line #8 should do it :

"WHERE Employees.Title = '" & x & "'"

String literals in SQL need to be surrounded by single-quotes (as your 'Regional Sales Manager' in line #7)

[ahd2008]

Many thanks bro & marvelous luck

[NeoPa]

No worries. Glad I could help :)

Welcome to Bytes!