M
mscertified
I'm running the below code and it fails on the docmd.outputto statement with
error 2024 "the report snapshot was not created because you dont have enough
free disk space for temporary work files". I can do the export manually via
the toolbar with no problem. Any ideas?
Dim strPath As String
DoCmd.OpenReport "rptTAD", acViewPreview
Reports("rptTAD").ZoomControl = ReportZoomPercent
DoCmd.OpenReport "rptNotification", acViewPreview
Reports("rptNotification").ZoomControl = ReportZoomPercent
strPath = DLookup("SnpPath", "tblPath", "[SnpType]='TAD'")
If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"
strPath = strPath & gUserID & "\AppID-" & Me!AppID & ".SNP"
DoCmd.OutputTo acOutputReport, "rptNotification", "Snapshot Format",
strPath, True
error 2024 "the report snapshot was not created because you dont have enough
free disk space for temporary work files". I can do the export manually via
the toolbar with no problem. Any ideas?
Dim strPath As String
DoCmd.OpenReport "rptTAD", acViewPreview
Reports("rptTAD").ZoomControl = ReportZoomPercent
DoCmd.OpenReport "rptNotification", acViewPreview
Reports("rptNotification").ZoomControl = ReportZoomPercent
strPath = DLookup("SnpPath", "tblPath", "[SnpType]='TAD'")
If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"
strPath = strPath & gUserID & "\AppID-" & Me!AppID & ".SNP"
DoCmd.OutputTo acOutputReport, "rptNotification", "Snapshot Format",
strPath, True