UPDATE Query

[rjoshi2]

Can some please tell what I am doing wrong? I am trying to run a update query through a command button. Any help would be appreciated.

Thank You,
rjoshi2

SQL Query:
UPDATE tblPscITAcquisitionLog, tblObjClsDesc SET tblPscITAcquisitionLog.[Object Class] = tblObjClsDesc.[strClass], tblPscITAcquisitionLog.[Object Class Description] = tblObjClsDesc.[strDescription]
WHERE ((tblPscITAcquisitionLog.[Object Class] = tblObjClsDesc.[strClass]));

My code:
Private Sub cmdRunUpdate_Click()
Dim updateSql As String
updateSql = "UPDATE tblPscITAcquisitionLog, tblObjClsDesc" _
& "SET tblPscITAcquisitionLog.[Object Class] = tblObjClsDesc.[strClass], tblPscITAcquisitionLog.[Object Class Description] = tblObjClsDesc.[strDescription]" _
& "WHERE ((tblPscITAcquisitionLog.[Object Class] = tblObjClsDesc.[strClass])) " ';"
CurrentDb.Execute updateSql
End Sub

 

[checkOut]

What happens?
Maybe u can try docmd.runSQL updateSQL
Be more clear in questioning please,
Errors, etc.
Thnx,
Gerard

 

[JohnLowell]

Try This:

Private Sub cmdRunUpdate_Click()

Dim updateSql As String

updateSql = "UPDATE tblPscITAcquisitionLog, tblObjClsDesc"
updateSql = updateSql & " SET tblPscITAcquisitionLog.[Object Class] = tblObjClsDesc.[strClass]"
updateSql = updateSql & " , tblPscITAcquisitionLog.[Object Class Description] = tblObjClsDesc.[strDescription]"
updateSql = updateSql & " WHERE tblPscITAcquisitionLog.[Object Class] = tblObjClsDesc.[strClass];"

CurrentDb.Execute updateSql

End Sub