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