Number of lines in a textbox

[Guest]

Hi!

Is there a way in a text box where i can say that user only can write
maby 25 lines ?

regards
alvin

 

[Guest]

You should use a memo field for this.

 

[Al Camp]

Alvin,
Better to indicate how many characters a field can contain, rather than the number of
lines. The two don't always equate.
You can use the Control Tip Text property of the field to indicate to the user the
character limit of the field.
Or, just set up a label to the right of the field indicating that information
Label TextControl Label
MyField: [The Field] (50 Chars)

 

[Guest]

Yes i use a memo field
But how to set the memo field so the user only can write
maby 25 lines
regards


alvin

 

[Guest]

Hi

My problem is that i use a memo field
and this field i use on a asp page
but the field must not have more than mabye 25 lines

regards

alvin

Alvin,
Better to indicate how many characters a field can contain, rather than the number of
lines. The two don't always equate.
You can use the Control Tip Text property of the field to indicate to the user the
character limit of the field.
Or, just set up a label to the right of the field indicating that information
Label TextControl Label
MyField: [The Field] (50 Chars)

--
hth
Al Camp
Candia Computer Consulting - Candia NH
http://home.comcast.net/~cccsolutions

Hi!

Is there a way in a text box where i can say that user only can write
maby 25 lines ?

regards
alvin

 

[Dirk Goldgar]

Hi!

Is there a way in a text box where i can say that user only can write
maby 25 lines ?

For example,

Dim strText As String
Dim nLines As Long

strText = Me!MyTextBox & vbNullString

' Trim of trailing CR/LF, if any.
If Right(strText, 2) = vbCrLf Then
strText = Left(strText, Len(strText) - 2)
End If

' Split on the CR/LF combination to see
' how many lines we have.
If Len(strText) = 0 Then
nLines = 0
Else
nLines = 1 + UBound(Split(strText, vbCrLf))
End If

If nLines > 25 Then
' not sure what you want to do here
End If

 

[John Nurick]

Hi Alvin,

What's a line?

If you have a CR+LF pair at the end of each line, use Dirk's suggestion.

If the text in the textbox can wrap from line to line, it's a lot more
difficult to do what you want. Maybe the sample database at
http://www.lebans.com/textwidth-height.htm will help.

 

[Guest]

Thanks its working
is there a way where i can stop the user from
making a new line, in the code:


If nLines > 25 Then

' not sure what you want to do here
End If

regards
alvin

 

[Dirk Goldgar]

Thanks its working
is there a way where i can stop the user from
making a new line, in the code:


If nLines > 25 Then

The easiest thing is to test this in the control's BeforeUpdate event,
and cancel the event if there are too many lines. That would leave it
up to the user to correct the problem. For example,

Private Sub txtMemo_BeforeUpdate(Cancel As Integer)

' ... code here to calculate nLines ...

If nLines > 25 Then
Cancel = True
MsgBox _
"That's too many lines. Please keep it to " & _
"25 lines or fewer.", _
vbExclamation,
"Too Many Lines"
End If

End Sub