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