Automatically exporting a report on closing access

[Alvin Schultz]

I am working on an elderly friend's database. He sells things on layaway. If something were to happen to him, he wants his daughter to be able to complete the transactions (yes he is very dedicated). I've created a report. But he doesn't always remember to export the report. So I would like to automatically export the report to a file on his desktop when he closes down access each night. I've read about and can create an outlook task, but he doesn't use outlook and so that process will likely fail. Any ideas?


Thanks for your help.

[June7]

Have code in the Close event of a form that never closes until the database is quit. I use a Main Menu form or this could be a hidden 'splash' form.

[Alvin Schultz]

I know you are busy, but my coding is encrusted with rust. I can get to the point of entering the code, but need more help if possible. The report name is "Layaways Pending" and I would like to export it to a Word document on the desktop. IF you have time I would appreciate more help. Thanks again.

[ItsMe]

Maybe something like

DoCmd.OutputTo acReport, "rptName", acFormatRTF, "C:\PathToDirectory\Filename.rtf"

[June7]

Can export to Word RTF (rich text format).

I have no idea how to programmatically save document to desktop. The little research I did indicates it is not easy.

Alternative is to first save document to a folder location then set a desktop shortcut to the file. Use code to replace the file each day.

[ItsMe]

Path to desktop should be something like this

C:\Users\UserName\Desktop\

[Alvin Schultz]

Thanks for your help. I'll try doing this.

[June7]

Okay, maybe not so hard. The USERNAME can be pulled from the system with:

Environ("USERNAME")

Yes, type it exactly like that.

DoCmd.OutputTo acOutputReport, "report name", acFormatRTF, "C:\Users\" & Environ("USERNAME") & "\filename.doc"

Wait - it saved the file but don't see it on desktop.

This works:

Docmd.OutputTo acOutputReport, "report name", acFormatRTF, "C:\Documents and Settings\All Users\Desktop\filename.doc"

or

Docmd.OutputTo acOutputReport, "report name", acFormatRTF, "C:\Documents and Settings\" & Environ("USERNAME") & "\Desktop\filename.doc"

[Alvin Schultz]

Thank you.