Script for OLE automating Jetform

[kalle82]

Hi!

I'm creating an OLE automated VBA script (via word).

What im trying to do is to OLE automate jetform, and insert values from my userform in wrod into jetform forms.

writing an OLE based script was a bit harder than I could imagine.

Im using this code to open a file.

Anyone knows hot to insert values into the fields?

Ive been trying loads of combinations by going through the reference library..

Sub superjetform()

Dim jetform         As Object
Dim filnamn         As String
Dim oFillerApp      As filler.Application
Dim oJetSubForm     As filler.Subform
Dim oJetForm        As filler.Form
Dim oField          As filler.Field

'arbetsgivareförfrågan

filnamn = "O:\FBF\Förfrågan" & " " & "arbetsgivare.jdt"

Set jetform = CreateObject("Filler.Application")

jetform.Visible = True

filler.Forms.Open (filnamn)

/Carl

 

[SkipVought]

I Googled and found lots of free stuff regarding this topic.

What library have you referenced for this application?



Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[kalle82]

Its the Jetform Filler 5.1 type library.

Ive searched on Google like a thousand times but never found any code example at all..

Thanks for helping me out.

/Carl

 

[kalle82]

Okay some progress made:

Problem is that I ahde to change the first line from..
Dim JetApp As application --> Dim JetApp As object

So far so good, but when giving the path to filename it says it cant open it? Very wierd?

Sub superduperjetform()

'Object declarations
Dim JetApp As Object
Dim oForm As filler.Form
Dim oSubform As filler.Subform
'Launch Filler and set the objects
Set JetApp = CreateObject("Filler.Application")
JetApp.Visible = True
Set oForm = JetApp.Forms.Add("k:\form1.jdt")
Set oSubform = oForm.Records(1).Subforms(1)
'Put values into the fields
oSubform.Fields("JF02").Text = "Diarienummer" ' this is where you would put the variable or field data string
oSubform.Fields("JF03").Text = "till adressen"
oSubform.Fields("JF04").Text = "namn på personen"
'Print and shut down
oForm.PrintOut
JetApp.Quit

End Sub

/Carl

 

[kalle82]

Okay solved it!

Here´s the code!

'Launch Filler and set the objects
Set JetApp = New filler.Application
JetApp.Visible = True
Set oForm = JetApp.Forms.Add(filnamn)
'filler.Forms.Open (filnamn)
Set oSubform = oForm.Records(1).Subforms(1)
'Put values into the fields
oSubform.Fields("DIARIENUMMER").Text = TextBox4 ' this is where you would put the variable or field data string
oSubform.Fields("NAMN").Text = namnet$ + mellannamn$ + efternamn$
oSubform.Fields("PNR").Text = personnummer$
oSubform.Fields("ADRESS").Text = streckadress$ + sarskildadress$
'Print and shut down
oForm.PrintOut