Re: RTF Control not displaying data

Thank you for your patience. I knew there was a big step I was missing.
--
Thx in advance!


"Stephen Lebans" wrote:

Do you currently have RTF formatted text in the Memo field? The RTF2 control
displays formatted/encoded RTF text....not plain text.
I have posted code in the past few months to add the required RTF encoding
to existing plain text fields.


From: Stephen Lebans - view profile
Date: Thurs, Mar 23 2006 12:38 am
Email: "Stephen Lebans"
<ForEmailGotoMy.WebSite.-WWWdotlebansdot...@xxxxxxxxxxxx>
Groups: comp.databases.ms-access, microsoft.public.access.forms
Not yet ratedRating:
show options


Reply | Reply to Author | Forward | Print | Individual Message | Show
original | Report Abuse | Find messages by this author


The RTF control can only display RTF encoded text. If you want to simply
display plain text then wrap your plain text within the required RTF
encoding.

Here's a previous post of mine on a related issue.
http://groups.google.ca/group/microsoft.public.access.forms/browse_fr...


From: Stephen Lebans - view profile
Date: Tues, Feb 14 2006 9:30 pm
Email: "Stephen Lebans"
<ForEmailGotoMy.WebSite.-WWWdotlebansdot...@xxxxxxxxxxxx>
Groups: microsoft.public.access.forms
Not yet ratedRating:
show options


Reply to Author | Forward | Print | Individual Message | Show original
| Report Abuse | Find messages by this author


Let me know how you make out.


Make sure your Form has:
A TextBox control named txtComment bound to the Comment field(just o you can
see the RTF encoding)
an RTF2 control bound to the Comment field
A CommandButton named cmdRTF


In your References, make sure the ref to DAO is higher in the list than ADO.


Place this code behind the Command Button.


Private Sub CmdRTF_Click()
On Error GoTo Err_CmdRTF_Click


Dim sRTFdata As String
Dim sHeader As String
Dim sText As String


sHeader =
"{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0
Arial;}}"
sHeader = sHeader & "{\colortbl
;\red0\green0\blue0;}\viewkind4\uc1\pard\cf1\fs24"


' I could have shortened the code but I wanted you(and others I refer to
this posting) to see what is happening at every step.


With Me.RecordsetClone
' Move to first record
.MoveFirst


' Loop until all records are processed
' This example uses a field named "Comment"
' Note this is the name of the FIELD not the
' name of the TextBox control bound to this field
Do While Not .EOF
.Edit
sText = IIf(IsNull(.Fields("Comment")), "", .Fields("Comment"))
' See if field is empty
If Len(sText & vbNullString) = 0 Then
sRTFdata = sHeader & "}"
Else
sRTFdata = sHeader & sText & "\par }"
End If


' Save our RTF encoded string back to Comment field
.Fields("Comment") = sRTFdata
.Update
' Move to next record
.MoveNext
Loop


End With


Exit_CmdRTF_Click:
Exit Sub


Err_CmdRTF_Click:
MsgBox Err.Description
Resume Exit_CmdRTF_Click


End Sub



--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.


"MWG" <MWG@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:3A25D6AD-8CEE-411D-8DFD-9D4B993DAD3B@xxxxxxxxxxxxxxxx
I'm sure it's something silly. I've installed the Lebans RTF control,
placed
it on a form and set its control source to a field from a table. The
control
is not displaying the data from the field. What am I missing?
--
Thx in advance!



.

Quantcast