Macro to save reports

[Techfi]

I have a macro that saves daily reports to .rtf Is it possible to have the current date in as part of the file name?

 

[Joe4]

Yes, it is possible. Could you post your code that saves the file?

 

[Techfi]

here is the code for one of the reports to be saved by the macro.

DoCmd.OpenReport "Dupe Asset Report", acPreview, "", ""
DoCmd.OutputTo acReport, "Dupe Asset Report", "RichTextFormat(*.rtf)", "q:\db checks\daily reports\dupe asset.rtf", False, ""
DoCmd.Close acReport, "Dupe Asset Report"

 

[Joe4]

How about this:

DoCmd.OpenReport "Dupe Asset Report", acPreview, "", "" 
DoCmd.OutputTo acReport, "Dupe Asset Report", "RichTextFormat(*.rtf)", "q:\db checks\daily reports\dupe asset" & Format(Now(), "yyyymmdd") & ".rtf", False, "" 
DoCmd.Close acReport, "Dupe Asset Report"

You can change the date format to any you like.

 

[Techfi]

that works great. Thanks! The only question I have left is how to save the code as a macro. To get the code to you, i converted it to a module, and that is where I made the changes and tested it out.

 

[Joe4]

I don't think you can. Macros are great for simple tasks, but are very limited. If you want to do something more complicated (like this), VBA is the way to go.

Using VBA should not be feared. You already converted the macro to VBA. Simply connect your command button to the code instead of a macro.

Let me know if you need any assistance doing this.