Hi,

When you use the built-in "submit" function to open a new, blank form it is
using the forms "template.xml" file and the "replaceChild" method to
re-load empty nodes. As such, you will need to write custom script to
execute this functionality.

Here is some sample code (VBScript) that I used on the click event of a
button - at the end of the code I have also noted where you will need to
make changes.

'This code provides the same functionality as using the "New Record" button
    Dim domTemplate
    Set domTemplate = CreateObject("MSXML2.DomDocument.5.0")
   
    domTemplate.async = false
    domTemplate.load("template.xml")
   
    If domTemplate Is Nothing Then
        XDocument.UI.Alert "Could not load the template!"
    Else
        Dim strMsg
        Dim retVal
       
        strMsg = "The document has not been saved! Do you want to save these
changes?"
        retVal = Msgbox(strMsg, vbExclamation + vbYesNo, "Create a new, blank
form")
       
        If retVal = 6 Then 'Yes
            Msgbox "Save this form and then click the button to create a new form.",
vbOkOnly
            Exit Sub
        Else
            Dim existingDataFields
            Set existingDataFields = XDocument.DOM.selectSingleNode("//my:myFields")
            domTemplate.setProperty "SelectionNamespaces",
"xmlns:my=""http://schemas.microsoft.com/office/infopath/2003/myXSD/2005-07-
22T13:02:12"""
            Dim newDataFields
            Set newDataFields = domTemplate.selectSingleNode("//my:myFields")
            existingDataFields.parentNode.replaceChild
newDataFields.cloneNode(true), existingDataFields
           
            Set existingDataFields = Nothing
            Set domTemplate = Nothing
            Set newDataFields = Nothing
        End If
    End If

* Locate the lines of code above that start with the following:

    Set existingDataFields = XDocument.DOM.selectSingleNode
    Set newDataFields = domTemplate.selectSingleNode

    You will notice that each of these uses: "//my:myFields" - depending on
how you built your InfoPath solution, you may have a different root node
name and a different namespace. This needs to match your solution.

** Locate the line of code above that starts with the following:

    domTemplate.setProperty "SelectionNamespaces",

    This sets up a "SelectionNamespaces" property so we can access the nodes
from the "domTemplate." So again, the namespace needs to match your
solution and the timestamp at the end needs to match as well. An easy way
to get this namespace correct is to simply double-click your XSN file and
save the blank form. Open that form with, say Notepad, and near the top you
will see an entry for your top-level namespace.

I hope this helps!
   
Scott L. Heim
Microsoft Developer Support

This posting is provided "AS IS" with no warranties, and confers no rights