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?