Docmd.RunSQL Update is giving back an an error 3464

[Tim20002]

hi I'm having some trouble running this sql and I get an error #3464 Data type mismatch in criteria expression.

What I'm trying to do is update [tbl_Account]![Available] a Yes/No field to Yes in my after I assign it.

Dim strSQLb As Variant
strSQLb = DLookup("[ACCOUNT]", "qry_Avail_ACCOUNTS")
DoCmd.RunSQL "Update tbl_ACCOUNTS SET tbl_ACCOUNTS.Used= Yes  where tbl_ACCOUNTS.ACCOUNT=" & strSQLb

and I've tried this;

DoCmd.RunSQL "Update tbl_FIR_ACCT SET tbl_FIR_ACCT.Used= '" & Yes & "' where tbl_FIR_ACCT.FIR_ACCT=" & strSQLb

to no avail.. any help would be much appreciated.

[NeoPa]

If the [Account] field is not numeric then you need the single-quotes around that value. Certainly not around the Yes.

DoCmd.RunSQL "UPDATE [tbl_ACCOUNTS] SET [Used]=True WHERE ([ACCOUNT]='" & strSQLb & "')"