Split Memo Field into Many

[mswilson16]

Hi All,

I have a memo field that is used to fill a asp page. In my memo field I have something like:

<p>This is a test</p>
<p>This is the second line of the test</p>
<p>This is the third line of the test</p>

I have a form were I want to be able to take the above and split upto the first </p> in to me.memText1 (so mem.text1 =<p>This is a test</p>), then after that split up to the next </p> in me.memtext2, etc etc.

If anyone could help that would be great! I am using Access 2003.

Thanks

Mswilson

 

[PHV]

You may try something like this:
Dim a As Variant, i As Integer
a = Split(Me![memo], "</p>", -1, 1)
For i = 1 To UBound(a)
Me("memtext" & i) = a(i - 1) & "</p>"
Next

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[mswilson16]

Thanks! that worked great!