[RESOLVED] VBA Save Access Report As SNP File Name With Current Date

[Khadafi]

Hi, i am using the following code in Access to store a report as a snapshot file, which works perfectly.

Dim stDocName As String
    stDocName = "My Report"
DoCmd.OutputTo acReport, stDocName, "SnapshotFormat(*.snp)", "C:\Documents and Settings\khadafi\My Documents\ReportFolder\MyReport.snp"

I would like to save the current date within the snp files name, or for a new folder to be created within the ReportFolder with the current date as its name.

Thanks For The Help In Advance.

[westconn1]

DoCmd.OutputTo acReport, stDocName, "SnapshotFormat(*.snp)", "C:\Documents and Settings\khadafi\My Documents\ReportFolder\MyReport" & format(date, "yy-mm-dd") & ".snp"

change the format to suit

[Khadafi]

Hi, thanks that works great.

Is there any way that i could get a new folder to be created, with the current date as its folder name, and the snapshot files to be saved in that folder.

Many Thanks

[westconn1]

mystr =  format(date, "yy-mm-dd")
mkdir "C:\Documents and Settings\khadafi\My Documents\ReportFolder\" & mystr
DoCmd.OutputTo acReport, stDocName, "SnapshotFormat(*.snp)", "C:\Documents and Settings\khadafi\My Documents\ReportFolder\" & mystr & "\MyReport.snp"

[Khadafi]

Hi, i got that working thanks.
I just wanted to ask what is the purpose of mkdir in that code.

Also, i want to save all the reports in my database into the same folder, what is the simplest way of doing this. i can add

    
stDocName = "My Report New"
DoCmd.OutputTo acReport, stDocName, "SnapshotFormat(*.snp)", "C:\Documents and Settings\khadafi\My Documents\ReportFolder\MyReportNew.snp"

for each report, but was wondering if there is an easier way of doing this.

Also, i ran your code, and it worked perfectly, but the second time i run it, i get a Path File Error, possibly as a folder with the current date has already been created. Can i add the time to the folder name, which will allow me to run the code many times in a day.

Sorry for so many questions.
Thanks

[westconn1]

mkdir is make directory

you can test if the dirrectory already exists, using dir

if len(dir("C:\Documents and Settings\khadafi\My Documents\ReportFolder\" & mystr))=0 then mkdir "C:\Documents and Settings\khadafi\My Documents\ReportFolder\" & mystr

Also, i want to save all the reports in my database into the same folder, what is the simplest way of doing this.

do not create new folders if you want to save all the same folder

yes you can add time, but do you really need that many new folders? maybe better to have on folder for day, put time in filenames

mystr = format(now, "yy-mm-dd hhnn")

change format to suit, beware of invalid characters in filename / or : may be illegal characters

[Khadafi]

Hi, as you suggested I am using the following code to store, reports in one folder for each day, with the time on the Report file names

Dim stDocName As String
mystr = Format(Date, "dddd-mmmm-yyyy")
MkDir "C:\Documents and Settings\khadafi\My Documents\ReportFolder\" & mystr
stDocName = "My Report"
DoCmd.OutputTo acReport, stDocName, "SnapshotFormat(*.snp)", "C:\Documents and Settings\khadafi\My Documents\ReportFolder\" & mystr & "\MyReport " & Format(Now, "(hh-nn AMPM)") & ".snp"

this code works perfectly, however if i run it again, i get a file path error.
I tried using, the

if len(dir("C:\Documents and Settings\khadafi\My Documents\ReportFolder\" & mystr))=0 then mkdir "C:\Documents and Settings\khadafi\My Documents\ReportFolder\" & mystr

, but couldnt get that to work.

Thanks.

[westconn1]

oops, my appology, must add to look for directory and files

if len(dir("C:\Documents and Settings\khadafi\My Documents\ReportFolder\" & mystr, vbdirectory))=0 then mkdir "C:\Documents and Settings\khadafi\My Documents\ReportFolder\" & mystr

[Khadafi]

Hi, thanks that works great.

My code now is

Dim stDocName As String
mystr = Format(Date, "dddd-mmmm-yyyy")
if len(dir("C:\Documents and Settings\khadafi\My Documents\ReportFolder\" & mystr, vbdirectory))=0 then mkdir "C:\Documents and Settings\khadafi\My Documents\ReportFolder\" & mystr 
stDocName = "My Report"
DoCmd.OutputTo acReport, stDocName, "SnapshotFormat(*.snp)", "C:\Documents and Settings\khadafi\My Documents\ReportFolder\" & mystr & "\MyReport " & Format(Now, "(hh-nn AMPM)") & ".snp"

One final thing, i want to save many reports into the same folder, for example Report 1, Report 2 etc.
Do i need to add

stDocName = "My Report 1"
DoCmd.OutputTo acReport, stDocName, "SnapshotFormat(*.snp)", "C:\Documents and Settings\khadafi\My Documents\ReportFolder\" & mystr & "\MyReport1 " & Format(Now, "(hh-nn AMPM)") & ".snp"

to the code for each report, or is there an easier way of doing this.
Thanks

[westconn1]

stDocName = "My Report 1"
DoCmd.OutputTo acReport, stDocName, "SnapshotFormat(*.snp)", "C:\Documents and Settings\khadafi\My Documents\ReportFolder\" & mystr & "\" & strDocName & Format(Now, "(hh-nn AMPM)") & ".snp"

[Khadafi]

Hi, i couldn't get that last bit to work, but thanks. I have just added each report the way i suggested in my previous post.

Thank you for all your help.
Regards