Auto sizing text.

[vorn666]

If you have a text box of a set size how would I code an automatic font size reduction if the text string in it was too long. (It has to shrink or it obscures the box below it). ie if it is over so many characters set size 14, if over even more set size 12 etc.

many thanks.

This is on a form limited to holding only a single records information.

 

[GaryPanic]

on this check the samples - some clever bunny has done this already ...

 

[vorn666]

I don't doubt it, however I cannot find it. I am unsure exactly which words I should be searching under as I do not know the correct name for what i am trying to do.

 

[missinglinq]

This is for demonstration purposes only! You'll have to play around with the text lengths and font sizes to suit your purposes.

Private Sub MyText_AfterUpdate()
If Len(Me.MyText) => 12 And Len(Me.MyText) =< 16 Then
  MyText.FontSize = 10
 ElseIf  MyText.FontSize =>17 And Len(Me.MyText) =< 22 Then
  MyText.FontSize = 8
End Sub

Private Sub Form_Current()
If Len(Me.MyText) => 12 And Len(Me.MyText) =< 16 Then
  MyText.FontSize = 10
 ElseIf  MyText.FontSize =>17 And Len(Me.MyText) =< 22 Then
  MyText.FontSize = 8
 End If

 

[vorn666]

Many thanks, that works very nicely.

 

[missinglinq]

Glad you got it working!