Putting reports in the right folder.

[Homegrownandy]

Once I have generated reports in access; I want them to go in the relevant folder on the drive. Is there any possibility of having access put the right report in the right folder? I don't have any suggestions on how to achieve this Its just a general question.

Cheers Andy,

Additionally, EVERY "JOB" in the jobs table will have a folder. Can I simply assign the folder to the job and when a report is made for that job it would go there?

To make things a little more difficult. (although this can be changed) Jobs are split up in my file structure depending on which project they are under.



But any suggestions or possible solutions will be listened too. Even if it requires changing the file structure.

[knarfreppep]

You could call the Sub below with this -

gsubPublishReport "Boat_Fred", lngJob, "rptItemsToPurchase", "ItemsToPurchase_" & Format(lngJob,"00000000")

Public Sub gsubPublishReport( _
ByVal strProject As String, _
ByVal lngJob As Long, _
ByVal strReportName As String, _
ByVal strFileName As String)

On Error GoTo Error_gsubPublishReport

Const pcPATH_FOR_REPORTS = "C:\MyApplicationReports\"

MkDir pcPATH_FOR_REPORTS & strProject & "\Job_" & Format(lngJob, "00000000")

DoCmd.OutputTo acOutputReport, strReportName, acFormatPDF, pcPATH_FOR_REPORTS & strProject & "\Job_" & Format(lngJob, "00000000") & "\" & Format(Date, "yyyymmdd_") & strFileName & ".pdf"

Exit_gsubPublishReport:
Exit Sub

Error_gsubPublishReport:
Select Case Err
Case 75 ' new directory already exists
Resume Next
Case Else
MsgBox Err.Number & " : " & Err.Description
End Select
Resume Exit_gsubPublishReport:

End Sub