InfoPath Dev

After updateing our Infotpath with MS Updates, this function does not work anymore (it calculates some fileds).

Anyone any idea?

Function CalcTotal() On Error Resume Next
   Dim FromTime
   Dim TillTime
   Dim Pause
   Set configNode = XDocument.DOM.selectSingleNode("/my:IZETimeSheet/my:FromTime")
   FromTime = Date() & " " & configNode.text
   Set configNode = XDocument.DOM.selectSingleNode("/my:IZETimeSheet/my:TillTime")
   TillTime = Date() & " " & configNode.text
   Set configNode = XDocument.DOM.selectSingleNode("/my:IZETimeSheet/my:PauseDuration")
   Pause = configNode.text * 60
   Set configNode = XDocument.DOM.selectSingleNode("/my:IZETimeSheet/my:Total")
   configNode.text = cdbl(FormatNumber(round((Datediff("n",FromTime,TillTime)-Pause)/60,2),3))
   configNode.text = Replace(configNode.text,",",".")
End Function

Hi Dr Goebel and welcome,

It sure is frustrating that an update would cause a break. I'm not sure why this broke but I have a simple solution.

Replace the code with declarative logic in the form. You can do your calculation just fine without code.

Just add a rule and an action to set the value with the calculation. All Xpath and it will work fine. You will need to learn about how to create a declarative xpath function in InfoPath, but not a big deal. In addition to actually working, the other benefit will be you don't need code (so less maintenance hassle).

:)