Access Database - Rich Text Box Editing

I have a Database with a Popup form that has a RTF Text box.  The user cuts and pastes information into this text box, After awhile, the text box starts to be hard to read, so the user would like to have the opportunity to be able to make all of the font color and style the same.

With the Form being a popup form, the formatting icons on the tool ribbon are not available to be used by the user.  

the user does like the ability to be able to move the popup form to their secondary monitor, so I do not want to change the form to no be a popup form.

Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Dale FyeOwner, Developing Solutions LLCCommented:
you might be able to accomplish this with a button click event:
Private sub cmd_PlainText_Click

    me.txt_RTFField = PlainText(me.txt_RTFfield)

End sub

Open in new window

but once you have done that, you will lose the RFT formatting for good.  An alternative would be to make this an unbound control and fill in with the value of your RTF field in the Form_Current event.  This way, if you convert it to PlainText, it would not change the underlying dataset.
btgtechAuthor Commented:
I am not converting to Plain Text.  I want the user to be able to edit the font format in the text box on the form.  The form is a popup form, so it does not allow the user to use the formatting functions in the ribbon.

We want the text box to remain RTF.
Jeffrey CoachmanMIS LiasonCommented:
Notes and an alternate solution:

When you edit Access "Rich Text" (really HTML)...
It inserts the (hidden) the formatting tags
 <b>This will be Bold</b>

Once these tags are in, you cannot "easily" remove them, can:
1. Use the formulating options (toolbar)
2. Set the text Format Property to "0", and editing each tag manually.

Alternate Solution:
But what I suggest is to use Dale's idea to create a "PlainText" field in a query:
SELECT tblPeople.pID, tblPeople.FullName, tblPeople.Address, tblPeople.City, tblPeople.State, tblPeople.Zip, tblPeople.Email, PlainText([FullName]) AS tFullName
FROM tblPeople;

...then base the form on this query, (or change the Form's recordsource to the query)
Then set the RTF Field on top of (covering up) the "Plain Text" field,...then simply toggle the controls' Visible property like this:

Private Sub Command28_Click()
If Me.FullName.Visible = True Then
    Me.FullName.Visible = False
    Me.tFullName.Visible = True
    Me.FullName.Visible = True
    Me.tFullName.Visible = False
End If
End Sub

Open in new window

A sample db is attached...

If you like this, then you can split the points


Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Big Business Goals? Which KPIs Will Help You

The most successful MSPs rely on metrics – known as key performance indicators (KPIs) – for making informed decisions that help their businesses thrive, rather than just survive. This eBook provides an overview of the most important KPIs used by top MSPs.

btgtechAuthor Commented:
I noticed if you hover the mouse over the text box, it displays the font menu.  How do I turn that on in my database?
Jeffrey CoachmanMIS LiasonCommented:
Save the DB in the .accdb format
btgtechAuthor Commented:
I have the database already in this format.
Jeffrey CoachmanMIS LiasonCommented:
The Formatting menu appears when I actually highlight all the text in the box...
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.