RTF2

[Jer]

I'm been trying to mess around with some older db's I developed in Access
97. Basically what I have is a form with fields inputted by users, they use
them to print out reports that should look like the following:

That one [Enter_Defendant_Name] on the [Day_of_Month] day of [Month], [Year]
at about [Time] in the [Fore_After]noon of the said day....

I'd like to be able to have it all come out in one paragraph with the
bracketed information being underlined. In the past I couldn't find
anything that would do that so I've just strategically placed textbox fields
over label fields with spacing to make it work. I recently spotted the RTF2
control which seems relatively easy to work with, but I was wondering if
anyone had any ideas on how to enter the bracketed information in the RTF2
Control.

If someone knows of an easier way to accomplish this, other than purchasing
Access 2007 which I've heard handles this, I'd greatly appreciate the
assist.

Thanks in advance.

Jerry

 

[Marshall Barton]

I'm been trying to mess around with some older db's I developed in Access
97. Basically what I have is a form with fields inputted by users, they use
them to print out reports that should look like the following:

That one [Enter_Defendant_Name] on the [Day_of_Month] day of [Month], [Year]
at about [Time] in the [Fore_After]noon of the said day....

I'd like to be able to have it all come out in one paragraph with the
bracketed information being underlined. In the past I couldn't find
anything that would do that so I've just strategically placed textbox fields
over label fields with spacing to make it work. I recently spotted the RTF2
control which seems relatively easy to work with, but I was wondering if
anyone had any ideas on how to enter the bracketed information in the RTF2
Control.

If someone knows of an easier way to accomplish this, other than purchasing
Access 2007 which I've heard handles this, I'd greatly appreciate the
assist.

You could create an equivalent to the Replace function in
newer versions of Access. (See below for the fiunction I
used to use.)

If the string variable, strPara, containes the anove
paragraph, including the brackets, this should be close to
doing what you asked:

strPara = Subst(strPara, "[Enter_Defendant_Name]", _
Forms!theform.txtDefName)
strPara = Subst(strPara, "[Day_of_Month", _
Forms!theform.txtDayOfMonth)
strPara = Subst(strPara, "[Month]", _
Forms!theform.txtMonth)
. . .

You could probaly include the codes for underline along with
the form text box values.