Print Documents

Fill In PDF
Fill In PDF Forms with Microsoft Access Data try this it may be inline with what your looking for.

You could always fill out the PDF and then copy the data from the PDF into Access by switching to the window, copying the whole thing to the clipboard, and then analyzing the text. AppActivate

Hello Juan,

I am in the process of filling out the code to have it fill in the PDF. It is opening the PDF; however, it is not tabbing to the NCMR # Spot and it is not sending the Data.

This what I have as the Code so Far

Private Sub FillInPDFBtn_Click()
    Dim X As Long
    ' Hyperlink
    FollowHyperlink "Y:/ISO WEB/Level IV/Quality/Q-220.pdf"
        
    Sleep 500 'wait for PDF to Load
    
    ' Send 1 Tab Keys
    For X = 1 To 1
        SendKeys "(TAB)", True
        Sleep 100
    Next

     ' Fill in Fields
      SendData NCMRNumber
End Sub

For X = 1 to 1

Doesn't seem right

I only needed to hit the tab button once. I wasn't sure how to word the code for that.

Just get rid of the For loop completely then.

Hello,

Getting rid of the for Loop did not work. So I had it tab 12 times to the Initiatedby field. Still nothing.

Here is the code:

Private Sub SendData(S As Variant)

    If IsNull(S) Or S = "" Then S = " "

    SendKeys S & "(TAB)", True
    Sleep 3000
    
End Sub

Private Sub FillInPDFBtn_Click()
    
     ' Hyperlink
    
        FollowHyperlink "Y:/ISO WEB/Level IV/Quality/Q-220.pdf"
        
        Sleep 10000 'wait for PDF to Load
    
    ' Send 12 Tab Keys
    
        For X = 1 To 12
  
            SendKeys "(TAB)", True
            Sleep 300
        Next
    
    ' Fill in Fields
    
        SendData InitiatedBy
        SendData NCMR#

End Sub

TAB should be in curly braces {TAB}, not parentheses.

Nice catch, Kevin.

Hello,

The document is opening, and the cursor is in the correct field, however the data is not transferring.

Private Sub SendData(S As Variant)

    If IsNull(S) Or S = "" Then S = " "

    SendKeys S & "{TAB}", True
    Sleep 300
    
End Sub

Private Sub FillInPDFBtn_Click()
    
     ' Hyperlink
    
        FollowHyperlink "Y:/ISO WEB/Level IV/Quality/Q-220.pdf"
        
        Sleep 1000 'wait for PDF to Load
            
    ' Fill in Fields
    
        SendData NCMRNumber
        SendData "{TAB}"
        SendData "{TAB}"
        SendData NCMRType
        SendData InitiatedDate
        SendData ProductFamily

End Sub

The name that i use after SendData "NCMRNumber", Do I use the Name i give it or the Source Name?

Have you named them differently?

Yes, the names given by who created it, have spaces in them. I just removed the spaces in the name.

I took out all the spaces in both, but when I opened the input form we use, it was no longer displaying the records in descending order, it was doing a random draw. We have to update each record pretty much daily while they are open. So the random draw won't work.

Not quite following.
You've changed the names in the Table/Query/Form?

Does your Query have a sort on it?

We enter the information into a Form and the fields are all in a table. I don't see a query attached. I will upload photos.

In the first photo you will see the field name is N NCMR Number. The Name is NCMRNumber(took spaces out for VBA). When you open the NCMR input form, it opens on a blank form. When you hit the scroll arrows it goes to the last entered Form. When I tried taking out the spaces in field name (to match the name), the order was random.

Hope this gives a better understanding.

Regarding you seeing wrong sort order, do you have the correct sort order in the "Order By" property on the property sheet?  You said you took out all the spaces in the names, but your picture above shows your "Order By" property still has spaces: [NCMR Main Table].[N NCMR Number].  It needs to have the correct field name(s) to sort properly.

Regarding sending keystrokes to PDF forms, I've never done that because it's often easier to just recreate the form in Access (see picture below).  If the form is not too complex and contains mainly boxes and lines, it's easier to just recreate it with the report designer.  Then you'll only have to put in bound controls and run it like a regular report.

I took out all the spaces, then the order became random. So, I put the spaces back in.

Remove the "Order By" value on the property sheet and try setting the sort order on the form -- right-click on the textbox that contains the field to be sorted, then select the sort settings.  Close and save the form.  Open it again in design view and check the "Order By" property again.