memo data type

[ericlee]

hello there,

i have a field of memo data type in a table and the field is associated with a text control in a from. user is allowed to enter <ctrl><enter> to start on a new line in the control. if user exit this control, i would like to know how many lines are in this field. how can i do this?

thanks in advance.

 

[Mile-O]

The only thing I can think of is to loop through each character within the memo and count every instance of vbCr (enumerated constant for Carriage Return).

i.e.

Public Function CountLines(ByVal strMemo As String) As Long
    Dim lngCount As Long
    CountLines = 1
    For lngCount = 1 To Len(strMemo)
        If Mid$(strMemo, lngCount, 1) = vbCr Then
            CountLines = CountLines + 1
        End If
    Next lngCount
End Function

 

[maxmangion]

However, notice that with the above code, you will only get the number of vbcr which there are in your field ... for instance, if someone types something too long which automatically moves to the next line, those lines are still considered as 1.

 

[Mile-O]

However, notice that with the above code, you will only get the number of vbcr which there are in your field ... for instance, if someone types something too long which automatically moves to the next line, those lines are still considered as 1.

True. Hmmm...