Execute command jetform filler application

[kalle82]

Hi!

Last thread ever about this dreaded subject...

Using everything works fine, I get what I want only one problem. At the end of thisscript it gives a box the one im looking for, but how do i press the okay button?

I have looke through the whole library, but the commands are only for navigating through the menus and sub menus not for pressing the okay button on the last form?

Anyone know anything about this im using "jetform filler 5.1 type library"

I cant get the vbOk to work and now I really dont´know what to do....?!?

Set JetApp = New filler.Application

JetApp.Visible = True

filnamn = "O:\FBF\Förfrågan Skatten.JTP"

'Launch Filler and set the objects

'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$

filler.ExecuteCommand (jfFileFax)
filler.ExecuteCommand (vbYes)

'Print and shut down
'oForm.PrintOut
'JetApp.Quit

Set JetApp = Nothing
Set oForm = Nothing
Set oSubform = Nothing
Set kommando = Nothing

End Sub