Button that opens fillable PDF and pre-fills necessary fields...

[jlnewnam]

I have a database already created to monitor the flow of scholarships for a University. This is a small scholarship program, so we're using Access to maintain everything.

I have one form labeled 'Contributor'. On that form, there are 3 different tabs.

Tab 1: Collects general information – Company Name, Business Phone, Email Address
Tab 2: Collects more detailed information – First/Last Name, Address, Phone, etc
Tab 3: Collects the actual donation information – the most important being the amount donated.

I have created a link on the form to bring up a PDF form stored on the database. The PDF doc is simply a receipt for tax write-off purposes for the donation.

What I’m trying to do is…

1. When the Donation Receipt comes up, I want certain information from the ‘Contributor’ form (in Access) to populate in the PDF form.
2. Then have the ability to save the form to the database, having relation to the contributor.
3. Click a button to send that form, via email, to the contributor for their records.

Does that make sense?



-Jared

[June7]

Google: Access vba fill in pdf form

http://stackoverflow.com/questions/1...-vba-ms-access

[jlnewnam]

Thanks June7. I appreciate this. I've posted the answer below, in hopes that you or someone else can maybe explain a step-by-step on how to implement this script.

Thoughts?

----------------------------------------------------------
Finally managed to get something working after merging some lines of code. Here it is. It works with the Adobe Acrobat 9.0 Type Library set as reference in my VBA project.

Dim FileNm, gApp, avDoc, pdDoc, jso

FileNm = "c:\form.pdf" 'File location
Set gApp = CreateObject("AcroExch.app")

Set avDoc = CreateObject("AcroExch.AVDoc")
If avDoc.Open(FileNm, "") Then
    Set pdDoc = avDoc.GetPDDoc()
    Set jso = pdDoc.GetJSObject

    jso.getField("topmostSubform[0].Page1[0].fieldName[0]").value = "myValue"
    pdDoc.Save PDSaveIncremental, FileNm 'Save changes to the PDF document
    pdDoc.Close
End If

'Close the PDF; the True parameter prevents the Save As dialog from showing
avDoc.Close (True) 

'Some cleaning
Set gApp = Nothing
Set avDoc = Nothing
Set pdDoc = Nothing
Set jso = Nothing

Note that topmostSubform[0].Page1[0] is the default name that Adobe LiveCycle Designer gives to your main PDF document, while fieldName[0] is the name of your field. If you have multiple fields with the same name, Adobe LiveCycle Designer automatically adds index numbers so you can easily loop through your fields.

[June7]

Customize to your situation. Use your file path, file names, fieldnames, etc.

I have no idea what the .GetJSObject is all about.

I have no idea if the code will work. I don't have a PDF form to test with.

Here is another link http://www.vbaexpress.com/forum/showthread.php?t=21503