extracting pdf files question

[slimjen]

All, using access 2015. I have a multipage pdf that contains different letters. I have code to extract the letters to a folder from the database. All works well. But I have some pdf files that I created in January in a folder outside the database that I want to extract with a naming convention to identify the letters. Does anyone know how I would do this? She I import the files back into the database somehow and try to export again with the naming convention? I was hoping there may be a faster way because I think there would be a lot of set up otherwise. Thanks

[rpeare]

I do not understand the question.

[slimjen]

This is part of my code I'm trying:

DoCmd.OutputTo acOutputReport, "rptCustLetter", acFormatPDF, myPath & "\" & strReportName1, False

I need to export "rptCustLetter" which is a multipage pdf into separate pages with a naming convention. I am having trouble setting it up to extract into separate pages. It exports without separating the pages.

thanks

[rpeare]

if you are talking about creating a separate report for each customer you would have to cycle through a recordset run the report then move to the next item in the recordset.

so let's say you have a query that correctly identifies the clients that need a letter (let's call it qryClientList) you would have something like

dim db as databvase
dim rst as recordset
dim CustID as long 'assuming the customer id is the driving force and it's a number (autonumber) field

set db = currentdb
set rst = db.openrecordset(qryClientLIst)

if rst.recordcount <> 0 then
    do while rst.eof <> true
        CustID = rst!custID
        'DO WHATEVER YOU'RE GOING TO DO WITH YOUR PDF CREATION HERE USING THE CUST ID FROM YOUR RECORDSET
        'You can set a filter 
        'OR build a SQL ROWSOURCE statement 
        'OR populate a field on a form with the client identifier to show who is currently being processed as it happens and use the field on the form as your criteria for a static query
    loop
else
    msgbox "NO RECORDS IN RECORDSET", vbokonly, "BLAH BLAH"
endif


set db = nothing