Number of returns in memo field 1

[Netherby]

How can I examine the contents of a memo field and count the number of vbCrLf characters? Thanks.

 

[MajP]

This is this works. I did not check it in detail

Public Function getCrLF(memFld) As Integer
  Dim pos As Integer
  pos = 1
  Do
    If Nz(InStr(pos, memFld, vbCrLf)) = 0 Then
      Exit Function
    End If
  pos = InStr(pos, memFld, vbCrLf) + 1
  getCrLF = getCrLF + 1
  Loop
End Function

SELECT getCrLF([memoFld]) AS CountReturnt
FROM tblmemo;

 

[MajP]

Actually this may be better:

Public Function CountCRLF(mem As Variant) As Integer
CountCRLF = (Len(mem) - Len(Replace(mem, vbCrLf, ""))) / 2
CountCRLF = (Len(mem) - Len(Replace(mem, Chr(13) & Chr(10), ""))) / 2
End Function

I added the check for chr(13) & chr(10)

 

[Netherby]

Thanks MajP. I prefer your second post as it cuts out the do loop.

 

[MajP]

I did not verify against real data. Does it work?

 

[Netherby]

Yes it does.