Update Query in VBA from form combobox value (simple)

[kagoodwin13]

I'm stuck on a rather simple query that doesn't seem to be working.

I have a form fUpdateProjectStatus, and two fields: cmProjectName (combobox), cmProjectPhase (combobox).

I am trying to update the table tProject from results on the form.

Private Sub Image14_Click()
Dim strUpdate As String
strUpdate = "UPDATE tProject SET tProject.ProjectPhase = "" & Me.[cmProjectPhase].value & "" WHERE (tProject.ProjectName = "" & Me.[cmProjectName].value & "")"
DoCmd.RunSQL strUpdate
MsgBox ("Update Successful."), vbOKOnly
End Sub

I am getting the Update Successful message, but there is no change in table tProject.



What am I missing here?

[pbaldy]

I think the double quotes are an issue. This should help debug the problem:

BaldyWeb-Immediate window

[kagoodwin13]

That helped. I had to use some single quotes as well. Thanks!

strUpdate = "UPDATE tProject SET tProject.ProjectPhase = '" & Me.[cmProjectPhase].value & "' WHERE tProject.ProjectName = '" & Me.[cmProjectName].value & "'"

[pbaldy]

Happy to help!