Hi,

I have the following function in my application

Print_Statement

Dim appAccess as Access.Application

Set appAccess = New Access.Application

appAccess.OpenCurrentDatabase _
("G:\Wiz Add Ins\Energy Client\Database\Energy Client.mdb")

appAccess.DoCmd.OpenReport _
("rptStatement", acViewPreview, , "[Date] = #" & Date & "#")

This should return the report displaying only the data for the current date, however it returns no records at all.

I had the same problem using the FindFirst Method recently and had to search records manually to find my data.

This is not an option this time as the OpenReport command requires this WHERE clause like string.

Any suggestions would be much appreciated as my application is now finished and I only have the reports left to configure.

Best regards,

Rob Brown.