Word Count in a Form

[deejayquai]

Hi

Does anyone know if it is possible to display a word count as and when
a user is inputting text into a memo field on a form. The code I'm
using below is fine when applied to the 'On Exit' event but ideally I
would like it to be dynamic. I've tried the other events for the Memo
field but none seem to do it.
-----------------------------------------------------------------
Private Sub Personal_Comments_Exit(Cancel As Integer)

If IsNull(Me![Personal Comments]) Then Exit Sub
' cut off spaces before and after memo words
strMemo = Trim(Me![Personal Comments])
' initialize all variables
intCountWords = 0
intSpaces = 0
intAllSpaces = 0
' do only if there is at least one word
If Not IsNull(strMemo) Then
'Stop
' add 1 as there must be at least one word so far
intCountWords = intCountWords + 1
Do
intAllSpaces = intAllSpaces + intSpaces
intSpaces = InStr(1, strMemo, " ") ' Find space.
strMemo = Trim$(Right$(strMemo, Len(strMemo) - intSpaces))
intCountWords = intCountWords + 1
Loop Until InStr(1, strMemo, " ") = 0
End If
Me!txtCount = intCountWords
txtCount.Requery

End Sub
------------------------------

thanks

David

[Ron2006]

The only other somewhat simple way is on the on keydown event check to
see if it is a space and if the previous keystroke was not a space then
count 1 word. At end add 1 and you have word count.

However, I don't believe this will work with cut and past, nor
backspacing over a word and adding two words. and other such keyboard
antics.

I think what you have already, is as close as you are going to get
without some significant analysis and design.

Ron