hi. i'm baffled. i have some code that loops through
records, puts them in a list an email message, and puts a
return after each record in the list. this works very well
except that sometimes the vb does not put a return between
records and i end up with two records on the same line of
the email message. it's almost like it doesn't recognize
the vbcrlf sometimes. any thoughts? thanks!!

Accounts = ""

Set rs = db.OpenRecordset("SELECT * FROM Accounts")

If Not rs.EOF Then
Do While Not rs.EOF

Accounts = Accounts & rs![AccountNumber] & " - " & rs!
[AccountName] & " (" & rs![City] & ", " & rs![State] & ")"
& vbCrLf & _
" " & rs![FROMTerritory] & rs![TOTerritory]
& vbCrLf

rs.MoveNext

Loop
End If

Mike,

I can offer only anecdotal 'evidence' ... I've found that vbCRLF is often
not recognized when creating an email message in code. However, Chr(13) &
Chr(10) has never failed.

--

Cheryl Fischer, MVP Microsoft Access



"mike" <(E-Mail Removed)> wrote in message
news:1106e01c44111$305da730$(E-Mail Removed)...
> hi. i'm baffled. i have some code that loops through
> records, puts them in a list an email message, and puts a
> return after each record in the list. this works very well
> except that sometimes the vb does not put a return between
> records and i end up with two records on the same line of
> the email message. it's almost like it doesn't recognize
> the vbcrlf sometimes. any thoughts? thanks!!
>
> Accounts = ""
>
> Set rs = db.OpenRecordset("SELECT * FROM Accounts")
>
> If Not rs.EOF Then
> Do While Not rs.EOF
>
> Accounts = Accounts & rs![AccountNumber] & " - " & rs!
> [AccountName] & " (" & rs![City] & ", " & rs![State] & ")"
> & vbCrLf & _
> " " & rs![FROMTerritory] & rs![TOTerritory]
> & vbCrLf
>
> rs.MoveNext
>
> Loop
> End If
>
>
>

Cheryl, I still end up with the same problem. Thanks for
the suggestion though.

>-----Original Message-----
>Mike,
>
>I can offer only anecdotal 'evidence' ... I've found that
vbCRLF is often
>not recognized when creating an email message in code.
However, Chr(13) &
>Chr(10) has never failed.
>
>--
>
>Cheryl Fischer, MVP Microsoft Access
>
>
>
>"mike" <(E-Mail Removed)> wrote in
message
>news:1106e01c44111$305da730$(E-Mail Removed)...
>> hi. i'm baffled. i have some code that loops through
>> records, puts them in a list an email message, and puts
a
>> return after each record in the list. this works very
well
>> except that sometimes the vb does not put a return
between
>> records and i end up with two records on the same line
of
>> the email message. it's almost like it doesn't recognize
>> the vbcrlf sometimes. any thoughts? thanks!!
>>
>> Accounts = ""
>>
>> Set rs = db.OpenRecordset("SELECT * FROM Accounts")
>>
>> If Not rs.EOF Then
>> Do While Not rs.EOF
>>
>> Accounts = Accounts & rs![AccountNumber] & " - " & rs!
>> [AccountName] & " (" & rs![City] & ", " & rs![State]
& ")"
>> & vbCrLf & _
>> " " & rs![FROMTerritory] & rs![TOTerritory]
>> & vbCrLf
>>
>> rs.MoveNext
>>
>> Loop
>> End If
>>
>>
>>
>
>
>.
>