Yes there is. To convert all of the RTF text back to plain text, there is a Total Access Memo property entitled .Text. Below are suggested steps to implement an example:
- Create a form and bind it to the RecordSource you want to convert to Plain text.
- Add a Memo Control named TamDemo and bind it field containing the RTF data that you want to convert to Plain text.
- On the Form_Current event, add the code below and edit the code to use the name of the field data source.
- Compile the code and run the form.
Dim objFMSMemo As FMSMemo
Dim strText as string
Set objFMSMemo = tamDemo.Object
' The name of the field you added to the
' recordsource that will hold the plain text
' should replace "myPlainTextField" below.
[myPlainTextField] = .Text ' places the text directly into a field bound to a textbox control on the form.
strTest = .Text ' place the text into variable for later retrieval.
As you scroll through the records, the code above will replace the RTF version of the control contents with the plain text version. There are other ways to do this programmatically if you do not wish to scroll through each record.