VarX Syntax error 1

[lars7]

Hi there,
Can anyone see why I am getting a syntax error with this code:

Dim varx As Variant

varx = DCount("*", "[tblKSFOutline]", "[OutlineTitle]='" & Forms!FormMain!OutlineTitle & "'")
CurrentDb.Execute "UPDATE [tblKSFOutline] SET [addRecord]=" & varx & " WHERE OutlineTitle='" & Forms!FormMain!OutlineTitle & "' AND WHERE Location='" & Forms!FormMain!Location & "'"

I have a similar bit of code working on another form but I have changed the last where clause and I am getting the error message, all fields are text except "addrecord" (number). When I debbug I am getting all the right readings and the record is being saved but it is not entering the varx.

 

[AlexCuse]

I think that your SQL code should read:

"& varx & " WHERE OutlineTitle='" & Forms!FormMain!OutlineTitle & "' [COLOR=red] AND Location='" & Forms!FormMain!Location & "'"
[/color]

Hope this Helps,

ALex

It's a magical time of year in Philadelphia. Eagles training camp marks the end of another brutal season of complaining about the Phillies.

 

[lars7]

Thanks Alex that worked.