Access Macro (2000)

Topic

New Reply

I have a very simple macro which I’m performing the OutputTo Action to output to a RTF format. My question is… I have to include a name in the Output File like so…D:/Reports/bms.rtf I’d like to somehow instead of naming the file, just add the system date. Is this possible. Or is there a command afterwards that I can rename the file to display the date. I’m running a batch file to run the macro. Any help would be much appreciated!! Thanks beforehand

Reply | Quote

Replies

Put this code in a module.
Replace the name of the report with yours, and change the the date format to what you want.

Sub OutputToRtf()
DoCmd.OutputTo acOutputReport, “MyReport”, acFormatRTF, “D:Reportsbms” & Format(Date, “yymmdd”) & “.rtf”
End Sub

In the Macro, replace the Outputto action by RunCode and enter OutputToRtf in the function name box.

Reply | Quote

This will be the first time I create a module. Do I need to save it as something specific? Thanks so much!!

Reply | Quote

I’ve read your post thoroughly and have trippled check my work. I’m getting a stubborn error as follows when I run the macro…
Microsoft Access can’t find the name “OutputToRtf” you entered in the expression.

You may have specified a control that wasn’t on the current object w/o specifying the correct form or report context.

But it works when I run the module code from the design view. Any ideas? Thanks a million!!

Reply | Quote

Sorry, I forgot to add the parenthese after OutputToRtf() in the macro.
Make also that the module have not the same name as the sub.

Reply | Quote

Macros can’t call Subs only Functions. You’ll have to change the routine to a public function before you can call it from a macro.

Reply | Quote

How can I go about doing this. Here is what I have up to this point…

The error:
The expression you entered has a function name that Microsoft Access can’t find.

In my Macro in which I named BMS, I have RunCode as my Action and OutputToRtf() as my function name.

In my Module in which I named Module1, I have the following code:

Sub OutputToRtf()
DoCmd.OutputTo acOutputReport, “Budget Summary Report”, acFormatRTF, “D:Reportsbms” & Format(Date, “yyyymmdd”) & “.rtf”
End Sub

Thanks again to everyone for helping me with this problem.

Reply | Quote

Change the code to :
Function OutputToRtf()
DoCmd.OutputTo acOutputReport, “Budget Summary Report”, acFormatRTF, “D:Reportsbms” & Format(Date, “yyyymmdd”) & “.rtf”
End Function

Sory, about that, but if it is your first code, I never use macro’s and wasn’t aware if this subtlety.

Reply | Quote

Thanks so much. Everything worked like a charm!!!

Reply | Quote