before Opening the report you must save the record.
on your code add this:
'arnelgp
'force save the record
Me.Dirty = False
DoCmd.OpenReport "rptCasesCountblank", acViewPreview, "", "", acNormal
you must also Change your qryCaseCountBlank to return
1 record only:
SELECT TOP 1 tblCaseCountBlank.*,
Month([Date]) AS DateMonth, Format([date],"mmmm") AS Expr1,
Year([Date]) AS Expr2, Format([date],"d") AS Expr3
FROM tblCaseCountBlank ORDER BY ID DESC;