MS Access - Set Default Database Folder using VBA

[MJC22]

Hi,

I am creating rtf files in MS Access and I would like to know how to change the location of the saved files. Currently, they are being saved in my default database folder.

The following code is used to generate the rtf file:

DoCmd.OutputTo acOutputReport, "rptEmploye e", acFormatRTF, "Employee.r tf", True

I want to save the file to a folder which is located in the same location of my front end. I am using the following code to find the location of the front end.

Dim MyPath
MyPath = Application.Cur rentProject.Pat h


I would be grateful if someone could help me put these two together.

Kind regards,

Mike

[ADezii]

Dim MyPath

MyPath = CurrentProject.Path & "\Employee.rtf"

DoCmd.OutputTo acOutputReport, "rptEmployee", acFormatRTF, MyPath, True