самопроизвольная конкатенация

wua

Дата: 17.01.2012 17:27:03

Не могу понять почему при прохождении по рекордсету происходит конкатенация записей по strHTML. По другим стрингам не замечено

Есть ли этому объяснение?

    Dim strFROM As String
    Dim strTo As String
    Dim strMySubj As String
    Dim strHTML As String

    Set d = CurrentDb
    Set r1 = d.OpenRecordset(str, dbOpenDynaset)

r1.MoveFirst
Do While Not r1.EOF

    strFROM = ...
    strTo = Nz(r1![...])
    strMySubj = "test"

strHTML = strHTML & "q "

   Debug.Print .HTMLBody
   r1.MoveNext
   Loop

wua

Дата: 17.01.2012 18:51:21

Debug.Print .FROM
Debug.Print .to
Debug.Print .Subject
Debug.Print .HTMLBody

выдает вот что в immediate ...

"FromSomeone"
"MailTo"
Subj Line
q 
"FromSomeone"
"MailTo"
Subj Line
q q 
"FromSomeone"
"MailTo"
Subj Line
q q q 
"FromSomeone"
"MailTo"
Subj Line
q q q q 
"FromSomeone"
"MailTo"
Subj Line
q q q q q

Владимир Саныч

Дата: 17.01.2012 19:02:31

wua
strHTML = strHTML & "q "

А эта строчка не из Вашего кода?

wua

Дата: 17.01.2012 19:13:22

Всем спасибо,
вопрос снят

проблема была в strHTML = strHTML & "<HTML>"
надо: strHTML = "<HTML>"