Hi,

I have a Kixform running which maps a network drive and I want it to open up a word document, the form works, the drive maps, however the doc won't open, I think there is something not right with the run "g:\test.doc", can anyone help?

Cheers

Break On
$System = CreateObject("Kixtart.System")
;create form
$Form = $System.Form()
$Form.BackColor = 212,208,200
$Form.FontSize = 8,25
$Form.Height = 187
$Form.Left = 200
$Form.Text = "Documentation Tool"
$Form.Top = 110
$Form.Width = 275

;create pulldown menu
$ComboBox = $Form.Controls.ComboBox()
$ComboBox.DropDownWidth = 121
$ComboBox.FontSize = 8,25
$ComboBox.Height = 21
$ComboBox.Left = 50
$ComboBox.Sorted = "False"
$ComboBox.Text = "Select Document"
$ComboBox.Top = 60
$ComboBox.Width = 148
$ComboBox.AddItem ("EPC - With Kerridge DMS")

;create button
$Button = $Form.Controls.Button()
$Button.FontSize = 8,25
$Button.Height = 30
$Button.Left = 50
$Button.Text = "Map Document Drive G:"
$Button.Top = 20
$Button.Width = 110
$Button.OnClick = "Button_Map()"

;create button
$Button = $Form.Controls.Button()
$Button.FontSize = 8,25
$Button.Height = 28
$Button.Left = 50
$Button.Text = "Open Document"
$Button.Top = 100
$Button.Width = 110
$Button.OnClick = "Button_Open()"

$Form.Show
While $Form.Visible
$=Execute($Form.DoEvents())
Loop
Exit 1

Function Button_Click()
$app = $comboBox.text
Select
Case $app = "Select Document"
$rc = MessageBox("No Doc Selected.","Error",16,0)
EndSelect
Endfunction

Function Button_Open()
$app = $comboBox.text
Select

Case $app = "EPC - With Kerridge DMS"
Run "g:\test.doc"

EndSelect
Endfunction

$Form.Show
While $Form.Visible
$=Execute($Form.DoEvents())
Loop
Exit 1
;
Function Button_Map()
Use g: '\\szgb06\company\Dealers\Documents'
EndFunction