[RESOLVED] Differece

[chunk]

i have a RichTextBox (with Formatted Or Not Formatted text) in my form which is connected to Database of Access,
im reading values by this code

RTB.TextRTF = Rs!field1

it shows formatted text in the RTB but when i move to next record whose field1 is not formatted it shows the same formatting as previous record. how can i solve this problem?

[zeezee]

You may have to give selective formats in the RTB. Using SelStart, SelLength to select the text and use selective formats such as SelBold, SelColor, SelItalic, etc ... accordingly.

And How are you saving the text in the DB? is it just text or text with format?
when you are saving, you may try to save the RTF text using TextRTF or SelRTF

[chunk]

saving by this code

Rs!field1=RTB.TextRTF

[zeezee]

I tried to simulate your work by this code. Using the RTF code in the RTF file.
It works fine I guess

Private Sub Command3_Click()
    RichTextBox1.TextRTF = "{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}}" & vbCrLf & "\viewkind4\uc1\pard\lang1033\f0\fs17 RichTextB\b ox1fsdg;dflj" & vbCrLf & "\par d;flkjgkl;" & vbCrLf & "\par" & vbCrLf & "\par xcvxcv\ul xcvxcv\ulnone" & vbCrLf & "\par }"
End Sub

Private Sub Command4_Click()
    RichTextBox1.TextRTF = "{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}}" & vbCrLf & "\viewkind4\uc1\pard\lang1033\f0\fs17 RichTextBox1" & vbCrLf & "\par }"
End Sub

Anyway, one sugestion may be, try to save the rtf from the DB to a RTF file and load that file to the RTB using RichTextBox.LoadFile

Or just clear the RTB before setting next row in the dB.

Or keep the RTF code with no text and no formmating (Hard Coded) and use that before assigning. This is that in my pc

{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}}
\viewkind4\uc1\pard\lang1033\f0\fs17 
\par }

mind that you need to add vbcrlf to line ends.
Try and see.

[chunk]

i fixed this problem by using this code.

text1.text=""
text1.textrtf=Rs1!field1