Pastable version of Many-to-many list box interface

<pre class='prettyprint' language='asp_vb.net'>Private Sub cmdAddAmbassador_Click()
' Run when the user clicks the &quot;&lt;&quot; button to add an ambassador to an event

' Need to make sure varItem is the right kind of object
  Dim varItem As Variant
  
  ' Get rid of those pesky &quot;You are about to append 1 row&quot; warnings.
  ' This also supresses important error messages, so should be commented
  ' out for debugging.
  DoCmd.SetWarnings (False)

' Loop through all the items selected in the &quot;Available ambassadors&quot; list
  For Each varItem In Me.lstAvailableAmbassadors.ItemsSelected
    
    ' Add the selected person to the current event, by creating a new record
    ' in the join table
    DoCmd.RunSQL &quot;INSERT INTO AmbassadorWork VALUES (&quot; &amp; Me.ID &amp; &quot;,&quot; _
    &amp; Me.lstAvailableAmbassadors.Column(3, varItem) &amp; &quot;,NULL,NULL);&quot;
  
  Next

' Reload the list boxes so that they contain up-to-date information
  Me.lstAvailableAmbassadors.Requery
  Me.lstWorkingAmbassadors.Requery
End Sub

Private Sub cmdRemoveAmbassador_Click()
' Run when the user clicks the &quot;&gt;&quot; button to remove an ambassador from an event
  
  Dim varItem As Variant
  DoCmd.SetWarnings (False)

' Loop through selected items in the list
  For Each varItem In Me.lstWorkingAmbassadors.ItemsSelected
  
    ' Remove the selected person from the current event by deleting the record
    ' which links the person with this event from the join table
    DoCmd.RunSQL &quot;DELETE FROM AmbassadorWork WHERE (&quot; &amp; &quot;EventID = &quot; &amp; Me.ID _
    &amp; &quot; AND AmbassadorID = &quot; &amp; Me.lstWorkingAmbassadors.Column(3, varItem) &amp; &quot;);&quot;
    
  Next

' Reload the list boxes so that they contain up-to-date information
  Me.lstAvailableAmbassadors.Requery
  Me.lstWorkingAmbassadors.Requery
End Sub</pre>
<a href="http://www.refactormycode.com/codes/1157-many-to-many-list-box-interface" style="color:#fff" title="As seen on RefactorMyCode.com"><img alt="Small_logo" src="http://www.refactormycode.com/images/small_logo.gif" style="border:0" /></a>

Refactor :my => 'code'

Recent

Popular

Pastable version of Many-to-many list box interface