Update SQL Error

[mrbboy]

I pasted the following sql query behind a command button to change the text in a text box from OPEN to CLOSE but I am getting an error message. Can someone tell me what's wrong?

dim sql as string

sql = "UPDATE tbl_CARGeneral SET tbl_CARGeneral.Status = "CLOSE""
sql = sql & "WHERE (((tbl_CARGeneral.Status)="OPEN"));"
docmd.runsql sql

 

[GingerR]

You have to use single quotes around CLOSE and OPEN:

Dim sql As String

sql = "UPDATE tbl_CARGeneral SET [Status] = 'CLOSE' "
sql = sql & "WHERE [Status]='OPEN';"
DoCmd.RunSQL sql

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244. Basics at

http://r937.com/relational.html