Re: I want to save this vb script form in local drive after all the input have keyed-in....how can i do that?

Patrick Halstead — Mon, 17 Dec 2012 21:40:06 GMT

Hi Bheema,

qRules v4.2 includes a command to save an InfoPath form as XML to a local file system. Since we have spent time compiling all of these useful functions in the qRules library, and since we use qRules sales to pay for maintaining this forum, I humbly ask you to try the trial version (new v4.3 trial coming out next week or so). That should reduce the code in your form and be lower maintenace cost down the road. However, your form will have to be set to full trust (or installed via an MSI) since the save command requires the highest security level.

Best of luck,

I want to save this vb script form in local drive after all the input have keyed-in....how can i do that?

bheema — Mon, 17 Dec 2012 07:16:37 GMT

I want ti save this file in csv or xml format by clicking save button..I require a function that save the file when the button clicked...How the function should be so that i will be able to do what i have mention as above? count=2Sub doAddRow() Dim oTbl, oRow, oCell Set oTbl=document.getElementById("mytable") Set oRow = oTbl.insertRow Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= "" count = count+1End Sub Sub deleteRow()Dim oTbl, oRowSet oTbl=document.getElementById("mytable") if count>2 thenoTbl.deleteRow(count-1)count = count -1end if End sub Sub doAddRow2() Dim oTbl, oRow, oCell Set oTbl=document.getElementById("mytable2") Set oRow = oTbl.insertRow Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= "" Set oCell = oRow.insertCell oCell.innerHTML= "" count = count+1End Sub Sub deleteRow2()Dim oTbl, oRowSet oTbl=document.getElementById("mytable2") if count>2 thenoTbl.deleteRow(count-1)count = count -1end if End sub Sub saveFile()Dim txtPathDim txtName txtPath = "C:\Shared Folder\Emp InfoPath Forms"txtName = "form1.xml" XDocument.SaveAS(txtPath & txtName)End sub

TESTER DATE EMP NO 6S DONE

WW NAME SHIFT

PASSOVER (Please verify Summit Receipe & Storm before start shift)

Summit Receipe OK ? Yes No

Motif/ Storm OK ? Yes No

Lot Number	Location	Total In	1 * Test	2 * Test	3 * Test	Total Out	Lot Status	Remark

Entry	Down	Up	Failure Mode/Action/Remark	D/T	Attended By

Web Services

Re: I want to save this vb script form in local drive after all the input have keyed-in....how can i do that?

I want to save this vb script form in local drive after all the input have keyed-in....how can i do that?