concatenate query results to a string

[Guest]

In short, what is the easiest way to convert the results from a query, which
returns several email address for a project, into a string seperatated by
semi colon.

I can open a new mail item and I have a query which returns the contacts
(email addresses) for a project.

How do I concatenate email1 ":" email2 "; .... ?

Thanks for any help

 

[Albert D. Kallal]

The code looks much like:

Dim strSql As String
Dim str As String
Dim rst As DAO.Recordset

strSql = "select * from childTable where FKID = " & Me!ID
Set rst = CurrentDb.OpenRecordset(strSql)
Do While rst.EOF = False
If str <> "" Then
str = str & ";"
End If
str = str & rst!EmailName
rst.MoveNext
Loop
rst.Close

 

[Marshall Barton]

In short, what is the easiest way to convert the results from a query, which
returns several email address for a project, into a string seperatated by
semi colon.

I can open a new mail item and I have a query which returns the contacts
(email addresses) for a project.

How do I concatenate email1 ":" email2 "; .... ?

I think this is the easiest:

http://www.rogersaccesslibrary.com/...Generic Function To Concatenate Child Records'

 

[kehan]

All good but that algorithm is a tad SLOW

I think this is the easiest:

http://www.rogersaccesslibrary.com/Otherdownload.asp?SampleName='Gene...

 

[Gina Whipp]

Just a thought,

Mine was too, then I removed the page numbers and it run like a gem.

HTH,
Gina Whipp

"I feel I have been denied critical, need to know, information!" - Tremors
II

All good but that algorithm is a tad SLOW