Still having problems comparing dates.

[Rob Brown]

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.

[paulw]

I have tried this and it does work - all I can suggest is that you explicitly format the date using Format(Date(), "ddmmyyy") or whatever.

Are you getting US style dates back? Try setting your date to 10th October (10/10) and ensuring it works then. Dates are a bu**er though.

Cheers,

Paul.

[Kersey]

you might try this

("rptStatement", acViewPreview, , "[Date] = " & clng(Date) )

[Rob Brown]

Problem solved,

Although the Date function was printing in the immediate window as DD/MM/YY it must have contained other information also.

I found myself having to use:

Format(Date, "Short Date")

this works fine.

Thanks for your suggestions anyway.

Best regards,

Rob Brown.