Populating a text box with text string of table contants

[Steve Lilley]

Hello

Can anyone help me with the following ?
I have a table like this....

User_ID User_name User_email

1 Steve st****@test.com

2 Bob bo*@test.com

3 Jim ji*@test.com

And I would like to have a form with a text box on that show the following
results...

st****@test.com <Steve> ; bo*@test.com <Bob> ; ji*@test.com <Jim>

So that the contents of the text box can be cu and pasted into the To: field
on an email.So far I have create a form based on a query of all users and
set the control source to be the following:

=[User_email] & "<" & [User_name] & ">" ;

and this shows the email and name OK for the current record but how can I
get all records in the one text box?

Thanks in advance

Steve

[pietlinden]

Steve Lilley wrote:

Hello

And I would like to have a form with a text box on that show the following results...

st****@test.com <Steve> ; bo*@test.com <Bob> ; ji*@test.com <Jim>

So that the contents of the text box can be cu and pasted into the To: field on an email.So far I have create a form based on a query of all users and set the control source to be the following:

=[User_email] & "<" & [User_name] & ">" ;

and this shows the email and name OK for the current record but how can I get all records in the one text box?

Thanks in advance

Steve

open a recordset based on the table (or a query on the table), loop
through it and append each to a string. Then put the string value
somewhere....

Function ReturnList(byval strTable as string) as String

Dim db as dao.database
dim rs as dao.recordset

set db=currentdb
set rs = db.openrecordset(strTable,dbopentable)

[User_email] & "<" & [User_name] & ">"
do until rs.eof
ReturnList=rs.fields("User_email") & "<" rs.fields("User_Name") &
">;"
rs.movenext
loop

rs.close
set rs=nothing
set db=nothing
End Function