Concatenating Rich Textbox Controls Into A Single File

[Neil]

Using the MS Rich Textbox Control 6.0 in Access 2000, I need to concatenate
several RTB controls into a single RTF file. Sometimes two strings will be
side-by-side; other times they need to be separated by a hard return.

For example, say I have the following 4 RTB controls in my form:

RTB1 = "abcd"
RTB2 = "efgh"
RTB3 = "ijkl"
RTB4 = "mnop"

The resulting RTF document might need to look like this:

abcdefgh

ijkl

mnop

Using the SaveFile method works great for a single RTB control. But how can
I concatenate the contents of two or more controls into a single RTF file,
and how can I insert hard returns between sets of text?

Thanks!

Neil

[King Ron]

On Jun 7, 11:49 am, "Neil" <nos...@nospam. netwrote:

Using the MS Rich Textbox Control 6.0 in Access 2000, I need to concatenate
several RTB controls into a single RTF file. Sometimes two strings will be
side-by-side; other times they need to be separated by a hard return.

For example, say I have the following 4 RTB controls in my form:

RTB1 = "abcd"
RTB2 = "efgh"
RTB3 = "ijkl"
RTB4 = "mnop"

The resulting RTF document might need to look like this:

abcdefgh

ijkl

mnop

Using the SaveFile method works great for a single RTB control. But how can
I concatenate the contents of two or more controls into a single RTF file,
and how can I insert hard returns between sets of text?

Thanks!

Neil

In this case, and assuming the format is constant:

wkText = RTB1 & RTB2 & vbCrLf & vbCrLf & RTB3 & vbCrLf & vbCrLf &
RTB4

vbCrLF is the VB constant shorthand for the carriage return/linefeed
combination.

You could also concatenate 'Chr$(13) & Chr$(10)' instead of the
constant. If the structure is variable, the actual concatenation
sequence will be more complex but usually solvable. The inline 'If'
statement is quite useful for these puzzles.

iif([something],"concatenat e" & "some things","concat enate" & "other"
& "things")

Lucks to yas!

Ron King of Chi

[Neil]

No, we're dealing with rich textboxes here. Each box is a self-contained RTF
statement. You can't concatenate them with vbCrLf.
"King Ron" <Ki************ ***@covad.netwr ote in message
news:11******** **************@ m36g2000hse.goo glegroups.com.. .

On Jun 7, 11:49 am, "Neil" <nos...@nospam. netwrote:

>Using the MS Rich Textbox Control 6.0 in Access 2000, I need to
concatenate
several RTB controls into a single RTF file. Sometimes two strings will
be
side-by-side; other times they need to be separated by a hard return.

For example, say I have the following 4 RTB controls in my form:

RTB1 = "abcd"
RTB2 = "efgh"
RTB3 = "ijkl"
RTB4 = "mnop"

The resulting RTF document might need to look like this:

abcdefgh

ijkl

mnop

Using the SaveFile method works great for a single RTB control. But how
can
I concatenate the contents of two or more controls into a single RTF
file,
and how can I insert hard returns between sets of text?

Thanks!

Neil

In this case, and assuming the format is constant:

wkText = RTB1 & RTB2 & vbCrLf & vbCrLf & RTB3 & vbCrLf & vbCrLf &
RTB4

vbCrLF is the VB constant shorthand for the carriage return/linefeed
combination.

You could also concatenate 'Chr$(13) & Chr$(10)' instead of the
constant. If the structure is variable, the actual concatenation
sequence will be more complex but usually solvable. The inline 'If'
statement is quite useful for these puzzles.

iif([something],"concatenat e" & "some things","concat enate" & "other"
& "things")

Lucks to yas!

Ron King of Chi

[King Ron]

On Jun 7, 7:08 pm, "Neil" <nos...@nospam. netwrote:

No, we're dealing with rich textboxes here. Each box is a self-contained RTF
statement. You can't concatenate them with vbCrLf.

"King Ron" <KingRonPoindex [e-mail] ote in message

news:11******** **************@ m36g2000hse.goo glegroups.com.. .

On Jun 7, 11:49 am, "Neil" <nos...@nospam. netwrote:

Using the MS Rich Textbox Control 6.0 in Access 2000, I need to
concatenate
several RTB controls into a single RTF file. Sometimes two strings will
be
side-by-side; other times they need to be separated by a hard return.

For example, say I have the following 4 RTB controls in my form:

RTB1 = "abcd"
RTB2 = "efgh"
RTB3 = "ijkl"
RTB4 = "mnop"

The resulting RTF document might need to look like this:

abcdefgh

ijkl

mnop

Using the SaveFile method works great for a single RTB control. But how
can
I concatenate the contents of two or more controls into a single RTF
file,
and how can I insert hard returns between sets of text?

Thanks!

Neil

In this case, and assuming the format is constant:

wkText = RTB1 & RTB2 & vbCrLf & vbCrLf & RTB3 & vbCrLf & vbCrLf &
RTB4

vbCrLF is the VB constant shorthand for the carriage return/linefeed
combination.

You could also concatenate 'Chr$(13) & Chr$(10)' instead of the
constant. If the structure is variable, the actual concatenation
sequence will be more complex but usually solvable. The inline 'If'
statement is quite useful for these puzzles.

iif([something],"concatenat e" & "some things","concat enate" & "other"
& "things")

Lucks to yas!

Ron King of Chi

Well that water quickly got up over my head...

I'll have to play with one o them a lil' bit and get back atchas.

R, KOC

[Yvonne Anderson]

What it is this group, and why is it appearing on my computer?

Yvonne Michele Anderson
yv***********@n oos.fr
On 11/06/07 23:59, in article
11************* *******@q75g200 0h...legrou ps.com, "King Ron"
<Ki************ ***@covad.netwr ote:

On Jun 7, 7:08 pm, "Neil" <nos...@nospam. netwrote:

>No, we're dealing with rich textboxes here. Each box is a self-contained RTF
statement. You can't concatenate them with vbCrLf.

"King Ron" <KingRonPoindex [e-mail] ote in message

news:11******* *************** @m36g2000hse.go oglegroups.com. ..

>>On Jun 7, 11:49 am, "Neil" <nos...@nospam. netwrote:
Using the MS Rich Textbox Control 6.0 in Access 2000, I need to
concatenat e
several RTB controls into a single RTF file. Sometimes two strings will
be
side-by-side; other times they need to be separated by a hard return.

>>>For example, say I have the following 4 RTB controls in my form:

>>>RTB1 = "abcd"
RTB2 = "efgh"
RTB3 = "ijkl"
RTB4 = "mnop"

>>>The resulting RTF document might need to look like this:

>>>abcdefgh

>>>ijkl

>>>mnop

>>>Using the SaveFile method works great for a single RTB control. But how
can
I concatenate the contents of two or more controls into a single RTF
file,
and how can I insert hard returns between sets of text?

>>>Thanks!

>>>Neil

>>In this case, and assuming the format is constant:

>>wkText = RTB1 & RTB2 & vbCrLf & vbCrLf & RTB3 & vbCrLf & vbCrLf &
RTB4

>>vbCrLF is the VB constant shorthand for the carriage return/linefeed
combination .

>>You could also concatenate 'Chr$(13) & Chr$(10)' instead of the
constant. If the structure is variable, the actual concatenation
sequence will be more complex but usually solvable. The inline 'If'
statement is quite useful for these puzzles.

>>iif([something],"concatenat e" & "some things","concat enate" & "other"
& "things")

>>Lucks to yas!

>>Ron King of Chi

Well that water quickly got up over my head...

I'll have to play with one o them a lil' bit and get back atchas.

R, KOC

[Neil]

Why don't you tell us. None of us have access to your computer, so we can't
tell you why the things that are on your computer are on your computer.
"Yvonne Anderson" <yv***********@ noos.frwrote in message
news:C2******** *************** **@noos.fr...

What it is this group, and why is it appearing on my computer?

Yvonne Michele Anderson
yv***********@n oos.fr
On 11/06/07 23:59, in article
11************* *******@q75g200 0h...legrou ps.com, "King Ron"
<Ki************ ***@covad.netwr ote:

>On Jun 7, 7:08 pm, "Neil" <nos...@nospam. netwrote:

>>No, we're dealing with rich textboxes here. Each box is a self-contained
RTF
statement. You can't concatenate them with vbCrLf.

"King Ron" <KingRonPoindex [e-mail] ote in message

news:11****** *************** *@m36g2000hse.g ooglegroups.com ...

On Jun 7, 11:49 am, "Neil" <nos...@nospam. netwrote:
Using the MS Rich Textbox Control 6.0 in Access 2000, I need to
concatena te
several RTB controls into a single RTF file. Sometimes two strings
will
be
side-by-side; other times they need to be separated by a hard return.

For example, say I have the following 4 RTB controls in my form:

RTB1 = "abcd"
RTB2 = "efgh"
RTB3 = "ijkl"
RTB4 = "mnop"

The resulting RTF document might need to look like this:

abcdefgh

ijkl

mnop

Using the SaveFile method works great for a single RTB control. But
how
can
I concatenate the contents of two or more controls into a single RTF
file,
and how can I insert hard returns between sets of text?

Thanks!

Neil

In this case, and assuming the format is constant:

wkText = RTB1 & RTB2 & vbCrLf & vbCrLf & RTB3 & vbCrLf & vbCrLf &
RTB4

vbCrLF is the VB constant shorthand for the carriage return/linefeed
combinatio n.

You could also concatenate 'Chr$(13) & Chr$(10)' instead of the
constant. If the structure is variable, the actual concatenation
sequence will be more complex but usually solvable. The inline 'If'
statement is quite useful for these puzzles.

iif([something],"concatenat e" & "some things","concat enate" & "other"
& "things")

Lucks to yas!

Ron King of Chi

Well that water quickly got up over my head...

I'll have to play with one o them a lil' bit and get back atchas.

R, KOC

[Stephen Lebans]

If you do not want to work directly with the RTF encoding then simply
cocatenate the values of the existing RTF controls into a new RTF control.
Use the Selxxx props/methods to select the complete contents of one control,
grab the RTF Selection, set your insertion point within the new RTF control,
set the SelText prop of the new control, and so on.
Add another control that contains nothing but a carriage retunr and follow
the same logic as above to select and copy the contents into the new
cocatenated RTF control.
--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"King Ron" <Ki************ ***@covad.netwr ote in message
news:11******** ************@q7 5g2000hsh.googl egroups.com...

On Jun 7, 7:08 pm, "Neil" <nos...@nospam. netwrote:

>No, we're dealing with rich textboxes here. Each box is a self-contained
RTF
statement. You can't concatenate them with vbCrLf.

"King Ron" <KingRonPoindex [e-mail] ote in message

news:11******* *************** @m36g2000hse.go oglegroups.com. ..

On Jun 7, 11:49 am, "Neil" <nos...@nospam. netwrote:
Using the MS Rich Textbox Control 6.0 in Access 2000, I need to
concatenate
several RTB controls into a single RTF file. Sometimes two strings
will
be
side-by-side; other times they need to be separated by a hard return.

>For example, say I have the following 4 RTB controls in my form:

>RTB1 = "abcd"
RTB2 = "efgh"
RTB3 = "ijkl"
RTB4 = "mnop"

>The resulting RTF document might need to look like this:

>abcdefgh

>ijkl

>mnop

>Using the SaveFile method works great for a single RTB control. But
how
can
I concatenate the contents of two or more controls into a single RTF
file,
and how can I insert hard returns between sets of text?

>Thanks!

>Neil

In this case, and assuming the format is constant:

wkText = RTB1 & RTB2 & vbCrLf & vbCrLf & RTB3 & vbCrLf & vbCrLf &
RTB4

vbCrLF is the VB constant shorthand for the carriage return/linefeed
combination.

You could also concatenate 'Chr$(13) & Chr$(10)' instead of the
constant. If the structure is variable, the actual concatenation
sequence will be more complex but usually solvable. The inline 'If'
statement is quite useful for these puzzles.

iif([something],"concatenat e" & "some things","concat enate" & "other"
& "things")

Lucks to yas!

Ron King of Chi

Well that water quickly got up over my head...

I'll have to play with one o them a lil' bit and get back atchas.

R, KOC

[Neil]

Thanks, Stephen! That was just what I was looking for. Being a newbie with
RTFs, I didn't think to use the Sel properties. That worked great. Only one
problem.

When I concatenate two pieces of text that are supposed to be in the same
paragraph, side by side, they end up with a hard return between them.

For example, RTF1="abc" and RTF2="def", and I want the result to be
"abcdef". Instead I get:

abc
def

Here's my code (rtfCompilation is the control being used for concatenation):

Me.rtfCompilati on = ""

Me.rtf1.SelStar t = 0
Me.rtf1.selleng th = Len(Me.rtf1)
Me.rtfCompilati on.SelText = Me.rtf1.SelRTF

Me.rtf2.SelStar t = 0
Me.rtf2.selleng th = Len(Me.rtf2)
Me.rtfCompilati on.SelStart = Len(Me.rtfCompi lation)
Me.rtfCompilati on.SelText = Me.rtf2.SelRTF

I also tried the above with Me.rtfCompilati on.SelStart =
Len(Me.rtfCompi lation) + 1. Results were the same.

Thanks!

Neil
"Stephen Lebans" <ForEmailGotoMy .WebSite.-WWWdotlebansdot [e-mail] m>
wrote in message news:46******** **************@ news.aliant.net ...

If you do not want to work directly with the RTF encoding then simply
cocatenate the values of the existing RTF controls into a new RTF control.
Use the Selxxx props/methods to select the complete contents of one
control, grab the RTF Selection, set your insertion point within the new
RTF control, set the SelText prop of the new control, and so on.
Add another control that contains nothing but a carriage retunr and follow
the same logic as above to select and copy the contents into the new
cocatenated RTF control.
--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"King Ron" <Ki************ ***@covad.netwr ote in message
news:11******** ************@q7 5g2000hsh.googl egroups.com...

>On Jun 7, 7:08 pm, "Neil" <nos...@nospam. netwrote:

>>No, we're dealing with rich textboxes here. Each box is a self-contained
RTF
statement. You can't concatenate them with vbCrLf.

"King Ron" <KingRonPoindex [e-mail] ote in message

news:11****** *************** *@m36g2000hse.g ooglegroups.com ...

On Jun 7, 11:49 am, "Neil" <nos...@nospam. netwrote:
Using the MS Rich Textbox Control 6.0 in Access 2000, I need to
concatenate
several RTB controls into a single RTF file. Sometimes two strings
will
be
side-by-side; other times they need to be separated by a hard return.

For example, say I have the following 4 RTB controls in my form:

RTB1 = "abcd"
RTB2 = "efgh"
RTB3 = "ijkl"
RTB4 = "mnop"

The resulting RTF document might need to look like this:

abcdefgh

ijkl

mnop

Using the SaveFile method works great for a single RTB control. But
how
can
I concatenate the contents of two or more controls into a single RTF
file,
and how can I insert hard returns between sets of text?

Thanks!

Neil

In this case, and assuming the format is constant:

wkText = RTB1 & RTB2 & vbCrLf & vbCrLf & RTB3 & vbCrLf & vbCrLf &
RTB4

vbCrLF is the VB constant shorthand for the carriage return/linefeed
combination.

You could also concatenate 'Chr$(13) & Chr$(10)' instead of the
constant. If the structure is variable, the actual concatenation
sequence will be more complex but usually solvable. The inline 'If'
statement is quite useful for these puzzles.

iif([something],"concatenat e" & "some things","concat enate" & "other"
& "things")

Lucks to yas!

Ron King of Chi

Well that water quickly got up over my head...

I'll have to play with one o them a lil' bit and get back atchas.

R, KOC

[Larry Linson]

"Yvonne Anderson" <yv***********@ noos.frwrote

What it is this group, and why is it appearing on my computer?

This is a USENET newsgroup devoted to questions and answers about Microsoft
Access.

The only reason I can think that it would be appearing on your computer is
that you, or someone else, selected it in your newsreader software. If you
are in the habit of logging on to your computer and then walking away, that
could explain it.

But, in any case, if you open your newsreader and take appropriate steps to
unsubscribe, it should go away.

Larry Linson
Microsoft Access MVP

[Neil]

You're a better person than me, Larry. :-)

"Larry Linson" <bo*****@localh ost.notwrote in message
news:fKMbi.3563 $or4.1434@trndd c06...

"Yvonne Anderson" <yv***********@ noos.frwrote

>What it is this group, and why is it appearing on my computer?

This is a USENET newsgroup devoted to questions and answers about
Microsoft Access.

The only reason I can think that it would be appearing on your computer is
that you, or someone else, selected it in your newsreader software. If
you are in the habit of logging on to your computer and then walking away,
that could explain it.

But, in any case, if you open your newsreader and take appropriate steps
to unsubscribe, it should go away.

Larry Linson
Microsoft Access MVP