Using VBA in MS Access trying to prefill a pdf form...
I have the following code to prefill if it is text box, stuck on how to check or uncheck a check box based on a field value.
Dim AcroApp As Acrobat.CAcroApp
Dim pdDoc As Acrobat.CAcroPDDoc
Dim fcount As Long
Dim sFieldName As String
Dim Field As AFORMAUTLib.Field
Dim Fields As AFORMAUTLib.Fields
Dim AcroForm As AFORMAUTLib.AFormApp
Dim jso As Object
dim x as object
Dim answer As Integer
If (Dir("c:\namus_reader.pdf") = "") Then
MsgBox "Questionnaire files not found "
Exit Sub
End If
Set pdDoc = CreateObject("AcroExch.PDDoc")
If pdDoc.Open("c:\namus_reader.pdf") Then
Set X = jso.getfield("ch_agenow")
X.Value = yrsnow
Set X = jso.getfield("ch_ncicnumber")
X.Value = NCICnumber
I have the following code to prefill if it is text box, stuck on how to check or uncheck a check box based on a field value.
Dim AcroApp As Acrobat.CAcroApp
Dim pdDoc As Acrobat.CAcroPDDoc
Dim fcount As Long
Dim sFieldName As String
Dim Field As AFORMAUTLib.Field
Dim Fields As AFORMAUTLib.Fields
Dim AcroForm As AFORMAUTLib.AFormApp
Dim jso As Object
dim x as object
Dim answer As Integer
If (Dir("c:\namus_reader.pdf") = "") Then
MsgBox "Questionnaire files not found "
Exit Sub
End If
Set pdDoc = CreateObject("AcroExch.PDDoc")
If pdDoc.Open("c:\namus_reader.pdf") Then
Set X = jso.getfield("ch_agenow")
X.Value = yrsnow
Set X = jso.getfield("ch_ncicnumber")
X.Value = NCICnumber