E-mail udtræk fra forespørgsel

Ja ...

I forhold til den eksisterende model, er koden rettet til :

Private Sub cboModell_AfterUpdate()
Dim intList As Integer
Dim Itm As Variant
Dim txt As String

    Me.Requery
    Me.Liste1.Requery

    For intList = 0 To Me.Liste1.ListCount - 1
        Me.Liste1.Selected(intList) = True
    Next intList

    For Each Itm In Me!Liste1.ItemsSelected
        txt = txt & Me!Liste1.ItemData(Itm) & "; "
    Next Itm

    txt = Left(txt, Len(txt) - 2)

    Me!email = txt

End Sub

T.o. fortsættelse ag denne tråd :

http://www.eksperten.dk/spm/698969