Remove From My Forums

MS Access 2010 TextBox.TextFormat

Question
0

Sign in to vote

Hy there!

I´m developing in MS Access 2010 and SQL SQL Server 2008 R2 and ADP Projects.

Does someone know a "workaround" for the circumstance that I cannot set the TextFormat on TextBoxes to "Rich Text"? Or is there an other way to get a TextBox formated with different styles (bold, italic, underlined, ...).

For a reason I don´t know the online-help says that it is not possible in projects. For me that seems not to be that big problem, but for microsoft engineers it is ... Maybe that changes in the next version.

Best regards from Vienna/Austria!

Martin
Martin Sachers

Saturday, February 11, 2012 4:20 PM

Answers

Hello Martin:

See this link:

http://office.microsoft.com/en-us/access-help/insert-or-add-a-rich-text-field-HA010014097.aspx

I have an application that uses a Rich Text box, and it is simply a matter of setting a textbox property as shown below (Access 2010). I am not sure why you can't see the TextFormat property??? The code below shows how I manually insert rich text HTML tags.

Here's a code snippet driven by a button that demonstrates setting a rich text box back to a standard format. The Me.Event_Description is a standard text box with the "RichText" format selected as shown above. Note that Access Memo fields have built-in Rich Text functionality. You can, however, do your own Rich Text formatting in non-memo fields, but it is a lot of code :)

Private Sub ChangeRichTextFont_Click()
Dim strExtractedText As String
Dim boolSkipTagContents As Boolean
Dim intExtractCount As Integer
Dim i As Integer
Dim strRichTextHeader As String
Dim strRichTextTrailer As String

strRichTextHeader = "<div>"
strRichTextTrailer = "</div>"

Me.Event_Description.TextFormat = acTextFormatPlain
' ********************************************************
' If The Text Is Not in Rich Format, Do Usual Formatting
' ********************************************************
If Mid(Me.Event_Description, 1, 1) <> "<" Then
    With Me.Event_Description
    .SetFocus
    .SelStart = 0
    .SelLength = 10
    .FontName = "Calibri"
    .FontSize = 9
    .SelStart = 0
    End With
Else
' ********************************************************
' Remove All Tags From The Rich Text
' ********************************************************
    For i = 1 To Len(Me.Event_Description)
        If Mid(Me.Event_Description, i, 1) = "<" Then
            boolSkipTagContents = True
        ElseIf Mid(Me.Event_Description, i, 1) = ">" Then
            boolSkipTagContents = False
        ElseIf Not boolSkipTagContents Then
            strExtractedText = strExtractedText & Mid(Me.Event_Description, i, 1)
        End If
    Next i
' ********************************************************
' Build A Rich Text For The Default Calibri
' ********************************************************
    Me.Event_Description.Value = strRichTextHeader & strExtractedText & strRichTextTrailer
    Me.Event_Description.TextFormat = acTextFormatHTMLRichText
End If

End Sub

Regards,

Rich Locus

Rich Locus, Logicwurks, LLC

http://www.logicwurks.com

Edited by RichLocus Saturday, February 11, 2012 7:10 PM
Marked as answer by Bruce Song Thursday, February 23, 2012 10:08 AM

Saturday, February 11, 2012 6:12 PM

0

Sign in to vote
Bound controls on an Access form can ONLY be set to rich text if you using a memo column.

And in ADP, that means setting the column to type of text (in place of nvchar).

If you do this then should be able to use a bound text control, and you have use of the rich text formatting options from the ribbon.

You can ALSO set rich text for unbound controls.

You cannot set a text box control to rich text for regular bound columns in Access (even when not using SQL server).

So how this works for regular access and ADP is really quite much the same.

>For me that seems not to be that big problem, but for microsoft engineers it is
>Best regards from Vienna/Austria!

Hum, what should I say here? Tell you what, I will give you a mulligan here, but I do tend to skip on past such questions.

Please keep in mind the vast majority of people here are giving answers to you represents an act of charity and goodwill on our parts.

Albert D. Kallal (Access MVP)
Edmonton, Alberta Canada
- Marked as answer by Bruce Song Thursday, February 23, 2012 10:09 AM
- Unmarked as answer by Martin Sachers Thursday, February 23, 2012 1:23 PM
- Marked as answer by Martin Sachers Thursday, February 23, 2012 1:23 PM
Monday, February 13, 2012 5:42 AM

All replies