Code

Re: Add new row with VBScript

GazM — Mon, 03 Nov 2008 10:49:18 GMT

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

Thanks again

Gary

Re: Add new row with VBScript

chandrakanth — Mon, 03 Nov 2008 10:25:13 GMT

Hi, Please follow the below code lines in your OnAfterChange Event. Hope it helps you.Dim rowAdded ' as BooleanrowAdded = falseSub msoxd_my_group2_OnAfterChange(eventObj)If eventObj.IsUndoRedo or rowAdded or eventObj.Operation <> "Insert" ThenExit SubEnd Ifif eventObj.Source.parentNode.nodeName = "my:field2" then 'specify the field name in which you check the length if Len(eventObj.Source.parentNode.text) > 255 ThenrowAdded = true‘Add the table row over hererowAdded = falseend ifend if

End Sub

Re: Add new row with VBScript

GazM — Mon, 03 Nov 2008 09:12:08 GMT

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

Re: Add new row with VBScript

GazM — Mon, 03 Nov 2008 09:09:44 GMT

Thanks Chandrakanth

Just what I needed

Gary

Re: Add new row with VBScript

Jimmy — Sun, 02 Nov 2008 15:20:50 GMT

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.

Re: Add new row with VBScript

chandrakanth — Fri, 31 Oct 2008 06:12:26 GMT

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

Re: Add new row with VBScript

GazM — Thu, 30 Oct 2008 14:51:43 GMT

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

Re: Add new row with VBScript

chandrakanth — Thu, 30 Oct 2008 13:50:56 GMT

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.

Re: Add new row with VBScript

GazM — Thu, 30 Oct 2008 09:52:30 GMT

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

Re: Add new row with VBScript

Jimmy — Wed, 29 Oct 2008 16:27:38 GMT

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.

Add new row with VBScript

GazM — Wed, 29 Oct 2008 14:37:15 GMT

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