Adding empty row in field

[gykiang]

My field size is 50 characters.

Is there any way to write an expression that when the texts reach 25 characters, add Chr(13) & Chr(10), then resume the display of the field texts between 26 to 50 character.

Width of the field box allows up to 25 characters and no problem to take up to 3 rows by height.

The intention is to insert an empty line in between the texts.

Or is there a better way to workaround rather than using the above method ?



Thanks.

[June7]

Why is this important? If you use proportional font, the lines will not appear the same length anyway.

I don't think a simple expression would work, probably need VBA function.

Could use non-proportional font and size textbox to display 25 characters and let the line wrap. I like Consolas font.

[Missinglinq]

As June7 suggested, unless you use a monospaced/fixed-width font, such as Courier, Prestige Elite or Monaco, getting this perfect will be a matter of luck. Trying to do this, interactively, involves keeping track of the number of characters entered, which usually ends up being a mare's nest, because of the possibility of the user backing up and inserting characters, moving forward and inserting characters, doing the same but deleting characters, etc. To avoid this I would allow the user to simply enter the data and split the entered text after the fact, as it were:

Private Sub YourTextBox_AfterUpdate()
 If Len(Me.YourTextBox) > 25 Then
  Me.YourTextBox = Left(Me.YourTextBox, 25) & vbNewLine & vbNewLine & Mid(Me.YourTextBox, 26)
 End If
End Sub