hey everyone i am still very new to this and I have an infopath form created with the tools for office. and the submit button has the following code
im xpath As String = "/my:group1/my:group2/my:ExpenseDetails"
Dim oNodeList As IXMLDOMNodeListDim oNode As IXMLDOMNode
Dim oField As IXMLDOMNodeDim txtID = thisXDocument.DOM.selectSingleNode("/my:txtID")
Dim txtexpdate = thisXDocument.DOM.selectSingleNode("/my:txtexpdate")Dim txtOrgadd = thisXDocument.DOM.selectSingleNode("/my:txtOrgadd")
Dim txtOrgmun = thisXDocument.DOM.selectSingleNode("/my:txtOrgmun")Dim txtDesadd = thisXDocument.DOM.selectSingleNode("/my:txtDesadd")
Dim txtDesmun = thisXDocument.DOM.selectSingleNode("/my:txtDesmun")Dim txtPurpose = thisXDocument.DOM.selectSingleNode("/my:txtPurpose")
Dim txtKM = thisXDocument.DOM.selectSingleNode("/my:txtKM")Dim txtNMdesc = thisXDocument.DOM.selectSingleNode("/my:txtNMdesc")
Dim txtExpamt = thisXDocument.DOM.selectSingleNode("/my:txtExpamt")Dim txtRegKM = thisXDocument.DOM.selectSingleNode("/my:txtRegKM")
Dim txtKMrateReg = thisXDocument.DOM.selectSingleNode("/my:txtKMrateReg")Dim txtKMrateXS = thisXDocument.DOM.selectSingleNode("/my:txtKMrateXS")Dim txtMilCalc = thisXDocument.DOM.selectSingleNode("/my:txtMilCalc")
oNodeList = thisXDocument.DOM.selectNodes(xpath)
If (oNodeList.length > 0) ThenFor Each oNode In oNodeList
If (oNode.nodeType = DOMNodeType.NODE_ELEMENT) Then
txtID.text = oNode.selectSingleNode("/my:group1/my:group2/my:ExpenseDetails/my:ItemId")
txtexpdate.text = oNode.selectSingleNode("/my:group1/my:group2/my:ExpenseDetails/my:ExpenseDate")
txtOrgadd.text = oNode.selectSingleNode("/my:group1/my:group2/my:ExpenseDetails/my:OrigAddress")
txtOrgmun.text = oNode.selectSingleNode("/my:group1/my:group2/my:ExpenseDetails/my:OrigMuncipality")
txtDesadd.text = oNode.selectSingleNode("/my:group1/my:group2/my:ExpenseDetails/my:DesAddress")
txtDesmun.text = oNode.selectSingleNode("/my:group1/my:group2/my:ExpenseDetails/my:DesMunicipality")
txtPurpose.text = oNode.selectSingleNode("/my:group1/my:group2/my:ExpenseDetails/my:Purpose")
txtKM.text = oNode.selectSingleNode("/my:group1/my:group2/my:ExpenseDetails/my:KM")
txtNMdesc.text = oNode.selectSingleNode("/my:group1/my:group2/my:ExpenseDetails/my:NonMileageExp")
txtExpamt.text = oNode.selectSingleNode("/my:group1/my:group2/my:ExpenseDetails/my:ExpenseAmt")
txtRegKM.text = oNode.selectSingleNode("/my:group1/my:group2/my:ExpenseDetails/my:RegKM")
txtKMrateReg.text = oNode.selectSingleNode("/my:group1/my:group2/my:ExpenseDetails/my:KMRateReg")
txtKMrateXS.text = oNode.selectSingleNode("/my:group1/my:group2/my:ExpenseDetails/my:KMRateExcess")
txtMilCalc.text = oNode.selectSingleNode("/my:group1/my:group2/my:ExpenseDetails/my:MileageCalc")
End IfFor Each WebServiceAdp As WebServiceAdapter2 In thisXDocument.DataAdapters
If WebServiceAdp.Name = "Submit" Then
WebServiceAdp.Submit()
End If
Next
NextEnd If
what is happening is when i press the submit button i get a catastrophic error and it points to this line
Dim txtID = thisXDocument.DOM.selectSingleNode("/my:txtID")
saying that thisxdocument caused the error.
whats going on???
thanks in advance