Prev: Export to Text Files Based on Field Value
Next: Access 2003
From: EllenM on 21 May 2010 13:57
Hello,
I've found a wonderful concatenation function at
http://www.mvps.org/access/modules/mdl0008.htm. It, however, separates the
concatenated values with semicolons when I'd like them to be separated with
"<br />"s.

For instance, instead of "Value1; Value2; Value3", I'd like "Value1<br />
Value2<br /> Value3<br />".

Thanks in advance for your help.

Ellen

From: Bob Barrows on 21 May 2010 14:18
EllenM wrote:
> Hello,
> I've found a wonderful concatenation function at
> http://www.mvps.org/access/modules/mdl0008.htm. It, however,
> separates the concatenated values with semicolons when I'd like them
> to be separated with "<br />"s.
>
> For instance, instead of "Value1; Value2; Value3", I'd like
> "Value1<br /> Value2<br /> Value3<br />".
>
> Thanks in advance for your help.
>
> Ellen

I don't have the function in front of me, but surely it can't be too hard to
change the '& ";" 'bit to '& "<br />"'

--
Microsoft MVP - ASP/ASP.NET - 2004-2007
Please reply to the newsgroup. This email account is my spam trap so I
don't check it very often. If you must reply off-line, then remove the
"NO SPAM"


From: John W. Vinson on 21 May 2010 14:26
On Fri, 21 May 2010 10:57:01 -0700, EllenM <EllenM(a)discussions.microsoft.com>
wrote:

>Hello,
>I've found a wonderful concatenation function at
>http://www.mvps.org/access/modules/mdl0008.htm. It, however, separates the
>concatenated values with semicolons when I'd like them to be separated with
>"<br />"s.
>
>For instance, instead of "Value1; Value2; Value3", I'd like "Value1<br />
>Value2<br /> Value3<br />".
>
>Thanks in advance for your help.
>
>Ellen

Just fix the code to your needs: where it has

With lors
If .RecordCount <> 0 Then
'start concatenating records
Do While Not .EOF
lovConcat = lovConcat & lors(stFldToConcat) & "; "
.MoveNext
Loop
Else
GoTo Exit_fConcatFld
End If
End With

change it to

With lors
If .RecordCount <> 0 Then
'start concatenating records
Do While Not .EOF
lovConcat = lovConcat & lors(stFldToConcat) & " <br /> "
.MoveNext
Loop
Else
GoTo Exit_fConcatFld
End If
End With
--

John W. Vinson [MVP]
From: John Spencer on 21 May 2010 15:03
you would also need to fix the code in one other spot near the bottom of the
routine. If you want "<br /> " at the end of the string or not.

Either
fConcatFld = lovConcat
OR
fConcatFld = Left(lovConcat, Len(lovConcat) - Len("<br /> "))
instead of
fConcatFld = Left(lovConcat, Len(lovConcat) - 2)




John Spencer
Access MVP 2002-2005, 2007-2010
The Hilltop Institute
University of Maryland Baltimore County

John W. Vinson wrote:
> On Fri, 21 May 2010 10:57:01 -0700, EllenM <EllenM(a)discussions.microsoft.com>
> wrote:
>
>> Hello,
>> I've found a wonderful concatenation function at
>> http://www.mvps.org/access/modules/mdl0008.htm. It, however, separates the
>> concatenated values with semicolons when I'd like them to be separated with
>> "<br />"s.
>>
>> For instance, instead of "Value1; Value2; Value3", I'd like "Value1<br />
>> Value2<br /> Value3<br />".
>>
>> Thanks in advance for your help.
>>
>> Ellen
>
> Just fix the code to your needs: where it has
>
> With lors
> If .RecordCount <> 0 Then
> 'start concatenating records
> Do While Not .EOF
> lovConcat = lovConcat & lors(stFldToConcat) & "; "
> .MoveNext
> Loop
> Else
> GoTo Exit_fConcatFld
> End If
> End With
>
> change it to
>
> With lors
> If .RecordCount <> 0 Then
> 'start concatenating records
> Do While Not .EOF
> lovConcat = lovConcat & lors(stFldToConcat) & " <br /> "
> .MoveNext
> Loop
> Else
> GoTo Exit_fConcatFld
> End If
> End With
From: EllenM on 21 May 2010 15:34
Thanks, John

And change:
fConcatFld = Left(lovConcat, Len(lovConcat) - 2)

to
fConcatFld = Left(lovConcat, Len(lovConcat) - 8)

Now it's a masterpiece.
 | 
Pages: 1
Prev: Export to Text Files Based on Field Value
Next: Access 2003