Error 2024

[hzeigler4]

I have a report in access that I save on the network as a snapshot in a designated folder. I can run this and it works fine. However it does not work for my coworker. She gets the error: "The report snapshot was not created because you dont have enough free disk space for temporary work files" The folder does exist and I am not using any invalid characters. Why would this work for me and not for another person? Here is the code:

strSQL = "SELECT PreschoolOutcomeDataExitFinal.TeacherOfSvc from PreschoolOutcomeDataExitFinal group by PreschoolOutcomeDataExitFinal.TeacherOfSvc;"
Set rs = dbs.OpenRecordset(strSQL)
Path = "\\sccps-bull1\Shares\Sped\Spec_ed\PreschoolOutcomeReports\Exit\"
Folder = Path & Format(Date, "yyyy-mm-dd")
MkDir Folder

DoCmd.OpenReport "rptPreschoolOutcomeDataExit", acViewDesign
Do Until rs.EOF
Name = rs.TeacherOfSvc
Reports!rptPreschoolOutcomeDataExit.Filter = "TeacherOfSvc = '" & Name & "'"
Reports!rptPreschoolOutcomeDataExit.FilterOn = True

Report = Folder & "\" & Format(Date, "yyyy-mm-dd") & " " & Name & " rptPreschOutcomeExit.snp"
DoCmd.OutputTo acOutputReport, "rptPreschoolOutcomeDataExit", acFormatSNP, Report
rs.MoveNext
If rs.EOF Then
Reports!rptPreschoolOutcomeDataExit.Filter = " "
Reports!rptPreschoolOutcomeDataExit.FilterOn = False
End If
Loop

DoCmd.Close acReport, "rptPreschoolOutcomeDataExit", acSaveYes

rs.Close

Application.DoCmd.SetWarnings True

 

[WayneRyan]

HZ,

I'd guess that the error message is a little bit misleading.

Can your coworker write to the directory?

Have him/her try to save a Word or Notepad document there to test.

Wayne

 

[hzeigler4]

It is not a write issue because this is the crazy thing....

The report prints out for each individual in it. See "NAME" below:

Report = Folder & "\" & Format(Date, "yyyy-mm-dd") & " " & Name & " rptPreschOutcomeExit.snp"

There are about 25 names and it will actually print the first 4 reports and then give me the error. So it starts but then fails with this error. Any other ideas or suggestions?