Thank you!
That is exactly what I needed.
I added
recCount = DCount("[ACCESSION]", "Query1")
If recCount > 0 Then
DoCmd.SendObject acSendReport, "CCL", acFormatRTF, rs("E-MAIL ADDRESS"), "", "", "Daily Census Report", "testing daily census", False
End If
and it no longer sends...