conditional format

J

Jacco Ermers

Hello everyone, I have searched quit a few webpages and have found several
result, but non that applied (or I could apply).

I have a report of my logbook in which there is a remarks-textbox. The size
of this box is fixed, but sometimes there is too much text to fit. I want to
apply a conditional formatting rule which changes the font-size based on the
amount of text used. Since this is not a option within access 2002 itself I
know I have to code it in VBA.

There already is use of a expression to combine the text needed inside the
textbox. Now I would like to get some help to use VBA to count the number of
letters used within this text box and then apply a change in fontsize
depending on that number. Can anyone help me?

Thank you in advance
 
S

Sean

I'm guessing you are looking for something like this. This fragment would reside in the OnFormat (Detail_Format) of your report:

Select Case Len(txtRemarks)
Case Is < 10:
txtRemarks.FontSize = 12

Case 10 To 20:
txtRemarks.FontSize = 10

Case Is > 20
txtRemarks.FontSize = 8
End Select

You might also have to adjust the .Height property to make it look right.
 
Top