Add HTML tags to your rich text

[Webbarr]

I've made a basic function that adds some HTML tags to my rich text boxes based on what I want to display to the user, E.G. red / bold text for warnings etc...

Below is the main function & some examples of how I use it.

It's not very sophisticated but it's served me well so far & I wanted to share it. If anyone has any suggestions for improvements would love to hear back!

Option Explicit
Public Enum udtHTMLTags
    bwBold = 1
    bwItalic = 2
    bwUnderline = 4
    bwLineBreak = 8
End Enum
Public Function fnAddHTML(strInput As String, Optional HtmlTags As udtHTMLTags, Optional strColour = vbNullString) As String
    Dim strStart As String, strEnd As String

    If HtmlTags And bwBold Then
        strStart = "<b>"
        strEnd = "</b>"
    End If

    If HtmlTags And bwItalic Then
        strStart = strStart & "<i>"
        strEnd = strEnd & "</i>"
    End If

    If HtmlTags And bwUnderline Then
        strStart = strStart & "<u>"
        strEnd = strEnd & "</u>"
    End If

    If strColour <> vbNullString Then
        strStart = strStart & "<font color=" & Chr(34) & strColour & Chr(34) & ">"
        strEnd = strEnd & "</font>"
    End If

    If HtmlTags And bwLineBreak Then
        fnAddHTML = strStart & strInput & strEnd & "<br>"
    Else
        fnAddHTML = strStart & strInput & strEnd
    End If
End Function


Public Function fnRedText(strWarningMessage As String) As String
    fnRedText = fnAddHTML("Warning: ", , "FF0000") & strWarningMessage
End Function


Public Sub PrintText()
    Dim strPrintText As String

    strPrintText = fnAddHTML("Some bold text", bwBold)
    Debug.Print strPrintText

    strPrintText = fnAddHTML("Some bold & underlined", bwBold + bwUnderline)
    Debug.Print strPrintText

    strPrintText = fnAddHTML("All the options", bwBold + bwItalic + bwUnderline + bwLineBreak, "00FF00")
    Debug.Print strPrintText
End Sub

 

[isladogs]

Thanks for this post which I've only just seen almost three months later.
You may be interested in an earlier post by cj_London on a similar theme
https://www.access-programmers.co.uk/forums/showthread.php?t=290820

 

[Webbarr]

Thanks for posting that! I didn't receive a notification that I'd had a reply, maybe I need to have a look at my account settings.

It's an interesting read!

 

[FLJerseyBoy]

FWIW, I've done a little experimentation along these lines, if anyone is still following this thread.



When you concatenate multiple text fields to make one longer one which is rich text, you can specify their fonts by bracketing them with the deprecated HTML

font

element. So for instance to concatenate the string

red text

and the string

black text

-- and make the two substrings the indicated colors -- you could do something like this:

Me.ctlRichText = "<font color='#ED1C24'>red text</font>" & "<font color='#000000'>black text</font>"

The way Access handles this is to wrap each of the differently formatted font elements in

div

elements, which is a nuisance. So what you've got to do then is to strip out the

div

tags (opening and closing), using something like the

Replace()

function:

Me.ctlRichText = Replace(Replace(Me.ctlRichText, "<div>", ""), "</div>", "")

...which results in:

red textblack text
​

It's very awkward, but it can be done!

 

[isladogs]

The last post has just been spotted and approved. Posting to trigger email notifications.
Also see my Rich Text example at https://www.access-programmers.co.uk/forums/showpost.php?p=1602678&postcount=2

A reminder to report your own posts to moderated areas. See sticky thread above.

 

[CJ_London]

for those who want to find out the different formatting code and how they should appear in the string, this link might be of help

https://www.access-programmers.co.uk/forums/showthread.php?t=290820

 

[Dreamweaver]

I've only just started working with rich text fields in both the current app I'm working on in the estimates and my project system I updated that as found them very usefull


thanks for the info


mick