Document managment

[Homegrownandy]

The system I currently have will be used to produce a lot of reports. we have about 4-500 jobs at the moment. Each needing 4 different reports at different stages of work.



Right now I'm using a combination of excel and word to mail merge groups of files and then manually put them in the right folders on our drive.

Is it possible in access to have a "file structure" that's recognised and used by the software?

Has anyone else had to do something similar? What solutions did you find?

Andy.

[ranman256]

I used access to run daily reports.
The form showed, A list of reports ,
a list of departments.
code would scan both lists, produce PDF of each rpt for that dept for that day/week.
this file would save to the REPORTS folder, then Dept folder, then date ...ala
Production-ASSY-Day150730.pdf

[Homegrownandy]

I don't suppose you have that code available for me? It might not be suitable but I'm sure it will give me a better idea of what I'm attempting to do.
Andy.

[ranman256]

In the form, the code get the report, vRpt, from lstRpts
and the vDept from the lstDepts

Public Sub ReportOutput()
Dim vDate, vRpt, vDept, vDir, vTargDir, vType, vFile, vRptName
Dim r, d

vDate = Format(Date, "yymmdd")
vType = cboRptType          'weekly, daily, monthly
vDir = DLookup("[RptDir]", "tConfig")  'lookup report folder to print to

For r = 1 To lstRpts
   vRpt = lstRpts(r).ItemData   'get next rpt
   
   For d = 1 To lstDepts
      vDept = lstDepts(d).ItemData   'get next dept
      vTargDir = vDir & vDept & "\"
      MakeDir vTargDir    'ignores if exists
      
      vRptName = vRpt & "-" & vDept & "-" & vType & vDate & ".pdf"
      vFile = vTargDir & vRptName
      
      DoCmd.OutputTo acOutputReport, vRpt, acFormatPDF, vFile
   Next
Next
End Sub

Public Sub MakeDir(ByVal pvDir)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(pvDir) Then fso.CreateFolder pvDir     'MkDir pvDir


Set fso = Nothing
End Sub

[Homegrownandy]

Thanks Ranman