InfoPath Dev

Hi

I've been scouring the forum and elswhere for a solution to this for the past few days. All I need to do is add a blank row to a repeating table. The following code has been cribbed from other sources on the forum but I am having trouble getting it to work.

 Sub msoxd_my_field1_OnAfterChange(eventObj)

'Add new row to repeating table programmatically

Dim newxmlstring, oXML, oParent

'Build XML needed for empty node

newxmlstring = "<my:group4><my:field1></my:field1></my:group4>"

'Create a new empty node

Set oXML = XDocument.CreateDOM()

oXML.loadXML(newxmlstring)

'Define Parent

Set oParent = XDocument.DOM.selectSingleNode("/my:myFields/my:group3/my:group4")

'set node 'Set oNode = oXML.documentElement

'Add new node to parent as XML

oParent.appendChild(oXML.documentElement) --------- code fails here Error: Invalid procedure call or argument

End Sub

Can anyone help or point me towards a solution?

Thanks

Gary

Have you tried using the ExecuteAction method?

 Sub CTRL5_5_OnClick(eventObj)
 XDocument.View.ExecuteAction "xCollection::insert", "group2_1" 
 End Sub

The second argument ("group2_1" in this case) refers to the XmlToEdit identifier for the repeating control and can be found on the Advanced tab of the repeating control's properties.

Thanks Jimmy

That works fine with a button (OnClick event) and I get a new blank row. When I try it with an onAfterChange event I get the following error:

"The number of calls to the OnAfterChange event for a single update in the data exceeded the maximum limit."

and it inserts 15 blank rows. My coding skills are limited. Any thoughts on how I can limit this to one row?

Gary

Hi,

Iam not understanding why you are using onAfterChange event still?. without using this event you can able to implement your functionality with the code given by jimmy. Can you please explain me clearly why you are using the onAfterChange event.

Hi

The reason for using OnAfterChange event is so that I can automate the insertion of a new row after the user input, rather than have a button.

Gary

Hi,

Please follow the below code lines in your OnAfterChange Event. Hope it helps you.

Dim rowAdded ' as Boolean

rowAdded = false

Sub msoxd_my_group2_OnAfterChange(eventObj)

If eventObj.IsUndoRedo or rowAdded Then

                Exit Sub

End If

rowAdded = true

‘Add the table row over here

rowAdded = false

End Sub

Under what conditions/after what action do you want to add a new row to the table?  Surely you don't want to add a new row every time someone makes any change within the table.

Thanks Chandrakanth

Just what I needed

Gary

Jimmy

The new row will be added when the user reaches the 255 character limit on the text box. This is to get around the limitations on the AccessDB it is submitted to.

Thanks

Gary

End Sub

I had already written the code to carry out this part of the operation, but this is a much tidier solution.

Thanks again

Gary