Trying to combine two pdf using access vba...

[hrprabhu]

the bottom code is working.... Hard coded the document names

 
Sub CombinePDFs()
 
    Dim AcroApp As Acrobat.CAcroApp
 
    Dim Part1Document As Acrobat.CAcroPDDoc
    Dim Part2Document As Acrobat.CAcroPDDoc
 
    Dim numPages As Integer
 
    Set AcroApp = CreateObject("AcroExch.App")
 
    Set Part1Document = CreateObject("AcroExch.PDDoc")
    Set Part2Document = CreateObject("AcroExch.PDDoc")
 
    Part1Document.Open ("H:\My Documents\PDF\20161012 Muscat 8601539 COMM(SFSS)EXTRA TAX.pdf")
    Part2Document.Open ("H:\My Documents\PDF\8601539.pdf")
 
    ' Insert the pages of Part2 after the end of Part1
    numPages = Part1Document.GetNumPages()
 
    If Part1Document.InsertPages(numPages - 1, Part2Document, 0, Part2Document.GetNumPages(), True) = False Then
        MsgBox "Cannot insert pages"
    End If
 
    If Part1Document.Save(PDSaveFull, "H:\My Documents\20161012 Muscat 8601539 COMM(SFSS)EXTRA TAX.pdf") = False Then
        MsgBox "Cannot save the modified document"
    End If
 
    Part1Document.Close
    Part2Document.Close
 
    AcroApp.Exit
    Set AcroApp = Nothing
    Set Part1Document = Nothing
    Set Part2Document = Nothing
 
    MsgBox "Done"
 
End Sub
 

the bottom code is NOT working....did not Hard coded the document names.

 
Function CombinePDFs()
    Dim AcroApp As Acrobat.CAcroApp
 
 
    Dim Part1Document As Acrobat.CAcroPDDoc
    Dim Part2Document As Acrobat.CAcroPDDoc
 
    Dim numPages As Integer
 
    Set AcroApp = CreateObject("AcroExch.App")
 
    Set Part1Document = CreateObject("AcroExch.PDDoc")
    Set Part2Document = CreateObject("AcroExch.PDDoc")
 
    Part1Document.Open ("H:\My Documents\PDF\" & Format(Date, "yyyymmdd") & _
                        " " & [Forms]![frmForCalculations]![sFrmForCalculations].[Form]![LastName] & _
                        " " & [Forms]![frmForCalculations]![sFrmForCalculations].[Form]![Snumber] & _
                        " COMM (SFSS) EXTRA TAX.pdf")
 
    Part2Document.Open ("H:\My Documents\PDF\" & [Forms]![frmForCalculations]![sFrmForCalculations].[Form]![Snumber] & ".pdf")
 
 
    ' Insert the pages of Part2 after the end of Part1
    numPages = Part1Document.GetNumPages()
 
    If Part1Document.InsertPages(numPages - 1, Part2Document, 0, Part2Document.GetNumPages(), True) = False Then
        MsgBox "Cannot insert pages"
    End If
 
    If Part1Document.Save(PDSaveFull, "H:\My Documents\PDF\" & Format(Date, "yyyymmdd") & _
                        " " & [Forms]![frmForCalculations]![sFrmForCalculations].[Form]![Snumber] &  ".pdf") = False Then
        MsgBox "Cannot save the modified document"
    End If
 
    Part1Document.Close
    Part2Document.Close
 
    AcroApp.Exit
    Set AcroApp = Nothing
    Set Part1Document = Nothing
    Set Part2Document = Nothing
 
    MsgBox "Done"
End Function
 

What could I be doing wrong?

[jforbes]

Are you getting an error?

I would also debug and print out the filenames and then copy and paste them into Windows Explorer to make sure the files and file path exits.

[hrprabhu]

Got it....

an unintentional space was the problem

" .pdf" instead of ".pdf" caused the problem.