DoCmd.RunSQL sql

[JGR]

Thanks for the help!
I changed the code to

sql = "Update tblBBPNo" & " Set tblBBPNo.ysnAvaliable =
True;" & _
" Where intBBP_No_Id = '" & Me.intBBP_No_Id.OldValue & "'"
DoCmd.RunSQL sql

This changed the Error to:
3142 Characters found after end of SQL statment.

Is this a typo or because it is part of an IF statment and
there is another "sql=" below the DoCmd.RunSQL sql?

 

[Ted Allen]

The semicolon notes the end of a query. You have a
semicolon before the WHERE clause, which I think is
generating the error.

HTH, Ted Allen