Changing font in rich text table

[anthony]

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?

 

[Tom van Stiphout]

On Mon, 19 Apr 2010 06:46:47 -0700 (PDT), anthony

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

 

[anthony]

On Mon, 19 Apr 2010 06:46:47 -0700 (PDT), anthony


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

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

Best - Anthony

 

[anthony]

On Mon, 19 Apr 2010 06:46:47 -0700 (PDT), anthony


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

Alright, so I grab the value of the field (which will be a couple of
sentences of text), format it and then replace the contents of aims
with it. The question is: what syntax do I need to use to give the
variable's contents a font and a font size before replacing the
current contents of aims? Actually, I wonder whether I could put the
whole table into Excel, format it there and then re-populate...

 

[Tom van Stiphout]

On Mon, 19 Apr 2010 09:29:28 -0700 (PDT), anthony

Apply some font and size before saving it to the table in the first
place. Then see what was created.

-Tom.
Microsoft Access MVP