Read-only Error when Updating Field in IP 2003

[GreggaR0und]

Hello;

I've created a form in InfoPath 2003. One of the fields is intended
to be programmatically assigned as it is the next sequential key to
the underlying database.


I finally have all of my namespaces in place to navigate the nodes and
when I execute the following code, I get an error that I can't assign
the value because the DOM is read-only.

function setNodeValue(xpath, value) 
 
 
'       // Let's do that if the value has really changed. 
        if (xPATH.text <> value) then 
           xPATH.text = value 
        end if 
setNodeValue = xpath.text 
end function 
 

is there an attribute I need to set before I can change the value?


Thanks

[dorinbogdan]

Is not it case sensitive? xPATH or xpath?

[dorinbogdan]

Please post the code calling setNodeValue() function, including xpath variable.

[GreggaR0und]

Hi,

Below is the full stream of code. Please note that I am calling from the OnBeforeChange event. The event is triggered after the "Run Query" retrieves the record from the database.

The error occurs after the eventObj.Operation is changed to "Insert".

Also, the code is not case-sensitive.

Thanks,
Gregg

'/*------------------------------------------------------------------------------
'    initializeNodeValue()
'------------------------------------------------------------------------------*/
 
function initializeNodeValue(xpath, strValue)
 
dim xmlNode 
set xmlnode = getNode(xpath)
 
' Set the node value *ONLY* if the node is empty.
'if (xmlNode.text = "")then
setNodeValue xmlNode, strValue
'end if
 
end function
 
'/*------------------------------------------------------------------------------
'    setNodeValue()
'------------------------------------------------------------------------------*/
function setNodeValue(xpath, value)
 
'dim xmlNode 
'xmlNode = getNode(xpath)
 
'    'if isnull(xmlNode)then
'        'exit function
'    'end if
 
'    // The xsi:nil needs to be removed before we set the value.
'    if (value <> "" and xPATH.getAttribute("xsi:nil"))then
'        xPATH.removeAttribute("xsi:nil")
'    end if
 
'    // Setting the value would mark the document as dirty.
'    // Let's do that if the value has really changed.
    if (xPATH.text <> value)then
        xPATH.text = value
    end if
setNodeValue = xpath.text
end function
 
'/*------------------------------------------------------------------------------
'    getNode()
'------------------------------------------------------------------------------*/
function getNode(xpath)
 
DIM MYNODE
 
set MYNODE = Xdocument.DOM.selectSingleNode(xpath)
 
'    // Both XML node and absolute XPath are allowed.
    if (typename(xpath) = "String")then
        set MYNODE = Xdocument.DOM.selectSingleNode(xpath)
'    else
'        xpath
    end if
 
SET getNode = MYNODE
 
end function
 
'=======
' The following function handler is created by Microsoft Office InfoPath.
' Do not modify the name of the function, or the name and number of arguments.
' This function is associated with the following field or group (XPath): /dfs:myFields/dfs:dataFields/d:qryGetLastTestCaseID/@LastOfLastUsedCounter
' Note: Information in this comment is not updated after the function handler is created.
'=======
Sub msoxd__qryGetLastTestCaseID_LastOfLastUsedCounter_attr_1_OnBeforeChange(eventObj)
' Write your code here
dim fldnam1 
dim fldnam2
dim fldnam3
const strMyFields = "/dfs:myFields/dfs:dataFields/d:qryGetLastTestCaseID/@LastOfLastUsedCounter"
' Write code here to restore the global state.
 
If eventObj.IsUndoRedo or eventObj.Operation = "Delete" Then
    ' An undo or redo operation has occurred and the DOM is read-only.
    Exit Sub
End If
 
fldnam1 = eventobj.site.nodevalue
 
if isnumeric(fldnam1) then
   fldnam1=Cstr(Cint(fldnam1)+1)
   fldnam3 = String((MaxTestCaseIDLen-Len(fldnam1)),"0") & fldnam1
'else   
'   error condition?
end if
 
initializeNodeValue strMyFields, fldnam3  
 
End Sub
 

[GreggaR0und]

I have some news. I relocated this code to the OnAfterChange event. I am then able to modify the value of the node without getting the Read-Only error. In order to avoid the event from triggering itself, I had to set a ModifyFlag before entering the event handler.

In any case, I still have a problem. Even though I correctly set the value of the eventobj.site.text, it does not display in the form. But, if I add a msgbox displaying the node's value, it correctly displays it so I know the value was set. Why can't I see it in the form?

Thanks,
Gregg