I have a rich text memo field, I need have all the capital letters changed from black to red after an update on another field. I have been able to do this with the replace function for commas and periods but I cannot for the life of me figure out how to do this with capital letters. Any help would be much appreciated.
Private Sub GrammarText_AfterUpdate() If Len(Me.GrammarText) < 417 Then Me.CorrectText = Me.GrammarText Me.NoPeriods = Replace(Me.GrammarText, ".", " ") Me.NoCommas = Replace(Me.GrammarText, ",", " ") Me.CorrectText = Replace(Me.CorrectText, ".", "<font color=""red"">.</font>") Me.CorrectText = Replace(Me.CorrectText, ",", "<font color=""red"">,</font>") Else MsgBox "Text is too large, please reduce the amount of characters" End If End Sub