MakeDir Crashes on Initial Output to PDF

[jazzy]

when it runs, it creates all the directories and access crashes. in the directory there is a .tmp file (pdf temp file). restart access since directories are now there, it will create the PDF files as planned. Thanks

Private Sub CreatePDF_Click()DoCmd.RunCommand acCmdSaveRecord


Dim UserVenuePath As String
Dim strFilePath As String
Dim strFileName As String
Dim strReport As String
Dim Venue As String


UserVenuePath = DLookup("[FilePath]", "tbl_SystemInfo", "[SystemInfoID] = 1")
Venue = DLookup("[Venue]", "tbl_SystemInfo", "[SystemInfoID] = 1")
strFilePath = UserVenuePath & Environ("username") & "\OneDrive - Caterers In The Park\" & Venue & "\Contracts\" & Format(Forms!frm_Contract.DateofFunction, "MM-DD-yyyy") & "\" & Forms!frm_Contract.DayTimeFunction & "\"
strFileName = Forms!frm_Contract.NameonContract & ".pdf"


MakePDF = MsgBox(strFilePath, vbOKCancel, "Create PDF for " & strFileName)
If MakePDF = vbOK Then


If FolderExists(strFilePath) = False Then
          Call MakeDir(strFilePath)
Else
          MsgBox "This folder already exists.", vbInformation, "Folder Exists"
End If


'First let's open the report
strReport = "rpt_Contract"
'DoCmd.OpenReport strReport, acViewPreview, , "[ContractsID] = [Forms]![frm_Contract]![ContractsID]", acWindowNormal


'Now let's save the open report to .PDF
DoCmd.OutputTo acOutputReport, strReport, acFormatPDF, strFilePath & strFileName, False
'DoCmd.Close acReport, strReport


'Display Message
MsgBox "New file has created successfully in the new folder!", vbInformation, "VBAF1"


End If


End Sub

[Welshgasman]

Perhaps put a DoEvents between creating a folder and outputting to said folder?

[orange]

More info: MakeDir makes 1 level at a time

[Gicu]

This is the custom function I used for multi-level directory creation (also works with UNC paths):

Public Sub MyMkDir(sPath As String)
    Dim iStart          As Integer
    Dim aDirs           As Variant
    Dim sCurDir         As String
    Dim i               As Integer
 
    If sPath <> "" Then
        aDirs = Split(sPath, "\")
        If Left(sPath, 2) = "\\" Then
            iStart = 3
        Else
            iStart = 1
        End If
 
        sCurDir = Left(sPath, InStr(iStart, sPath, "\"))
 
        For i = iStart To UBound(aDirs)
            sCurDir = sCurDir & aDirs(i) & "\"
            If Dir(sCurDir, vbDirectory) = vbNullString Then
                MkDir sCurDir
            End If
        Next i
    End If
End Sub

Cheers,

[jazzy]

i compiled, compacted and repaired a few times and its working again. something screwy i guess