View Single Post
  #3  
Old April 19th, 2010, 03:52 PM posted to microsoft.public.access.forms
anthony
external usenet poster
 
Posts: 59
Default Changing font in rich text table

On Apr 19, 2:56*pm, Tom van Stiphout wrote:
On Mon, 19 Apr 2010 06:46:47 -0700 (PDT), anthony

wrote:

The reason for the error is that a field in a recordset doesn't have a
FontName property. It didn't show in intellisense either.
Rather you have to change the Value of this field:
.Edit
!Aims = ReplaceFontInfo(!Aims)
.Update

Now you write this function to do the actual work:
private function ReplaceFontInfo(byval s as string) as string
'TODO: Use Replace function and others to do the work, thus changing
s.
ReplaceFontInfo = s
end function

I'd have to see what the value s looks like before I could give more
suggestions. This may be difficult to fix in the general case.

-Tom.
Microsoft Access MVP

I want to standardise the font of all data in a table's rich text
field. If I use:


Dim DB As Database
Dim rst As Recordset
Dim strSQL As String
Set DB = CurrentDb()
strSQL = "SELECT tblReportTermly.Aims FROM tblReportTermly;"
Set rst = DB.OpenRecordset(strSQL)
Do Until rst.EOF
* *With rst
* * * *.MoveFirst
* * * *.Edit
* * * *!Aims.FontName = "Calibri"
* * * *!Aims.FontSize = "11"
* * * *.Update
* *.MoveNext
* *End With
Loop


i get "Object doesn't support this property or method". Am I
approaching this incorrectly?


Thank you Tom. I had a horrid feeling it was going to be complicated!

Best - Anthony