lijst email adressen

[wake]

hallo,

ik heb een query die een lijst maakt van een bepaalde groep mensen in mijn database. Die heb ik in een formulier staan en ik wil met 1 druk op een knop in 1 keer alle email adressen van die groep achter elkaar hebben staan met een komma er tussen.

Is dit mogelijk?

en hoe moet ik dat oplossen?

bij voorbaad dank!

groetjes bo

 

[Floor E]

Dat gaat:
Plaats de volgende code in de code van je button
Kopieer de SQLcode van je query in de aangewezen plaats hieronder.
Ik weet niet waar/wat je met de emailadressen wilt gaan doen anders had ik volledig kunnen maken

Private Sub AlleEmail_Click()
Dim rst As New ADODB.Recordset
Dim strNieuw
Dim strEmail As String

rst.Open "SQL VAN JE QUERY", CurrentProject.Connection, adOpenDynamic, adLockOptimistic, adCmdText 'rst recordset openen van tbl Kode
        Do Until rst.EOF = True   'Herhaal totdat recordset = End Of File. 
            strNieuw = rst!Eamil
            strEmail = strNieuw & "," & strEmail
            
    
            rst.MoveNext
        Loop
end sub

 

[wake]

floor, alvast bedankt..

ik ga van de week even kijken of ik het aan de praat krijg..

groetjes bo