Using VBA with Checkboxes doesn't work

Avatar

Avatar

Hunter1211

Avatar

Hunter1211

Hunter1211

14-05-2017

I've been able to successfully write a function using Visual Basic to pull text data from a MS Access database and write it to a LiveCycle form.  The current problem is with Checkboxes.  I'm able to set a 0 or 1 (checked or un-checked), but when the form is saved using the jso.SaveAs function, the new state of the checkboxes is not saved.

I searched the forums and found a similar question being asked, but it was nearly 10 years ago.  I'm assuming Adobe would have fixed the API or provided examples on how to use it properly.  Does anyone have any insight on how to change and save Checkboxes using VBA?

Below is my code:

Private Sub generatePDF()

    Dim AcroApp As Acrobat.CAcroApp

    Dim theForm As Acrobat.CAcroPDDoc

    Dim jso As Object

    Set AcroApp = CreateObject("AcroExch.App")

    Set theForm = CreateObject("AcroExch.PDDoc")

    theForm.Open ("C:\temp\Form.pdf")

    Set jso = theForm.GetJSObject

     'No problems setting the following text fields

    jso.getField("form1[0].Page1[0].text19[0]").Value = "Text Value 1"

    jso.getField("form1[0].Page1[0].text20[0]").Value = "Text Value 2"

    jso.getField("form1[0].Page1[0].text21[0]").Value = "Text Value 3"

     'Checkboxes are unchecked

    msgbox ("Checkbox 2 is: " & jso.getField("form1[0].Page1[0].checkbox2[0]").Value)

    msgbox ("Checkbox 8 is: " & jso.getField("form1[0].Page1[0].checkbox8[0]").Value)

    'The checkboxs are checked

    jso.getField("form1[0].Page1[0].checkbox2[0]").Value = 1

    jso.getField("form1[0].Page1[0].checkbox8[0]").Value = 1

     'Verify checkboxes are checked

    msgbox ("Checkbox 2 is: " & jso.getField("form1[0].Page1[0].checkbox2[0]").Value)

    msgbox ("Checkbox 8 is: " & jso.getField("form1[0].Page1[0].checkbox8[0]").Value)

    'When saving the form, the checkboxes are returned to their default value of unchecked

    jso.SaveAs "c:\temp\New-Form.pdf"

    theForm.Close

    AcroApp.Exit

    Set AcroApp = Nothing

    Set theForm = Nothing

End Sub

Accepted Solutions (0)

Answers (1)

Answers (1)

Avatar

Avatar

Hunter1211

Avatar

Hunter1211

Hunter1211

14-05-2017

For additional troubleshooting, I created a form with Checkboxes using Adobe Acrobat X Standard.  The code above is functional when changing the state of the Checkboxes.  The only modification was to set the value of the Checkbox to "On" instead of 1.

Controlling Checkboxes with VBA seems to be just be an issue with forms created in Live Cycle.