Hi Fred,

Complete these steps so you can see how this works - then you can work on
implementing this in your solution.

- Create a new, blank InfoPath solution
- From the Tools menu, choose Form Options
- Select the Advanced tab
- Make a note of what Programming Language is specified so you can use the
appropriate code sample below
- Click OK or Cancel to close the window
- Display the Controls Task Pane
- Add a Drop-down List Box and a Text Box to the form (they should be named
"field1" and "field2" respectively)
- Right-click on the Drop-down List Box and choose Properties
- Click the Add button to add entries to the list box - add some entries to
this control and then leave this screen open
- Click the Data Validation button
- From the "Events" box select OnAfterChange
- Click the Edit button
- If you noted the Programming Language as VBScript, then add the following
code just before the "End Sub" line:

If eventObj.Operation = "Insert" Then
    Dim objField2
    Set objField2 = XDocument.DOM.selectSingleNode("//my:myFields/my:field2")
   
    If objField2.text = "" Then
        objField2.text = eventObj.Site.text
    Else
        objField2.text = objField2.text & ", " & eventObj.Site.text
    End If
    Set objField2 = nothing
End If

If you noted the Programming Language as JScript, then add the following
code immediately before the last "closing brace" ("}"):

if(eventObj.Operation == "Insert")
{
    var objField2 = XDocument.DOM.selectSingleNode("//my:myFields/my:field2");
   
    if(objField2.text == "")
    {
        objField2.text = eventObj.Site.text;
    }
    else
    {
        objField2.text = objField2.text + ", " + eventObj.Site.text;
    }
    objField2 = null;
}

- Save and close the Script Editor window (this should put you back to your
InfoPath form)
- Preview the form and make a selection from the drop-down box. The first
time, it should add the text to the box - subsequent times it should
"append" the selection to the existing text.

I hope this helps!

Best Regards,

Scott L. Heim
Microsoft Developer Support

This posting is provided "AS IS" with no warranties, and confers no rights