is something wrong with this code?

[dharkangel]

Hi,

I have this piece of code in my VBA Module and when I run it, I keep getting an Unknown error on the DoCmd command. I can't see anything wrong with the syntax, so either, I've been looking at the code too long or there is something about the dAvg function I don't understand:

TokyoWeeklyClosedByCommit is an integer field with values.

strSQL = "UPDATE ClosedByCommit SET TokyoRunningAverage = " & _
"DAvg(""[TokyoWeeklyClosedByCommit]"",""TokyoInternalActions"",""[ID] <= 3"")" & _
"WHERE ID = 1;"
DoCmd.RunSQL strSQL

Thank you

 

[ddiamond]

You need a space before your where clause. Try:

strSQL = "UPDATE ClosedByCommit SET TokyoRunningAverage = " & _
"DAvg(""[TokyoWeeklyClosedByCommit]"",""TokyoInternalActions"",""[ID] <= 3"")" & _
" WHERE ID = 1;"

 

[dharkangel]

I wish it would have been that easy but i'm still getting the same error.

 

[jebry]

Hi!

Try this:

strSQL = "UPDATE ClosedByCommit SET TokyoRunningAverage = " & _
"DAvg('[TokyoWeeklyClosedByCommit]','TokyoInternalActions','[ID] <= 3') " & _
"WHERE ID = 1;"


Jeff Bridgham
Purdue University
Graduate School
Data Analyst

 

[ddiamond]

If you put your sql in a query instead of VBA, do you get the same error?

 

[Remou]

How about:
strSQL = "UPDATE ClosedByCommit SET TokyoRunningAverage = " & _
DAvg("[TokyoWeeklyClosedByCommit]", "TokyoInternalActions", "[ID] <= 3") & _
" WHERE ID = 1;