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

InfoPath Dev

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

Last post 12-17-2012 01:40 PM by Patrick Halstead. 1 replies.
Page 1 of 1 (2 items)
Sort Posts: Previous Next
  • 12-16-2012 11:16 PM

    • bheema
    • Not Ranked
    • Joined on 12-17-2012
    • Posts 1

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

  • 12-17-2012 01:40 PM In reply to

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

    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,

    P

    Patrick Halstead
    Project Manager at Qdabra
Page 1 of 1 (2 items)
Copyright © 2003-2019 Qdabra Software. All rights reserved.
View our Terms of Use.