I have attached a database I am currently working on
Ive tried some code I found in a previous source on EE in relation to adding fields and a command button on a form to create and run a report from a particular date range. The original source is :-
DoCmd.OpenReport "YourReport", acViewPreview, , "[Full Date] Between #" & [StartDateTextBox] & "# AND #" & [EndDateTextBox] & "#"
Jase Alexander
ASKER
Hi Roy
Thanks for the reply
Do I just paste this into the standard code window or create a module?
How do I link this to a command button in the form?
Your input is much appreciated as always
J
Paul Cook-Giles
This should work; give it a spin.
1. The field to which your criteria is/are applied has to be in your data source; in this case, [Full Date] wasn't in the query attached to the report.
Just one thing - if I create a report from a query and call it, for example, ChargesByCountry, that have all columns; if I alter the "YourReport" in the code to "ChargesByCountry" will it select this report to run?
J
Paul Cook-Giles
If the query has the Full Date field in it, the report should open and display whatever data meets the date criteria you entered on the form. :)
Another note: your objects (forms, queries, reports, buttons, and so on) should never have spaces in their names; as you learn more about working in VBA, you'll find that avoiding spaces makes coding much easier.
Jase Alexander
ASKER
Hey Paul
Thanks for the advice
Ive just created a report from FullDatawithFullDPDCharges and when I run the date range form to run the report, it still runs the By Country instead of this one?
Is there a way to point the code toward a specific report or will it just pick the first that is available?
J
Rey Obrero (Capricorn1)
@spicecave
you have to specifically pick the report you want to open
DoCmd.OpenReport "YourReport", acViewPreview, , "[Full Date] >=#" & [StartDateTextBox] & "# AND [Full Date]<=#" & [EndDateTextBox] & "#"
using Between
DoCmd.OpenReport "YourReport", acViewPreview, , "[Full Date] Between #" & [StartDateTextBox] & "# AND #" & [EndDateTextBox] & "#"