run-time error 2471 'The object doesn't contain the Automation object 'qry_prodreport_ALL.SSN."

[linoleum79]

I'm getting this error: run-time error 2471 'The object doesn't
contain the Automation object 'qry_prodreport_ALL.SSN."

Here is the code:

Private Sub GroupFooter0_Format(Cancel As Integer, FormatCount As
Integer)

Dim strcount As Double, strpts As Double

strcount = Nz(DSum("[Miles]", "Productivity", "[SSN]=
qry_prodreport_ALL.[SSN]" & _
"and [Date] >= DateAdd(ww, -13, (Now))"), 1)
strpts = strcount / 13
Me.txtpts = strpts
End Sub

qry_prodreport_ALL definitely exists, and it returns a field called
"SSN." Is there some error in syntax that I'm missing.

Thank you

[David W. Fenton]

li********@hotmail.com wrote in
news:11**********************@u72g2000cwu.googlegr oups.com:

I'm getting this error: run-time error 2471 'The object doesn't
contain the Automation object 'qry_prodreport_ALL.SSN."

Here is the code:

Private Sub GroupFooter0_Format(Cancel As Integer, FormatCount As
Integer)

Dim strcount As Double, strpts As Double

strcount = Nz(DSum("[Miles]", "Productivity", "[SSN]=
qry_prodreport_ALL.[SSN]" & _
"and [Date] >= DateAdd(ww, -13, (Now))"), 1)
strpts = strcount / 13
Me.txtpts = strpts
End Sub

qry_prodreport_ALL definitely exists, and it returns a field
called "SSN." Is there some error in syntax that I'm missing.

You can only have criteria that apply to the domain you've given for
your DSum(). That is, the "Productivity" table/query is the only
source you can use for criteria. Your 2nd argument needs to be a
query that joins Productivity and qry_prodreport_ALL, and get rid of
the SSN part of the criteria.

--
David W. Fenton http://www.dfenton.com/
usenet at dfenton dot com http://www.dfenton.com/DFA/