Concatenate string using loop

[nengster via AccessMonster.com]

Hi, I'm trying to concatenate an email string using a loop function however
it does not seem to work. Here is my code. Does anyone seem to have a
solution to this problem.

Dim emaddr
Dim emaddrapp

strForm = "frmMailer"
strSelect = "Select"

'initialise string

emaddr = Empty

Do While Not Forms(strForm).Form.NewRecord

If Forms(strForm)(strSelect) = True Then

emaddrapp = EmailName.Value & ";"
emaddr = emaddr & emaddrapp
DoCmd.GoToRecord , , acNext

Else
DoCmd.GoToRecord , , acNext


End If

Loop

hlink = "mailto:" & emaddr & "?"

Application.FollowHyperlink hlink

End Sub

 

[Piet Linden]

Hi, I'm trying to concatenate an email string using a loop function however
it does not seem to work. Here is my code. Does anyone seem to have a
solution to this problem.

Dim emaddr
Dim emaddrapp

strForm = "frmMailer"
strSelect = "Select"

'initialise string

emaddr = Empty

Do While Not Forms(strForm).Form.NewRecord

If Forms(strForm)(strSelect) = True Then

emaddrapp = EmailName.Value & ";"
emaddr = emaddr & emaddrapp
DoCmd.GoToRecord , , acNext

Else
DoCmd.GoToRecord , , acNext

End If

Loop

hlink = "mailto:" & emaddr & "?"

Application.FollowHyperlink hlink

End Sub

Your goal is to e-mail everyone in the form's underlying recordset?
If so, use RecordsetClone

dim rs As DAO.Recordset
set rs=Me.RecordsetClone

do until rs.EOF
if rs.BOF Then
strMailTo =rs.Fields("EMailAddress")
else
strMailTo= strMailTo & ";" & rs.Fields("EMailAddress")
end if
rs.movenext
loop

 

[Software-Matters]

Hi, I'm trying to concatenate an email string using a loop function however

it does not seem to work....

What doesn't work? Are you getting any errors - what are they?
--
<a
href="http://www.software-matters.co.uk/bespoke-database-design.html">Bespoke
Access Database Development</a>
<p>Software Matters</br>
Straightforward solutions that work</p>